在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