在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