Hinzufügen von leeren Zeilen zwischen den einzelnen Zeilen bis zum Ende der Zeilen mit for Schleife

Question

Ich versuche, eine for-Schleife zu entwerfen, wo Excel eine Zeile zwischen Zeile hinzufügen würde, nehmen Sie die Zeilenanzahl erneut und aktualisieren Sie die Anzahl der Zeilen und erneut eine andere Schleife . Es sollte die Schleife, bis alle Zeilen hinzugefügt zwischen den einzelnen Reihen, so dass, wenn die Zeilennummer 7 war, aktualisierten Zeilen sollten 14.

Hier sein laufen der Code I

Sub df() 


    For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row Step 2 


    Range("A" & i).EntireRow.Insert 


    Next 

End Sub 

versuche aber mit Dies bedeutet, dass die Zeilennummer bei 7 eingefroren ist und nur die Schleife bis zur 7. Zeile ausgeführt wird, die Zeilennummer nach dem Hinzufügen einer Zeile nicht geändert wird und die Schleife basierend auf der neuen Zeilennummer ausgeführt wird.

Answer 1

For i = 1 To (Cells(Rows.Count, 1).End(xlUp).Row) * 2 Step 2