Delete / Insert オブジェクトRange メソッド(動作)

はじめに

Excel VBA（Visual Basic for Applications）を用いたデータの自動処理において、セルや行・列の追加・削除操作は基本かつ頻繁に使用される処理です。これを実現するメソッドが以下の2つです。

この2つは見た目も影響する動作のため、正確な理解と使い分けが非常に重要です。

Delete は、セル・行・列を削除し、その周囲のセルを上や左に詰める動作を行います。オプションを指定することで、「上に詰める」「左に詰める」を選ぶことができます。

Range("A2").Delete [ShiftDirection]

ShiftDirection（省略可能）：削除後にセルをどの方向に詰めるか
- xlShiftUp（上へ詰める）※デフォルト
- xlShiftToLeft（左へ詰める）

Range("B2").Delete Shift:=xlShiftToLeft

Range("B2").Delete

Rows("3:3").Delete

Columns("B:B").Delete

If Range("A2").Value = "" Then
    Rows("2").Delete
End If

このように、空白セルに応じて行を削除することができます。

Insert メソッドは、指定したセル範囲に新しいセル（行や列）を挿入し、既存のセルを下や右にずらすことでスペースを空けます。

Range("A2").Insert [ShiftDirection]

ShiftDirection（省略可能）：新しいセルを挿入し、既存のセルをどの方向へ動かすか
- xlShiftDown（下へずらす）※デフォルト
- xlShiftToRight（右へずらす）

Range("A2").Insert

Range("B3").Insert Shift:=xlShiftToRight

Rows("4:4").Insert

Columns("C:C").Insert

Rows("2:2").Insert
Range("A2").Value = "新しいデータ"
Rows("100").Delete

このコードは「2行目に新しいデータを追加し、100行目を削除する」という例です。

注意点	説明
`Insert` / `Delete` は常にセルを動かす	セルの相対位置が変化するため、参照がずれる可能性あり
数式の参照が壊れることがある	行/列の挿入や削除で参照がずれることがあるため要注意
Undo（元に戻す）が効かない	VBA経由の操作は「元に戻す」対象にならない
範囲を正確に指定しないとシフトが崩れる	行や列で使うときは `Rows` や `Columns` を明示的に使うと安全

Rows("2:2").Insert
Range("A2").Value = Now()
Range("B2").Value = "ログイン記録"

Dim i As Long
For i = 100 To 2 Step -1
    If WorksheetFunction.CountA(Rows(i)) = 0 Then
        Rows(i).Delete
    End If
Next i

Dim nextRow As Long
nextRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Cells(nextRow, 1).Value = "ログ情報"

メソッド	概要	主な用途
`Range.Delete`	セル、行、列の削除とシフト（上・左）	行列の整理、無駄なスペース削除
`Range.Insert`	セル、行、列の挿入とシフト（下・右）	新規データの追加、空白挿入