excel - 在 VBA Excel 中插入行

Question

有谁知道如何在每行之后插入 4 行，从第 2 行到第 5 行？当然使用 Excel VBA。我附上一张图片来更好地解释它。

任何提示将不胜感激。问候！

Answer 1

试试下面的代码

Sub InsertRow()


    Dim lastRow As Long
    lastRow = Range("A" & Rows.Count).End(xlUp).Row

    For i = lastRow To 3 Step -1
        Cells(i, 1).Resize(4).Insert Shift:=xlDown
    Next

End Sub

Answer 2

我录制了一个插入一行的宏。出来的代码是这样的。

Sub Macro1()
'
' Macro1 Macro
'

'
Rows("2:5").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End Sub