指定した数の行を一瞬で挿入するには？（Tips-6）

VBAの勉強を始めて、これまでに学んだことや、思いついたアレやコレをメモっておきます。

今回は、VBAで、ユーザーが指定した数の行を挿入する方法についてです。

まず、下のように、For ～Next を使って、指定した数の行を挿入させてみようと思います。
アクティブセルがある行の上方向に、行挿入する処理を n回繰り返します。

Sub test1()
    Dim n As Long

    n = InputBox("挿入する行数を入力して下さい")
    
    For i = 1 To n
        ActiveCell.EntireRow.Insert xlShiftDown, xlFormatFromLeftOrAbove
    Next i

End Sub

1～1,000行程度であれば、ほぼ一瞬で完了しますが、10,000行辺りから少し時間がかかるようになってきます。100,000行になると･･････、

f:id:kouten0430:20180623150309j:plain

3分13秒

うーん。カップラーメンが出来てしまいますぅ(＠_＠;)

上記は、VBAの勉強を始めた初期の頃に作ったコードです。今見ると、腹パンしてやりたくなりますね。
前回も書きましたが、ループというのは掛け算であり、処理の内容によっては、とんでもなく時間がかかってしまうんです･･････。

実際に100,000行も挿入するようなことはあまりありませんが、私はこのコードが気に入らず、コードを書いた当日はずっとモヤモヤした気分でした。

しかし、翌日ふと、次のような処理を思いつき、コードを修正しました。

Sub test2()
    Dim n As Long

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

    Rows(ActiveCell.Row & ":" & ActiveCell.Row + n - 1).Insert xlShiftDown, xlFormatFromLeftOrAbove

End Sub

アクティブセルがある行から下に n行選択した状態で、行挿入を１回だけ行うのです。単純ですね。

エクセルの操作に例えるとこんな感じ、

f:id:kouten0430:20180623150424j:plain