ray88’s diary

お仕事で困ったとき用の自分用の覚書

VBA 列挿入

■書式1

Columns(Index).Insert(Shift,CopyOrigin)

■書式2

object.EntireColumn.Insert(Shift,CopyOrigin)

object・・・・Rangeオブジェクト Index・・・・・対象となる列番号
Shift・・・・・セルと移動する方向(省略可) CopyOrigin・・・・・コピー元(省略可)

■以下3パターンのコードは全て同じ結果となる

'パターン1
Columns(3).Insert
'パターン2
Columns(C:C).Insert
'パターン3
Columns("C1").EntireColumn.Insert