行の挿入と削除

行を挿入したり削除するとき、周囲のセルをどちらに移動するかを選択します。

行を挿入するときはInsertメソッドを、行を削除するときはDeleteメソッドを使います。

引数を使って挿入・削除時のセルの方向を指定します。

Insertメソッドで行を挿入する

挿入位置を指定して、行を挿入します。

■　行挿入の１例目

Sub サンプル4105_1()
  
    Range("A4").Select
    Selection.EntireRow.Insert
    Selection.EntireRow.Interior.Pattern = xlNone
    
End Sub

•　Range("A4").Select
　’セルA4を選択します。
•　Selection.EntireRow.Insert
　’選択したセルに行を挿入します。
上の書式をコピーするので、背景色が付きます。

•　Selection.EntireRow.Interior.Pattern = xlNone
　’セルの「塗りつぶしをなし」にします。

■　行挿入の２例目
途中に挿入する場合は、EntireRow.Insertで簡単に挿入できる。

Sub サンプル4105_2()
  
    Range("A5").Select
    Selection.EntireRow.Insert
    
End Sub

Rowsプロパティで行を挿入する

Rowsプロパティ　は、Rowsの引数にRows(1)で１行目、Rows(3)で３行目のように挿入箇所を指定します。

Sub サンプル4105_3()
     
    Rows(5).Insert
  
End Sub

•　Rows(5).Insert
　’５行目に行を挿入します。

Insert Shiftで行を挿入する

次の表を例に使います。

セルA4を基準にして、行を挿入します。

Sub サンプル4105_4()
  
    Range("A4").Resize(1, 6) _
        .Insert Shift:=xlShiftDown, _
            CopyOrigin:=xlFormatFromRightOrBelow
    
End Sub

•　Range("A4").Resize(1, 6) _
.Insert Shift:=xlShiftDown, _
CopyOrigin:=xlFormatFromRightOrBelow
　’セルA4を基準にして、右方向に１行、６列分のセルを挿入します。
セルを挿入した後で、既存のセルを下方向に移動し下のセルの書式をコピーします。

■　Insertの引数

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

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

Sub サンプル4105_5()

    Range("5:6").Insert
    'Range("A5:F6").Insert
    'Rows("5:6").Insert
    
End Sub

•　Range("5:6").Insert
　’５行目と６行目に挿入します。
•　Range("A5:F6").Insert
　’セルA5～セルF6を、指定しても同じ結果になります。
•　Rows("5:6").Insert
　’Rowsプロパティ　で、５行と６行を指定しても同じ結果になります。

Deleteメソッドで行を削除する

■　行を削除する１例目
セルA4の行を削除する。

Sub サンプル4105_8()
   
    Range("A4").Resize(1, 6).Delete
     
End Sub

•　Range("A4").Resize(1, 6).Delete
　’セルA4を基準にして、１行、６列分を削除する。

■　行を削除する２例目

Sub サンプル4105_9()
   
   Range("A4", Range("A4").End(xlToRight)) _
     .Delete Shift:=xlShiftUp
     
End Sub

•　Range("A4", Range("A4").End(xlToRight)) _
.Delete Shift:=xlShiftUp
　’セルA4を基準にして、右端までのセルを削除嶋あす。
セルの削除後は、下にあったセルを上方向にずらします。

以上で「行の挿入と削除」の説明を終わります。