やさしいマクロとVBA

行を挿入するマクロ

行を挿入する位置を指定して、ワークシートに行を挿入します。

目次

行を挿入する

セルを指定して挿入

A2、B2、C2などのように２行目のセルを指定すれば、２行目に行を挿入することができます。

Range(“A2″).EntireRow.Insert　
[color color=”Blue”]　’２行目に挿入[/color] 
Range(“B4″).EntireRow.Insert　
[color color=”Blue”]　’４行目に挿入[/color]

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside] 
Sub サンプル2720()
 
    Range("A2").EntireRow.Insert
     
    'Range("B4").EntireRow.Insert
 
End Sub

Rowsプロパティで挿入

Rowsプロパティは、Rowsの引数にRows(1)やRows(2)のようにすることで行を挿入できます。

Rows(1).Insert　
[color color=”Blue”]　’１行目に挿入[/color]  
Rows(2).Insert　
[color color=”Blue”]　’２行目に挿入[/color]
サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside] 
Sub サンプル2725()
    
    Rows(1).Insert
 
    'Rows(2).Insert
 
End Sub

行の範囲を指定して挿入する

行の範囲を指定して、行を挿入することができます。

Range(“2:3″).Insert　
[color color=”Blue”]　’２行目から３行目に挿入[/color] 
Range(“4:4″).Insert　
[color color=”Blue”]　’４行目に挿入[/color]　

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside] 
Sub サンプル2730()

    Range("2:3").Insert
    
    'Range("4:4").Insert
    
End Sub

マクロ例

このサンプルでは結果を確認するために、挿入した行を赤で塗りつぶしています。

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside] 
Sub サンプル2735()

    Range("A2").Select
    
    Selection.EntireRow.Insert
    
    Selection.EntireRow.Interior.ColorIndex = 3

End Sub

コード説明
Range(“A2″).Select
[color color=”Blue”]　’セルA2を選択[/color]　
Selection.EntireRow.Insert
[color color=”Blue”]　’選択したセルA2に、行を挿入[/color] 　
Selection.EntireRow.Interior.ColorIndex = 3
[color color=”Blue”]　’挿入した行のセルを「赤」で塗りつぶす[/color]　

●マクロの実行前の画像

●マクロの実行結果
マクロを実行すると、A1とA2の間に行が挿入されています。

指定したシートの行に挿入する

シートを指定して行を挿入する

シート２（Sheet2）を指定するには、Worksheets(“Sheet2”)　または　Worksheets(2)　とします。

サンプルコードは、Sheet2の３行目に挿入します。

サンプルコード
[aside type=”normal”]コード内、Wクリックでコピーできます。[/aside] 
Sub サンプル2737()

    Worksheets("Sheet2").Range("A3").EntireRow.Insert
    
    'Worksheets("Sheet2").Rows(3).Insert　'上と同じになります。
    
End Sub

●マクロの実行結果
Sheet2を開いてみると、３行目に行が挿入されています。

以上で「行を挿入するマクロ」の説明を終わります。