excel - Excel VBA：在每奇数行之后插入2个空白行

Question

我有一张已填充的 Excel 表格，我只需要在表格中的每个奇数行之后填充两个额外的空白行。如何执行此操作？我希望在单击按钮后完成此操作。建议一些答案。

Answer 1

像这样的东西？

Sub extraRows()

i = 1
While Cells(i, 1) <> ""
        Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert
        i = i + 4
Wend

End Sub

Answer 2

还是这样的？

Public Sub InsertRows()
  Dim i As Long
  Dim lngLastRow as long

  lngLastRow = 1000
  For i = 1 To lngLastRow Step 4
   ActiveSheet.Rows(i + 1).Insert xlShiftDown
   ActiveSheet.Rows(i + 2).Insert xlShiftDown
  Next i
End Sub

要将其用作按钮，您需要将其粘贴到工作簿的模块中。如果没有，则必须创建一个。然后，您可以将此宏链接到按钮或快捷键。