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

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