在每行之间添加空行直到循环结束使用for循环

我想设计一个for循环，其中excel将在行之间添加一行，再次对行进行计数并更新行数并再次运行另一个循环。它应该运行循环，直到所有的行各行之间加了进来，所以如果行数为7，更新的行应该是14在每行之间添加空行直到循环结束使用for循环

这里是我想

Sub df() 


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


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


    Next 

End Sub

但与代码这行号被冻结在7，它只运行循环直到第7行，它不会增加行后的行号，并根据新的行号运行循环。

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

2017-04-13 19:43:13 Unknown

谢谢!!好想法！！但我不能帮助想知道，无论如何，行数可以不断更新for循环功能？ –

回答