在VBA中插入行Excel

Question

没有人知道如何在每行之后的第2行到第5行插入4行？当然使用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