VBAで自動化 VBA一覧 抽出・検索処理 条件一致・行列処理

【VBA】空白セルを含む行を削除する方法｜空白行との違いと安全な判定方法

Excelでデータを扱っていると、「必要な項目が入力されていない行だけをまとめて削除したい」という場面があります。

VBAを使えば、指定した範囲を確認し、空白セルを含んでいる行を自動的に削除できます。ただし、「空白セルを含む行」と「行全体が空白の行」は同じではありません。

この違いを理解しないままコードを書くと、1項目だけ未入力だった行まで削除したり、逆に削除したかった行が残ったりすることがあります。

さらに、行を上から順番に削除すると、削除によって行番号がずれて判定対象を飛ばしてしまうこともあります。

この記事では、空白セルを含む行を正しく判定し、安全に削除するVBAの考え方とコードを実務目線で解説します。

✅ VBAで空白セルを含む行を削除する前に知っておきたい違い

「空白がある行を削除する」と聞くと単純な処理に見えますが、実際にはどの状態を空白として扱うかを最初に決める必要があります。特に間違えやすいのが、「行全体が空白」と「行の一部に空白セルがある」という違いです。ここを曖昧にすると、本来残すべきデータまで削除する原因になります。

実務では、氏名だけ入力されて住所が空白、商品コードはあるものの数量が未入力、といった不完全な行が存在することも珍しくありません。こうした行を削除対象とするかどうかは、業務ルールによって変わります。そのため、コードを書く前に「何を条件として行を削除するのか」を明確にすることが重要です。

・空白行と空白セルを含む行は意味が異なる

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

A列B列C列
商品A東京10
商品B20
商品C大阪30

この場合、3行目はすべてのセルが空白なので「空白行」です。

一方、2行目はB列だけが空白になっています。

この2行目のような状態が「空白セルを含む行」です。

つまり、

  • 行全体に値がない → 空白行
  • 指定した範囲の中に1つ以上空白がある → 空白セルを含む行

という違いがあります。

今回の記事では、後者の「指定範囲内に空白セルが1つでも存在する行」を削除する処理を中心に扱います。

・削除対象にする列を先に決めることが重要

実務では、行全体を判定対象にするケースはそれほど多くありません。

例えば、A列からD列までを業務上の必須項目としている場合、E列以降に空白があっても問題ないことがあります。

その場合は、

Range("A2:D2")

のように、必須項目だけを確認する方が安全です。

ワークシートの行全体を対象としてしまうと、使用していない列は当然空白なので、ほぼすべての行が削除対象になってしまいます。

「どの列が空白なら削除するのか」をコード内で明確にすることが、誤削除を防ぐ基本になります。

✅ VBAで空白セルを含む行を削除する基本的な考え方

空白セルを判定できても、行削除の順番を間違えると処理結果がずれることがあります。特に、上から下へループしながら行を削除する書き方は注意が必要です。行を1つ削除すると、その下にある行が1行ずつ上へ移動するためです。その状態で次の行番号へ進むと、移動してきた行を確認せずに通過してしまうことがあります。

データ量が少ないと問題に気づきにくいため、テスト時には正常に見えてしまう点も厄介です。行を削除するVBAでは、基本的に最終行から上方向へ処理する設計にしておくと安全です。

・行削除は下から上へ処理する

例えば、5行目と6行目を削除対象とします。

上から処理して5行目を削除すると、それまで6行目だったデータが5行目へ移動します。

その後、ループが6行目へ進むと、新しい5行目は判定されません。

そのため、行削除では次のように逆方向へループします。

For rowIndex = lastRow To 2 Step -1

Next rowIndex

Step -1 を指定することで、最終行から2行目へ向かって1行ずつ確認できます。

下の行を削除しても、それより上の行番号は変化しません。

これが、行削除を安全に行う基本的な考え方です。

・空白セルが存在するかをCountBlankで確認する

指定した範囲内に空白セルがあるかどうかは、WorksheetFunction.CountBlankを使うと比較的分かりやすく判定できます。

例えば、A列からD列までの中に空白セルがあるか確認する場合は、次のように記述できます。

WorksheetFunction.CountBlank(Range("A2:D2"))

空白セルが1つあれば「1」、2つあれば「2」が返ります。

そのため、

If WorksheetFunction.CountBlank(Range("A2:D2")) > 0 Then

