指定した数の列を挿入する（軽負荷版）

現在の列（セル単体の選択、または通常の挿入のように列全体を選択してもよし）の左方向に指定した数の列を挿入します。

挿入方向と書式の引継ぎはEXCELで通常挿入した場合と同じです。

列数を自分で数える手間がないぶん少しだけ楽です。

＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
Sub n列挿入する軽負荷版()

    '現在の列の左方向にn列挿入する
    '現在の列の左の書式がコピーされる

    Dim n As Long

    n = InputBox("挿入する列数を入力して下さい")

    If n >= 1 And n <= 15000 Then
        Range(Columns(ActiveCell.Column), Columns(ActiveCell.Column + n - 1)).Insert xlShiftToRight, xlFormatFromLeftOrAbove
    ElseIf n > 15000 Then
        MsgBox "数値が大きすぎます"
    Else
        MsgBox "1以上の数値を入力して下さい"
    End If

End Sub
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