Excel VBAで行の挿入をRowsを使う方法とEntireRowで行う方法

Rowsで行を挿入する場合は引数に行番号を指定します。

EntireRowは行全体を参照するプロパティで、指定したセルを含む行全体に対して処理を行うことができます。ここではRangeオブジェクトでセルを指定します。RowsとEntireRowで1行の挿入方法と複数行の挿入方法の各2種類のVBAを掲載します。

挿入はInsertメソッドを使用します。

下の品番別の販売数が入力されているシートをサンプルに使用します。

Rowsを使い1行挿入する

Rowsで6行目に行を挿入するVBAです。


・Rows(6)で6行目を指定し、Insertメソッドで挿入します。

Sub MyInsert()
    Rows(6).Insert
End Sub

実行結果のシートです。
6行目に行が挿入され空白のセルができています。

Rowsを使い複数行を挿入する

Rowsで6行目から8行目に行を挿入するVBAです。


・「：」コロンで２つの行を指定します。

Sub MyInsert()
    Rows("6:8").Insert
End Sub

実行結果のシートです。
6行目から8行目に行が挿入され空白のセルができています。


行番号を変数で行う場合は、「& "：" &」のように、「"："」を&でつなぎます。


・実行結果は、Rows("6:8")と同じです。

Sub MyInsert()
    Dim r1 As Long
    Dim r2 As Long
    
    r1 = 6
    r2 = 8
    Rows(r1 & ":" & r2).Insert
End Sub

EntireRowを使い1行挿入する

EntireRowでC6セルが含まれる行に新しい行を挿入するVBAです。


・Rangeで挿入する行に含まれるセルを指定します。

Sub MyInsert()
    Range("C6").EntireRow.Insert
End Sub

実行結果のシートです。
C6セルが含まれる行ですから、6行目に新しい行が挿入されています。

EntireRowを使い複数行を挿入する

EntireRowでB4からC6セルが含まれる行に新しい行を挿入するVBAです。


・Rangeで挿入する行に含まれるセルの範囲を指定します。

Sub MyInsert()
    Range("B4:C6").EntireRow.Insert
End Sub

実行結果のシートです。
B4からC6セルが含まれる行ですから、4行目から6行目に新しい行が挿入されています。