とすれば、「1つ以上空白セルを含んでいるか」を判定できます。

この書き方の利点は、「どの範囲を確認しているのか」がコードを見たときに比較的分かりやすいことです。

複雑な条件式を組むよりも、保守する人が判定意図を理解しやすくなります。

✅ VBAで空白セルを含む行を下から安全に削除する方法

実際にコードへまとめるときは、「最終行の取得」「判定範囲の指定」「空白セルの確認」「行削除」という処理を分けて考えると分かりやすくなります。単に短いコードにするよりも、何を基準に削除しているのか読み取れる構成の方が実務では扱いやすくなります。

また、削除処理は元に戻せないため、判定対象の列をコード上で明確にしておくことも重要です。特に既存ファイルへ組み込む場合、後から列が追加される可能性も考える必要があります。最終行の取得方法についても、どの列を基準にするのかによって処理結果が変わります。ここでは、A列を基準に最終行を取得し、A列からD列までを必須項目として確認する基本形を紹介します。

次の例では、1行目を見出しとし、2行目以降を処理します。

Sub DeleteRowsContainingBlankCells()

    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim rowIndex As Long
    Dim checkRange As Range

    Set targetSheet = ThisWorkbook.Worksheets("データ")

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

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

        ' 業務上の必須項目であるA列～D列だけを確認
        Set checkRange = targetSheet.Range( _
            targetSheet.Cells(rowIndex, "A"), _
            targetSheet.Cells(rowIndex, "D") _
        )

        ' 必須項目の中に1つでも空白があれば行を削除
        If WorksheetFunction.CountBlank(checkRange) > 0 Then
            targetSheet.Rows(rowIndex).Delete
        End If

    Next rowIndex

End Sub

このコードでは、ワークシートを直接ActiveSheetで参照せず、

Set targetSheet = ThisWorkbook.Worksheets("データ")

として処理対象を明示しています。

実務では、ユーザーが別シートを開いた状態でマクロを実行することもあります。

ActiveSheetを前提にすると、意図しないシートから行を削除する危険があるため、削除処理では特に対象シートを明示しておく方が安全です。

また、

Set checkRange = targetSheet.Range( _
    targetSheet.Cells(rowIndex, "A"), _
    targetSheet.Cells(rowIndex, "D") _
)

としているのは、削除判定を行う範囲を明確にするためです。

A列からD列までを「必須入力項目」と決めているなら、その中に1つでも空白があった場合だけ削除できます。

逆に、E列以降にメモ欄や任意入力項目が存在していても、今回の判定には影響しません。

このように「行全体に空白があるか」ではなく、「業務上確認すべきセル範囲に空白があるか」という設計にしておく方が、実務では安全に使いやすくなります。

空白セルではなく、「完了」「対象外」などの特定の値を条件に行を削除したい場合は、判定方法が異なります。値を確認しながら複数行を安全に処理する方法については、「【VBA】特定の値を含む行を削除する方法｜複数行を安全に一括削除」で詳しく解説しています。

✅ VBAで特定の列に空白セルがある行だけを削除する方法

実務では「A列からD列のどこかが空白なら削除」という条件だけでなく、「商品コードと数量だけは必須」のように離れた列を確認したい場合があります。このとき、判定範囲を必要以上に広げると、任意入力の項目まで削除条件に含まれてしまいます。特に備考欄やコメント欄は空白でも正常であることが多く、単純に連続範囲を判定する方法が適さないケースがあります。

また、後から列が追加された場合、連続範囲を前提としたコードでは意図せず判定条件が変わる可能性もあります。削除条件となる項目が明確な場合は、対象セルを個別に指定した方が処理の意図も読み取りやすくなります。どの項目を必須とするのかをコード上でも明確にしておくことが、誤削除を防ぐポイントです。

・離れた複数列を空白判定する場合

例えば、A列が「商品コード」、C列が「数量」で、この2項目だけを必須とする場合を考えます。

この場合、B列が空白でも行を削除する必要はありません。

次のように必要なセルだけを個別に確認できます。

If targetSheet.Cells(rowIndex, "A").Value = "" _
        Or targetSheet.Cells(rowIndex, "C").Value = "" Then

    targetSheet.Rows(rowIndex).Delete

End If

この条件では、A列またはC列のどちらかが空白なら行を削除します。

