Excelmacros不能正确显示

我有一个macros应该复制一行的格式，并插入一个新的行具有相同的格式。

这里是macros代码：

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 

现在我不是那个写macros的人，老实说我的VBA很生锈（在VBA中也不是那么好）。 我遇到的问题是用户通过select一行并使用Ctrl + L使用macros。

它会复制并插入正确格式的行，但是之后的某些行看起来是空的（所有空白行和没有行号），所以您必须select行>右键单击>显示，以便正确显示

不知道该找什么

Answer 1

以下代码在要复制的行的下面创build一个新行，然后复制该行的格式并粘贴到新行中。

 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