空白列追加

空白列追加

空白列を追加する時は、下記のように記載します。
Selection.Insert Shift:=xlToRight

例
Range("A:A").Select
Selection.Insert Shift:=xlToRight
上記のように記載すると、A列の手前に空白列が入ります。