【VBA】特定の値を含む行を削除する方法｜複数行を安全に一括削除

Excel VBAで大量のデータを整理するとき、「特定の値が入力されている行だけをまとめて削除したい」という場面があります。

たとえば、一覧表のステータス列に「削除」と入力されているデータを取り除いたり、処理済みになったデータだけを一覧から削除したりするケースです。数行であれば手作業でも対応できますが、数百行、数千行とデータが増えると、目視で確認しながら削除するのは効率的ではありません。

VBAを利用すれば、指定した列の値を判定し、条件に一致した行だけを自動的に削除できます。

ただし、行削除の処理では単純に上から順番にループすると、削除対象となる行を飛ばしてしまうことがあります。コード自体はエラーにならないため、気づかないまま一部のデータが残ってしまう点には特に注意が必要です。

この記事では、特定の値を含む行をVBAで削除する基本的な考え方から、複数の該当行を安全に削除するためのコードまで解説します。

✅ VBAで特定の値を含む行を削除する基本的な考え方

特定の値を含む行を削除するときは、いきなりコードを書くのではなく「どの列を判定するのか」「どの値を削除条件にするのか」を先に決めることが重要です。実務では、同じ文字が別の列にも入力されていることがあり、検索範囲を広げすぎると本来残すべき行まで削除する可能性があります。

また、「特定の値を含む」という表現でも、完全一致と部分一致では削除対象が変わります。さらに、行を削除すると下にあるデータの行番号も変化するため、通常の繰り返し処理とは少し考え方が異なります。こうした違いを理解せずに処理すると、エラーが発生しなくても削除漏れが起こることがあります。

まずは、行削除を安全に行うための基本的な仕組みを整理しておきましょう。

・削除対象を「判定する列」と「条件」に分けて考える

たとえば、次のようなデータがあるとします。

A列：商品コード	B列：商品名	C列：状態
A001	商品A	販売中
A002	商品B	削除
A003	商品C	販売中
A004	商品D	削除

この一覧からC列が「削除」になっている行だけを取り除く場合、VBAでは大きく次の流れで処理します。

データが入力されている最終行を取得する
C列のセルを順番に確認する
セルの値が「削除」と一致するか判定する
一致したセルがある行全体を削除する

重要なのは、シート全体から「削除」という文字を探すのではなく、C列を判定対象として限定することです。

たとえば商品名に「削除」という文字が偶然含まれていても、C列が「販売中」であれば削除対象にはなりません。

実務では、このように「どこを条件判定に使うのか」を明確にしておくことで、誤削除のリスクを減らせます。

・完全一致と部分一致では削除対象が異なる

条件を決めるときには、完全一致と部分一致の違いにも注意が必要です。

今回のように、

If targetSheet.Cells(rowIndex, "C").Value = "削除" Then

と記述した場合、「削除」と完全に一致するセルだけが対象です。

たとえば、次の値は同じように見えても結果が異なります。

C列の値	「削除」と完全一致
削除	対象
削除予定	対象外
削除済み	対象外
販売中	対象外

「削除予定」「削除済み」のような文字まで対象にしたい場合には、部分一致による判定が必要です。

ただし、部分一致までこの記事で中心的に扱うと、「特定の文字を含む行を抽出する方法」などの既存記事と検索意図が近くなります。

そのため、ここでは指定した値と一致する行を安全に削除する方法を中心に解説します。

「削除」と完全に一致するデータではなく、「削除予定」「削除済み」のように特定の文字を含む行を部分一致で探したい場合は、VBAで文字列を判定して対象行を抽出する方法もあります。部分一致による行の検索方法については「【VBA】特定の文字を含む行を抽出する方法｜部分一致したデータを取得」で詳しく解説しています。

✅ VBAで条件に一致する行を削除する基本コード

条件に一致する行を削除するだけであればコードはそれほど複雑ではありません。しかし、行削除では「ループをどちらの方向から実行するか」が非常に重要です。特に、通常のデータ処理と同じ感覚で上から下へ繰り返すと、連続した削除対象がある場合に一部の行が残ることがあります。この問題は実行時エラーとして通知されるわけではないため、処理後のデータだけを見ると原因を見つけにくいのが厄介です。

