在 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