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

Question

我正在尝试设计一个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行，它在添加行并且基于新行号运行循环之后不会修改行号。

Answer 1

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