実務で削除処理を自動化するなら、単に動作するコードではなく、行番号が変化することを前提に設計する必要があります。ここでは、後から条件や対象列を変更しやすい形で基本コードを組み立てていきます。

・下から上へ判定して該当する行を削除する

C列の値が「削除」と一致する行を削除する場合は、次のように記述できます。

Sub DeleteRowsByValue()

    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim rowIndex As Long
    Dim targetValue As String

    '処理対象のシートと削除条件を設定
    Set targetSheet = ThisWorkbook.Worksheets("データ")
    targetValue = "削除"

    'C列を基準に最終行を取得
    lastRow = targetSheet.Cells(targetSheet.Rows.Count, "C").End(xlUp).Row

    '行削除による判定漏れを防ぐため、最終行から上方向へ処理
    For rowIndex = lastRow To 2 Step -1

        If targetSheet.Cells(rowIndex, "C").Value = targetValue Then
            targetSheet.Rows(rowIndex).Delete
        End If

    Next rowIndex

End Sub

このコードでは、C列を判定対象として「削除」という値が入力されている行全体を削除しています。

1行目を見出しとして使用している想定なので、ループの終了位置は2です。

For rowIndex = lastRow To 2 Step -1

ここが、この処理で特に重要な部分です。

・削除条件を変数にして後から変更しやすくする

コード内で毎回、

If targetSheet.Cells(rowIndex, "C").Value = "削除" Then

と直接記述しても処理自体は可能です。

しかし、今回は次のように削除条件を変数として分離しています。

Dim targetValue As String

targetValue = "削除"

そして条件判定では、

If targetSheet.Cells(rowIndex, "C").Value = targetValue Then

としています。

少し長く見えますが、実務ではこちらの方が扱いやすいケースがあります。

たとえば、削除対象を「削除」から「処理済み」に変更することになった場合でも、

targetValue = "処理済み"

と条件設定部分を変更するだけで済みます。

処理条件と実際の削除ロジックを分けておけば、後からコードを修正する人も「何を条件として削除しているのか」を把握しやすくなります。

また、wsやiのような短い変数名だけで構成するのではなく、targetSheet、rowIndex、targetValueのように役割が分かる名前を付けています。

小さなマクロでは違いを感じにくい部分ですが、処理が増えたり別の担当者が改修したりするときには、こうした命名がコードの読みやすさにつながります。

✅ VBAで行を下から削除する必要がある理由

VBAで行を削除するときに最も注意したいのが、上から下へのループです。「データは上から確認するもの」という感覚でコードを書くと、For文も1行目から最終行へ進めたくなります。

しかし、行そのものを削除する処理では、この一般的な書き方が思わぬ削除漏れにつながります。特に条件に一致するデータが連続していると問題が表面化しやすく、テストデータでは正常だったのに本番データでは対象が残ることもあります。削除後には下の行が自動的に繰り上がるため、ループ変数と実際のデータ位置にずれが生じるからです。この仕組みを理解しておけば、行削除だけでなく、今後似た処理を作るときにも判断しやすくなります。

・上から削除すると連続した対象を飛ばすことがある

たとえば、C列が次の状態だったとします。

2行目：販売中
3行目：削除
4行目：削除
5行目：販売中

上から順番に処理して3行目を削除すると、もともとの4行目が3行目へ移動します。

つまり、削除直後は次の状態になります。

2行目：販売中
3行目：削除 ← 元の4行目
4行目：販売中

ところがループ処理は次の「4行目」へ進みます。

その結果、新しい3行目に移動してきた「削除」は判定されず、そのまま残ってしまいます。

コードが停止するわけではありません。

正常終了したように見えるのに、削除対象だけが残るという点が、この問題の怖いところです。

・最終行から逆方向へ処理すれば行番号の変化を避けられる

そこで使用しているのが、

For rowIndex = lastRow To 2 Step -1

という逆方向のループです。

たとえば4行目を削除しても、これから判定する3行目や2行目の位置は変わりません。

処理は、

最終行
↓
1つ上の行
↓
さらに1つ上の行
↓
2行目

という順番で進みます。

このため、条件に一致する行が何行連続していても、それぞれを判定できます。

