【Excel　マクロ（VBA）　行削除】条件を満たした行を削除する方法(For～Next文を使用)

ExcelのVBAにて、表などを１行ずつ見ていって、ある条件を満たした行だけ行削除したいような場合があると思います。

そのような場合の方法についての説明になります。

通常、For～Next文で処理をする場合、１行目からはじめて処理をしたい最後の行までというように記述する場合が多いと思います。

自分もはじめはそのように思い、行削除の場合でもそのやり方でなんとかよろうとしていました。

ただし、行削除の場合には、そうしてしまうと削除するたびに現在処理している行や最終行の行番号がずれてしまって非常に大変な処理になってしまうと思います。

そのようになってしまう場合には、逆に、最終行から先頭行に向かってFor～Next文を組んで処理をしてあげればいいということがわかりました。

たとえば、以下のような処理になります。

    '1行目から20行目まで1列目が空白の場合は行削除する。
    For i = 20 To 1 Step -1
        If Cells(i, 1) = "" Then
            Rows(i).Delete
        End If
    Next i

この例の場合には。２０行目から１行目まで１行ずつさかのぼって１列目が空白の場合には行削除するというような内容になります。

このようにすれば、処理の方向が上への方向なので行削除をしてもこれから処理をしていく上方向の行番号には影響がなく、最終行も先頭の１行目なので行削除の影響は受けないので処理のわずらわしさはなくなります。

はじめて知ったときは目からうろこでした。

ちなみに

Rows(1).Delete

のように、削除にDeleteを使用した場合は行が削除されて上に移動しますが、

Rows(1).Clear

のようにClearを使用すると、行の中身の値や書式だけが削除されて空白の行となるだけでそれ以降の行が上に移動することはありません。