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

我正在尝试设计一个for循环，excel将在这两行之间添加一行，再次计算行数并更新行数，然后再次运行另一个循环。 它应该运行循环，直到所有行都添加到每行之间，所以如果行号是7，则更新的行应该是14

这是我正在尝试的代码

 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循环函数中，行的数量是否可以持续更新？

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