Excel VBA：在每個奇數行後面插入2個空白行

Question

我有一個填充的Excel表，我只需要在sheet中的每一個奇數行後面填充兩個額外的空白行。如何做到這一點？我希望這樣做點擊一個按鈕後。 建議一些答案。

Answer 1

或者類似的東西？

Public Sub InsertRows() 
    Dim i As Long 
    Dim lngLastRow as long 

    lngLastRow = 1000 
    For i = 1 To lngLastRow Step 4 
    ActiveSheet.Rows(i + 1).Insert xlShiftDown 
    ActiveSheet.Rows(i + 2).Insert xlShiftDown 
    Next i 
End Sub 

要將其用作按鈕，您需要將其粘貼到工作簿的模塊中。如果沒有一個，你必須創建一個。然後你可以將這個宏鏈接到一個按鈕或者一個短鍵。

Answer 2

像這樣？

Sub extraRows() 

i = 1 
While Cells(i, 1) <> "" 
     Range(Cells(i + 1, 1), Cells(i + 2, 1)).EntireRow.Insert 
     i = i + 4 
Wend 

End Sub