Orを使用しているため、

  1. A列が空白
  2. C列が空白
  3. A列とC列の両方が空白

のいずれも削除対象になります。

一方で、B列やD列などは判定していないため、空白でも削除されません。

実務では「空白があるか」だけでなく、どの項目が空白ならデータとして成立しないのかを考えて判定条件を決めることが重要です。

今回とは反対に、行ではなく「空白セルが含まれている列そのもの」を削除したい場合は、列方向に判定する必要があります。列を対象にした処理については、「【VBA】空白セルを含む列を削除する方法｜空白行との違いと安全な処理方法」で詳しく解説しています。

✅ VBAで数式による空白セルを判定するときの注意点

Excelでは、画面上で何も表示されていないセルが必ずしも本当の空白セルとは限りません。特に実務ファイルでは、IF関数などによって条件を満たさない場合に""を返しているセルがよくあります。見た目では空白なので、利用者からすると通常の空白セルと区別できません。

しかし、VBAで空白を判定するときは、使用する方法によってこうしたセルの扱いが変わることがあります。この違いを把握せず削除処理を作ると、「空白に見えるのに削除された」「数式が入っている行まで消えた」といった問題につながります。特に既存の計算式が組み込まれた帳票では、空白の定義を決めてから処理を作ることが重要です。

・値が空なのか数式自体がないのかを区別する

例えば、セルに次のような数式が入力されているとします。

=IF(A2="","",A2*10)

A2が空白の場合、このセルには何も表示されません。

しかし、セル自体には数式が存在しています。

そのため、「表示結果が空なら未入力として扱う」のか、「数式が入っているなら入力済みとして扱う」のかによって、必要な判定方法が変わります。

値として空かどうかを確認するのであれば、例えば次のように判定できます。

If targetSheet.Cells(rowIndex, "C").Value = "" Then
    ' 表示結果が空の場合の処理
End If

一方、数式が存在するセルを削除対象から除外したい場合は、HasFormulaを組み合わせる方法があります。

If targetSheet.Cells(rowIndex, "C").Value = "" _
        And Not targetSheet.Cells(rowIndex, "C").HasFormula Then

    targetSheet.Rows(rowIndex).Delete

End If

この場合は、「値が空で、なおかつ数式も入っていないセル」を空白として扱います。

数式の結果が""になっているだけなら削除されません。

どちらが正しいということではなく、対象となるExcelファイルの仕様によって使い分けます。

 

✅ VBAで空白セルを含む行を削除するときの誤削除を防ぐ方法

行削除を自動化するときに最も注意したいのは、処理速度よりも誤削除です。Excel VBAで実行した行削除は、通常の手操作と同じ感覚で簡単に元へ戻せるとは限りません。

特に数百行、数千行を一括処理するマクロでは、条件設定を1つ間違えるだけで大量のデータを失う可能性があります。コードが正しく動作することと、業務上正しいデータだけを削除できることは別の問題です。そのため、いきなり本番データへ削除処理を実行するのではなく、削除条件そのものを確認できる仕組みを考えておく必要があります。保守や仕様変更まで考えるなら、判定条件を必要以上に複雑にしないことも重要です。

・削除する前に判定結果を確認する

開発段階では、最初からDeleteを実行せず、削除予定の行を確認する方法も有効です。

例えば、次のようにイミディエイトウィンドウへ対象行を出力できます。

If WorksheetFunction.CountBlank(checkRange) > 0 Then
    Debug.Print "削除対象：" & rowIndex & "行目"
End If

まずこの状態でマクロを実行し、

  1. 本当に削除したい行だけが検出されているか
  2. 必須項目の範囲は正しいか
  3. 見出し行が対象になっていないか
  4. 数式セルが意図した判定になっているか

を確認します。

問題がないことを確認してから、

targetSheet.Rows(rowIndex).Delete

へ変更すると、誤削除のリスクを抑えられます。

特に他の担当者が作成したファイルを自動処理する場合は、「空白に見えるセル」の中に数式が入っていないかも確認しておくと安全です。

・大量の行を削除するときは処理時間にも注意する

Rows(rowIndex).Deleteをループ内で何度も実行すると、そのたびにワークシート上の行構成が変更されます。

数十行程度なら大きな問題にならなくても、数千件以上のデータでは処理時間が長くなることがあります。

単純に、

