VBA～行を挿入しよう～Excel

RowsオブジェクトのInsertメソッドを使う方法です。Rows(行番号).Insertで指定した行にあらたに行を挿入します。下のコードを実行すると行1に新たに行が挿入され、元の行1は行2になります。

Sub test1()
Rows(1).Insert
End Sub

RangeオブジェクトのEntireRowプロパティでInsertメソッドを使う方法です。Range(セル番地).EntireRow.Insertで指定したセルの行に新たに行を挿入します。下のコードを実行するとセルA1の行全体、つまり行1に新たに行が挿入され元の行1は行2になります。

Sub test2()
Range("A1").EntireRow.Insert
End Sub

複数行を挿入したい場合はRows("開始行の番号:終了行の番号").Insertで挿入できます。下のコードを実行すると行1から行3に新たに行が挿入され、元の行1,2,3は行4,5,6になります。

Sub test3()
Rows("1:3").Insert
End Sub