エクセルマクロ、○列目に○列を挿入する

質問

任意のアクティブ列をS列にしたいです

A列がアクティブの場合、A列に18列挿入
B列がアクティブの場合、B列に17列挿入
↓
R列がアクティブの場合、R列に1列挿入

アクティブセルの列番号を取得して、19-アクティブ列番号　を挿入するってな感じです

調べているのですが
なかなか見つかりません
どうするのでしょう？

回答No.1

kybo · ベストアンサー

以下の様な感じでどうでしょうか。

Sub macro()
If ActiveCell.Column <= 18 Then
ActiveCell.EntireColumn.Resize(, 19 - ActiveCell.Column).Insert
End If
End Sub