「行を削除するときは必ずどんな場合でも逆順」と機械的に覚える必要はありませんが、ループしながら行そのものを削除する場合は、行番号が変化することを考慮するのが重要です。

実務ではデータ件数だけでなく、「条件に一致する行が連続した場合」をテストデータに含めておくと、こうした削除漏れを発見しやすくなります。

✅ VBAで特定の値を含む行を安全に削除するための注意点

条件判定と逆方向のループが正しくても、実務ではそれだけで安全な削除処理になるとは限りません。行削除はセルの値を書き換える処理とは異なり、削除したデータを後続処理で再利用できなくなる可能性があります。

また、見出し行まで判定対象にしたり、最終行を取得する列が適切でなかったりすると、想定外の範囲を処理してしまいます。特に自動化されたマクロでは、人が画面を確認する前に大量の行が削除されるため、条件設定の小さなミスが大きな影響につながります。コードが短いからといって、単純な処理だと考えないことが重要です。ここでは、実際に業務で使用する前に確認しておきたいポイントを整理します。

・見出し行を削除対象から除外する

前半で紹介したコードでは、次のようにループしています。

For rowIndex = lastRow To 2 Step -1

2で終了しているのは、1行目を見出しとして扱っているためです。

たとえばC1セルに「状態」という見出しがあり、C2セル以降に実際のデータが入力されている場合、処理対象は2行目から最終行までになります。

実務では、一覧表によってデータの開始位置が異なります。

たとえば、

1行目：帳票タイトル
2行目：更新日
3行目：空白
4行目：見出し
5行目以降：データ

という構成なら、処理対象の最初の行は5行目です。

その場合は、

For rowIndex = lastRow To 5 Step -1

のように変更します。

「2」という数字をそのまま流用するのではなく、対象となる一覧表のどこから実データが始まるのかを確認してから設定することが大切です。

・最終行を取得する列はデータの特徴に合わせて決める

今回のコードではC列を基準に最終行を取得しています。

lastRow = targetSheet.Cells(targetSheet.Rows.Count, "C").End(xlUp).Row

C列が必ず入力されるデータであれば、この方法で問題ありません。

一方、C列に空欄が多く、最終データ行にも値が入っていない可能性がある場合には注意が必要です。

たとえばA列の商品コードがすべてのデータで必須になっているなら、

lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row

として、A列から最終行を取得する方が安定します。

判定する列と、最終行を取得する列は必ずしも同じである必要はありません。

「どの列ならデータの存在を確実に判断できるか」を基準に決めると、データが増減しても対応しやすくなります。

特定の値ではなく、指定したセルが空白になっている行を削除したい場合は、空白行そのものを削除する場合との違いにも注意が必要です。「【VBA】空白セルを含む行を削除する方法｜空白行との違いと安全な処理方法」で、空白を条件にした行削除について詳しく解説しています。

✅ VBAで行を一括削除する前に誤削除を防ぐ

行削除を自動化するときは、処理速度だけでなく「間違えたときにどうなるか」まで考えておく必要があります。特に削除条件をコード内で変更しながら運用する場合、指定する文字を間違えただけで大量のデータを失う可能性があります。

また、マクロによる削除を通常のExcel操作と同じ感覚で扱うのは危険です。処理対象が数千行あれば、一つずつ確認することなく短時間で削除が完了します。だからこそ、削除処理では実行後の速さより、実行前に対象を正しく限定できているかが重要になります。定期的に使用する業務マクロほど、この安全性を最初の設計段階で考えておきましょう。

条件に一致したデータをすぐに削除するのが不安な場合は、対象行を別シートへコピーしてから削除する方法もあります。元データを残しながら処理したい場合は「【VBA】条件に一致する行を別シートへコピーする方法｜複数行をまとめて転記」もあわせて確認してみてください。

・VBAで削除した行は元に戻せる前提で処理しない

VBAで行を削除するときに特に意識しておきたいのが、削除後の復旧です。

手作業でExcelを操作していると、間違えた場合に「元に戻す」を使う習慣があります。しかし、マクロを実行した後も同じように簡単に戻せると考えて処理を組むのは安全ではありません。

そのため、本番データへ削除処理を実行する前には、

元ファイルのバックアップを用意する
テスト用データで削除条件を確認する
条件に一致する行が想定どおりか確認する
問題がないことを確認して本番データへ適用する

