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