Question

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

这是宏代码：

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

现在我不是那个编写宏的人，老实说我的VBA很生锈（在VBA也不是那么好）。我遇到的问题是用户通过选择一行并使用ctrl + L来使用宏。

它会复制并插入一个格式正确的行，但之后的某些行似乎是空的（全部为空白且没有行号），因此您必须选择行＆gt;右键单击＆gt;显示，以便正确显示

不确定要寻找什么

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

Excel宏无法正常显示

1 个答案: