VBA～列を挿入しよう～Excel

ColumnsオブジェクトのInsertメソッドを使う方法です。Columns(列番号).Insertで指定した列にあらたに列を挿入します。下のコードを実行すると列番号1のA列に新たに列が挿入され、元のA列はB列になります。

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

RangeオブジェクトのEntireColumnプロパティでInsertメソッドを使う方法です。Range(セル番地).EntireColumn.Insertで指定したセルの列に新たに列を挿入します。下のコードを実行するとセルA1の列、つまりA列に新たに列が挿入され元のA列はB列になります。

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

複数列を挿入したい場合はColumns("開始列のアルファベット:終了列のアルファベット").Insertで挿入できます。下のコードを実行するとA列からC列に新たに列が挿入され、元の列A,B,Cは列D,E,Fになります。

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