VBA～列を消去しよう～Excel

Columnsオブジェクト

ColumnsオブジェクトのDeleteメソッドを使う方法です。Columns(列番号).Deleteで指定した列を消去します。下のコードを実行すると列番号1のA列が消去されます。

Sub test1()
Columns(1).Delete
End Sub

RangeオブジェクトのEntireColumnプロパティ

RangeオブジェクトのEntireColumnプロパティでDeleteメソッドを使う方法です。Range(セル番地).EntireColumn.Deleteで指定したセルの列全体を消去します。下のコードを実行するとセルA1の列全体、つまりA列を消去します。

Sub test2()
Range("A1").EntireColumn.Delete
End Sub

複数列の消去

複数列を消去したい場合はColumns("開始列のアルファベット:終了列のアルファベット").Deleteで消去できます。下のコードを実行するとA列からC列が消去されます。

Sub test3()
Columns("A:C").Delete
End Sub

非連続列の消去

非連続列を消去する場合はRange("1つ目の消去したい列のアルファベット:1つ目の消去したい列のアルファベット,2つ目の消去したい列のアルファベット:2つ目の消去したい列のアルファベット").Deleteで消去できます。3つ4つと消去することもできます。下のコードを実行するとA列とC列が消去されます。

Sub test4()
Range("A:A,C:C").Delete
End Sub