エクセルマニア

VBAで指定したセルを削除

TOP > VBA・マクロ >  指定したセルを削除する
このエントリーをはてなブックマークに追加

指定したセルを削除する

Range("セル名").Delete

指定したセルを削除します。削除されたセルの部分は左寄・上寄せされます。 Range("セル名)).Clear Range("セル名).ClearContents を使用します。
メソッド引数定数内容
ShiftxlShiftToLeft左方向にシフト
ShiftxlShiftUp上方向にシフト
引数を指定しない場合、【行数 = 列数】の場合は削除後、上方向にシフトします。 【行数 < 列数】の場合は左方向にシフトし、【行数 > 列数】の場合は削除後、上方向にシフトします。 セルの行または列を選択範囲とする場合、行の場合は削除後、上方向にシフトし、 列の場合は削除後、左方向にシフトします。

サンプルコード


'アクティブなシートのセルB1~D3の範囲の削除(行数=列数なので上方向にシフト)
Range(Cells(1,2),Cells(3,4)).Delete

'アクティブなシートのセルB1~D3の範囲の削除(行数>列数なので左方向にシフト)
Range("B1:D4").Delete

'Sheet1のセルB1~D3の範囲の削除(行数<列数なので上方向にシフト)
Worksheets("Sheet1").Range(Cells(1,2),Cells(3,5)).Delete

'Sheet1のセルB1~D3の範囲の削除(引数により上方向にシフト)
Worksheets("Sheet1").Range("B1:D4").Delete Shift := xlShiftUp 

'Sheet1のセルB1~DEの範囲の削除(引数により左方向にシフト)
Worksheets("Sheet1").Range(Cells(1,2),Cells(3,5)).Delete Shift:=xlShiftToLeft


サンプルコード


'アクティブなシートの1~3列目を削除
Worksheets("Sheet1").Range("B1:D3").EntireRow.Delete

'アクティブなシートの1~3列目を削除	
Worksheets("Sheet1").Range("B1:D3").EntireColumn.Delete



このエントリーをはてなブックマークに追加