Excel VBAでセルを削除して、セルを上や左へ詰める方法を記録します。
セルを削除するには「Delete」メソッドを使います。
下図はExcel2016です。
< スポンサーリンク >
「Delete」メソッド構文
セルを削除します。
Rangeオブジェクト.Delete(Shift)
Shiftは省略可能。Rangeオブジェクトに指定。セルを削除した後に他のセルをどのようにシフトするかを指定。この引数を省略すると、セル範囲の形に応じてシフト方向が自動的に決定されます。
xlShiftToLeft = 左にシフト
xlShiftUp = 上にシフト
セル削除方法
シフト方向を指定しない
シフト方向を指定せずにB2のセルを削除してみます。
Sub test()
ActiveSheet.Range(“B2”).Delete
End Sub
シフト方向を指定せずにB2~B4のセル(縦長の範囲)を削除すると、左へシフトします。
Sub test()
ActiveSheet.Range(“B2:B4”).Delete
End Sub
シフト方向を指定せずにB3~C3のセル(横長の範囲)を削除すると、上へシフトします。
Sub test()
ActiveSheet.Range(“B3:C3”).Delete
End Sub
上へシフトする
上へシフトするようにしてみます。
Sub test()
ActiveSheet.Range(“B2:B4”).Delete (xlShiftUp)
End Sub
左へシフトする
左へシフトするようにしてみます。
Sub test()
ActiveSheet.Range(“B3:C3”).Delete (xlShiftToLeft)
End Sub
こんな記事も書いています