という流れにすると安全です。

特に最初から共有ファイルや原本に対して実行するのは避けた方がよいでしょう。

「削除できるか」だけではなく、「間違って削除した場合に元の状態へ戻せるか」まで含めて設計することが、実務では重要です。

・削除対象が正しいか不安なら最初から削除しない

削除条件が複雑な場合や、対象データを後から確認する可能性がある場合は、すぐに行を削除しない方法も検討できます。

たとえば、

条件に一致する行を別シートへコピーしてから削除する
削除候補として別シートへ抽出して確認する
行を削除せず一時的に非表示にする

といった方法です。

どの方法が適しているかは、データの用途によって変わります。

「不要なデータなので確実に消してよい」というケースなら削除が適していますが、「今は不要だが後から確認する可能性がある」というデータなら、削除以外の方法が安全です。

VBAによる自動化では、何でも自動的に削除すればよいわけではありません。

削除・抽出・コピー・非表示を、業務上の目的に合わせて選ぶことが重要です。

データそのものは残しておき、画面上から一時的に見えなくしたい場合は、行を削除せず条件に一致する行だけを非表示にする方法もあります。「【VBA】条件に一致する行を非表示にする方法｜値を判定して行を自動で隠す」では、値を判定して対象行を自動的に隠す方法を解説しています。

✅ VBAで大量の行を削除するときに意識したい処理方法

数十行程度の一覧であれば、1行ずつ判定して削除する方法でも処理時間はあまり気になりません。しかし、データ件数が数千行、数万行へ増えると、ワークシート上の行を繰り返し削除する処理は時間がかかることがあります。ここで注意したいのは、単純にコードを短くすれば高速になるわけではないことです。

また、処理速度を優先するあまり複雑なコードへ変更すると、後から条件を追加するときに保守しにくくなる場合もあります。業務で使用するマクロでは、データ量と実行頻度に応じて処理方法を選ぶことが大切です。まずは分かりやすく安全な方法を使い、実際に速度が問題になった段階で改善を検討するとよいでしょう。

・少量から中程度のデータなら逆順ループは分かりやすい

今回紹介している方法には、

For rowIndex = lastRow To 2 Step -1

    If targetSheet.Cells(rowIndex, "C").Value = targetValue Then
        targetSheet.Rows(rowIndex).Delete
    End If

Next rowIndex

という特徴があります。

「C列を確認して、一致した行を削除する」という処理内容がコードから把握しやすいため、後から見ても何をしているのか判断しやすい書き方です。

条件を変更したい場合にも、targetValueや判定部分を確認すれば対応できます。

特に社内ツールのように、作成者以外の人が後から修正する可能性があるコードでは、処理速度だけでなく読みやすさも重要です。

数百行程度の処理に対して、最初から必要以上に複雑な高速化を行う必要はありません。

・大量データでは1行ずつDeleteする処理が負荷になることがある

一方で、大量の行が削除対象になる場合は、

targetSheet.Rows(rowIndex).Delete

が何度も実行されます。

Deleteを実行するたびにワークシートの行構成が変更されるため、データ量や削除件数によっては処理時間が長くなる可能性があります。

このような場合には、削除対象をまとめてから一括処理する方法や、オートフィルターなどを利用する設計も候補になります。

ただし、高速化の方法を追加するとコードも複雑になりやすいため、

「大量データを扱う可能性があるから」という理由だけで最初から複雑にしないことも大切です。

実際のデータ件数と実行時間を確認し、現在の方法で業務上問題がある場合に最適化を検討する方が、保守性とのバランスを取りやすくなります。

✅ VBAで条件一致の行削除を実務で使い分ける

「特定の値を見つける」という処理が同じでも、その後に何をするかによって適切なVBA処理は変わります。検索した結果を削除する場合と、別シートへ残す場合では目的そのものが異なります。ここを区別せずに似たコードを流用すると、必要なデータまで失ったり、反対に不要なデータが残ったりする原因になります。

また、業務では最初は削除する予定だったデータを、後から履歴として保存したいという仕様変更も珍しくありません。そのため、「条件に一致したらDelete」とだけ考えるのではなく、データを最終的にどう扱いたいのかを先に整理することが重要です。目的に応じて処理を分けることで、マクロの役割も明確になります。

