エクセルマクロVBA サンプルコード辞書
トップページ（目次）128.列を右へシフトして移動
Sub 列を右へシフトして移動()
'「右へシフトして移動」
Columns("A:A").Cut
Columns("B:B").Insert Shift:=xlToRight
End SubSub 列を右へシフトして移動()
'「右へシフトして移動」
Columns("A:A").Cut
Columns("B:B").Insert Shift:=xlToRight
End Sub