【Excel マクロ】一行おきに新規行を挿入

便利なのでメモ。

ネタ元
http://sugoikaizen.com/excel/987678932/

Sub 新規行挿入()
    Dim i As Long
    For i = Cells(Rows.Count, 1).End(xlUp).Row To 2 Step -1
        Rows(i).Insert
    Next i
End Sub