・削除が向いているケースと残した方がよいケースを区別する

行削除が向いているのは、たとえば次のようなケースです。

明確に不要になったデータを取り除く
処理対象外のレコードを一覧から完全に除外する
作業用データを整理して次の処理へ渡す

一方、後から確認する可能性があるデータでは、削除以外の処理も検討します。

たとえば「処理済み」のデータを現在の一覧から外したい場合でも、履歴として必要になるなら別シートへのコピーや抽出の方が適していることがあります。

また、画面上だけ一時的に見えなくしたいのであれば、行そのものを削除せず非表示にする方法もあります。

今回の方法は、「指定した値に一致したレコードそのものを不要データとして削除したい場合」に適した処理です。

この目的を明確にしておけば、抽出やコピーなど別の処理と混同しにくくなります。

VBAでは、条件に一致する行に対して「削除する」以外にも、検索・抽出・コピーなどさまざまな処理を組み合わせられます。特定の文字を含む行に対する処理をまとめて確認したい場合は、「【VBA】特定の文字を含む行の処理：検索・削除・別シートにコピー」も参考にしてください。

✅ VBAで削除処理を自動化するときは後続処理にも注意する

行削除だけでマクロが終了する場合は比較的分かりやすいですが、実務では削除後に集計や転記など別の処理を続けることがあります。この場合、削除前に取得した行番号やセル範囲を後続処理でもそのまま使うと、実際のデータ位置と合わなくなることがあります。

また、最終行も削除前と削除後では変化する可能性があります。マクロを機能ごとに追加していくと、このようなデータ位置の変化を見落としやすくなります。特に別のマクロから削除処理を呼び出す設計では、処理後のシート状態を前提として次の処理を組み立てることが重要です。削除処理単体だけでなく、その前後まで含めてデータの状態を考えましょう。

・行削除後に必要な情報は取得し直す

たとえば、削除前に最終行を取得していたとしても、複数の行を削除すれば最終行は変わります。

その後に別の処理で最終行が必要なら、改めて取得します。

lastRow = targetSheet.Cells(targetSheet.Rows.Count, "A").End(xlUp).Row

同様に、削除前の行番号を記録して後続処理に使用する場合にも注意が必要です。

行を削除すると、その下にあるデータは上方向へ移動します。

そのため、

削除前の状態で必要な情報を取得する
条件に一致する行を削除する
削除後のシート状態を改めて確認する
必要な範囲や最終行を取得し直す
次の処理へ進む

というように、処理の境界を意識すると安全です。

マクロが大きくなるほど、「削除前の情報なのか、削除後の情報なのか」を明確にすることが重要になります。

✅ まとめ：VBAで特定の値を含む行を安全に一括削除しよう

VBAを使用すれば、指定した列を確認して、特定の値と一致する行を自動的に削除できます。

ただし、行削除はデータそのものを変更する処理です。単に条件式とDeleteを組み合わせるだけではなく、削除する順番や対象範囲、削除後の処理まで考えてコードを作ることが重要です。

特定の値を判定する列を明確にする
完全一致と部分一致を混同しない
行を繰り返し削除するときは最終行から上方向へ処理する
見出し行を処理対象に含めない
最終行はデータが安定して入力される列を基準に取得する
削除条件は変数にすると変更箇所を把握しやすい
本番データを削除する前にバックアップやテストデータで確認する
後から確認するデータなら、削除ではなく抽出・コピー・非表示も検討する
大量データでは1行ずつの削除が処理時間に影響する場合がある
行削除後に最終行や範囲が必要なら改めて取得する

特に重要なのは、上から順番に行を削除すると対象を飛ばす可能性があるという点です。

コードがエラーにならなくても、必要な行が削除されずに残ることがあります。条件に一致する行をループ処理で削除するときは、行番号が変化することを考慮して最終行から逆方向へ処理すると安全です。

まずはテスト用のデータで、削除対象が1件の場合だけでなく、条件に一致する行が連続している場合や対象が1件もない場合も確認してみてください。

こうしたケースまで確認しておけば、実際の業務データでも安心して使いやすい削除処理を作成できます。