📌

Excel VBA_行を追加/削除する際に注意したいこと

2022/12/30に公開

この記事ではVBAで行を追加/削除する際の注意点についてまとめます。行を追加すると行が１行下にズレます。そのため下から上に向かって処理を行っていく必要があるのです。

これは行を追加/削除した場合のExcelの動きが関係しているのですが、実際に行を操作しながら確かめてみましょう。例えばここでは３行目の部分で行を挿入してみます。

3行目で行を追加

そうすると４行目と書かれたセルは5行目へ移動してしまいます。そのためココのセルに対して何かしらの処理をするには、5行目のセルを操作しなければなりません。

「４行目」と書かれたセルは5行目に

下から上に向かって処理をする

そこで行を追加/削除する際には下から上に向かって処理をすることがポイントになります。 先ほどの例でいえば４行目で行の追加処理をしたとしても、それより上のセルには何も影響がありません。

上のセルには何も影響がない

こういったExcelの動きを理解しながらマクロを組む必要がある点を理解しておきましょう。

下記のような商品と金額が10個並んだ表に対して、１行おきに空白行を挿入していきます。

１行おきに行を追加するコードは下記となります。Step -1によって、下から処理を遡っていく点に注目して下さい。

Dim i As Long
For i = 20 To 4 Step -1
    Rows(i).Insert
Next

実行結果は以下のようになります。

先ほどの１行おきに追加した行を元に戻したい場合は下記のコードを実行します。

Dim i As Long
For i = 36 To 4 Step -2
    Rows(i).Delete
Next

36行目からスタートして、２行おきに行を削除している点に注目して下さい。下から遡っていけば上の行には影響がないため２行おきに削除行を指定できます。

では商品名の下の３行追加する場合はどうなるのでしょうか？（商品の説明などで欄をもっと広く取りたい場合など）「下から上に処理をする」という基本は同じですが、挿入する行の数を増やす必要があります。

Dim i As Long
For i = 20 To 4 Step -1
    Rows(i & ":" & i + 2).insert
Next

Rowsで選択する範囲の行を増やしている点に注目して下さい。ここでは「現在選択されている行＋２行」つまり合計３行が選択されています。３行選択した状態で行の追加を行うことで、３行挿入することができます。

逆に追加した行を削除したい場合、起点となるセルの選択に気を付けて下さい。ここではStep -4によって４つずつセルを遡っています。

Dim i As Long
For i = 36 To 4 Step -4
    Rows(i & ":" & i + 2).delete
Next

「〇行ずつ挿入する」という作業を実務でも多くありますので、ぜひマクロを使って効率的に進めていきましょう。