Excelマクロが正しく表示されない

Question

行の書式をコピーして同じ書式の新しい行を挿入するマクロがあります。今私は（どちらかのVBAでも良いことではない）マクロとは、正直私のVBAは非常にさびで書いたものではありませんよ

Sub Insertion_ligne_verrouillée() 
' 
' Insertion_ligne_verrouillée Macro 
    ActiveSheet.Unprotect 
    ActiveCell.Offset(-1, 0).EntireRow.Copy 
    Rows(ActiveCell.Row).Insert Shift:=xlDown 
    On Error Resume Next 
    Rows(ActiveCell.Row).SpecialCells(xlCellTypeConstants).ClearContents 
    ActiveSheet.Unprotect 
    'Application.CutCopyMode=False 
End Sub 

：

はここでマクロコードです。私が抱えている問題は、ユーザーが行を選択し、ctrl + Lを使ってマクロを使用していることです。

適切な形式の行をコピーして挿入しますが、後で一部の行が空白（すべて空白で行番号なし）なので、行>右クリック>表示を選択して正しく表示させる必要があります。

検索する内容がわからない

Answer 1

次のコードは、コピーする行の下に新しい行を作成し、その行の書式をコピーして新しい行に貼り付けます。

Sub Insertion_ligne_verrouillée() 
    'Make a new row below active cell 
    ActiveCell.Offset(1).EntireRow.Insert Shift:=xlDown, 
    CopyOrigin:=xlFormatFromRightOrAbove 
    'Copy the active row 
    ActiveCell.EntireRow.Copy 
    'paste format into new row 
    ActiveCell.Offset(1).EntireRow.PasteSpecial xlPasteFormats 
    Application.CutCopyMode = False 
End Sub