Application.ScreenUpdating = False

を追加すればすべて解決するわけではありません。

大量データでは、削除対象を先に特定してまとめて処理するなど、データ量に応じて設計そのものを見直すことも必要です。

一方で、一般的なデータ量であれば、処理速度だけを理由に複雑なコードへ変更する必要はありません。

保守する担当者が判定条件を理解できること、そして誤った行を削除しないことを優先した方が、実務では扱いやすいコードになります。

元データから直接行を削除することに不安がある場合は、条件に一致したデータを別シートへ抽出して確認してから整理する方法もあります。条件判定した行を別シートへ転記する方法については、「【VBA】条件に一致する行を別シートへ抽出する方法｜データを自動転記」で詳しく解説しています。

✅ VBAで空白行だけを削除したい場合は判定条件を分ける

「空白セルを含む行」と「完全な空白行」を同じ条件で処理しないことも重要です。今回紹介したCountBlank(checkRange) > 0では、対象範囲に1つでも空白があれば削除条件を満たします。そのため、A列からD列のうち3セルに値が入っていても、残り1セルが空白なら行は削除されます。これを空白行の削除処理として流用すると、必要なデータまで消してしまう可能性があります。

一見似た処理でも、削除条件は大きく異なるため注意が必要です。「一部でも空白なら削除」と「すべて空白なら削除」をコード上でも明確に分けることが、安全な自動化につながります。

・すべての対象セルが空白かを判定する考え方

A列からD列までの4セルすべてが空白の場合だけ削除するのであれば、空白セル数と対象セル数を比較できます。

If WorksheetFunction.CountBlank(checkRange) = checkRange.Cells.Count Then
    targetSheet.Rows(rowIndex).Delete
End If

checkRange.Cells.Countは、判定対象に含まれるセルの数です。

A列からD列までなら4になります。

つまり、

空白セル数 = 判定対象のセル数

となった場合だけ、対象範囲がすべて空白だと判断できます。

一方、今回の記事で中心としている、

If WorksheetFunction.CountBlank(checkRange) > 0 Then

は、1つでも空白があれば条件を満たします。

この違いを理解しておけば、業務要件に応じて削除条件を正しく使い分けられます。

空白セルだけでなく、特定の文字を条件として行を検索・削除・コピーしたい場合は、「【VBA】特定の文字を含む行の処理：検索・削除・別シートにコピー」で関連する処理をまとめて確認できます。目的に応じて行の判定方法を使い分けると、データ整理や自動転記にも応用できます。

 

✅ まとめ：VBAで空白セルを含む行を安全に判定して削除しよう

VBAを使えば、空白セルを含む行を自動的に見つけて削除できます。ただし、単純に空白を探して行を削除するだけでは、安全な処理とはいえません。「空白セルを含む行」と「完全な空白行」を区別し、さらにどの列を必須項目として判定するのかを明確にすることが重要です。

また、数式によって見た目だけ空白になっているセルが存在する場合は、通常の未入力セルと同じ扱いでよいのかも検討する必要があります。行削除では下から上へ処理するという基本に加え、実行前に削除対象を確認することで、より安全な自動化につながります。

  • 空白セルを1つでも含む行と、すべて空白の行は別の条件として考える
  • 行を削除しながらループするときは、最終行から上方向へ処理する
  • CountBlankを利用すると、指定範囲内の空白セル数を判定できる
  • ワークシート全体ではなく、業務上の必須項目だけを判定対象にする
  • 離れた列だけが必須の場合は、対象セルを個別に判定する
  • 数式で""が返されているセルは、本当の未入力セルと区別が必要になる場合がある
  • 削除処理を本番データへ適用する前に、削除予定の行を確認すると安全性を高められる
  • 大量データでは処理速度も考慮するが、複雑化しすぎず保守性とのバランスを取る

空白データの削除は、データ整理や後続処理の前段階として利用しやすい自動化です。

さらにVBAで検索・抽出処理を組み合わせれば、「空白を含む行は除外し、条件を満たしたデータだけを別シートへ転記する」といった処理にも発展させられます。

まずは削除対象となる列と「空白」の定義を明確にし、実際のデータで判定結果を確認してから削除処理へ組み込むことが、安全で保守しやすいVBAにつながります。

    -VBAで自動化, VBA一覧, 抽出・検索処理, 条件一致・行列処理