各行間に空白行を追加してforループを使用して行末まで

excelが行間に行を追加し、行数を再度取得して行数を更新して再度別のループを実行するforループを設計しようとしています。。これは、行数が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ループのfuntionで継続的に更新することはできませんか？ –

答えて