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

【VBA】特定の値を含む列を削除する方法｜見出しを判定して安全に一括削除

Excelで横方向に項目が増えていくデータを扱っていると、「不要になった項目の列だけをまとめて削除したい」という場面があります。

例えば、1行目の見出しに「不要」「削除対象」と入力されている列や、特定の項目名を持つ列だけをVBAで削除すれば、毎回手作業で列を探して削除する必要がありません。

ただし、列を削除するVBAでは、値を見つけることだけでなく「どの行を判定するのか」「どの方向から削除するのか」を決めることが重要です。

左から順番に列を削除すると列番号が変わり、隣接する削除対象を判定できなくなることがあります。また、列内のすべてのセルを検索してしまうと、データ部分に偶然同じ値が存在しただけで列全体を削除してしまう危険もあります。

この記事では、見出しなど指定した行の値を判定し、条件に一致した列を安全に削除するVBAの考え方と実務で使いやすいコードを解説します。

✅ VBAで特定の値を含む列を削除する前に判定範囲を決める

「特定の値を含む列を削除する」という処理では、最初にどのセルを検索対象とするのかを決める必要があります。ここを曖昧にしたまま列全体を検索すると、見出しではなくデータ部分に同じ文字や値が存在しただけで削除対象になる可能性があります。

特に実務データでは、商品名やステータス、備考などに同じ文字列が登場することも珍しくありません。列削除はセルの値だけを消す処理ではなく、その列に含まれるデータすべてを削除します。そのため、検索範囲を必要以上に広げないことが誤削除を防ぐ基本です。見出しを基準に項目そのものを削除するのであれば、見出し行だけを判定する設計にすると処理目的が明確になります。

・見出しの値を基準に列を削除する

例えば、次のような表があるとします。

商品コード商品名削除対象金額削除対象
A001商品Aデータ1000データ
A002商品Bデータ2000データ

1行目を見出しとして、「削除対象」という値を持つ列そのものを削除したいケースです。

この場合、確認する必要があるのは1行目だけです。

VBAでは、

targetSheet.Cells(1, columnIndex).Value

のように指定すれば、現在確認している列の1行目だけを取得できます。

そして、

If targetSheet.Cells(1, columnIndex).Value = "削除対象" Then

とすれば、見出しが「削除対象」と完全一致した列だけを処理できます。

この方法なら、2行目以降に「削除対象」という文字が入力されていても、列削除の条件には影響しません。

・行削除と列削除では判定する方向が異なる

行を削除する場合は、A列や特定の列を基準に縦方向へデータを確認することがあります。

一方、列削除では見出し行などを基準に横方向へ確認するのが基本です。

例えば1行目を基準とするなら、

  1. 最後に使用している列を取得する
  2. 右端の列から1行目の値を確認する
  3. 指定値と一致しているか判定する
  4. 一致した場合は列全体を削除する
  5. 左隣の列へ移動する

という流れになります。

「特定の値を探す」という点は行削除と似ていますが、処理方向が異なることを理解しておくとコードを設計しやすくなります。

特定の見出しではなく、空白セルの有無を条件として不要な列を整理したい場合は、判定方法が異なります。空白を基準に列を削除する方法については、「【VBA】空白セルを含む列を削除する方法｜空白行との違いと安全な処理方法」で詳しく解説しています。

✅ VBAで条件に一致する列を右から削除する理由

条件に一致する列が複数存在する場合、左から右へ削除するコードは注意が必要です。列を1つ削除すると、右側にあったすべての列が左へ移動するためです。その状態でループの列番号を1つ増やすと、移動してきた列を確認せずに通過する可能性があります。

特に削除対象の列が連続している場合に、この問題が発生しやすくなります。テストデータに削除対象が1列しかないと問題に気づけないこともあります。複数列の削除を前提とするなら、最終列から左方向へ処理する設計にしておく方が安全です。

・左から列を削除すると判定漏れが起こる

例えば、C列とD列がどちらも「削除対象」だったとします。

C列を先に削除すると、元のD列が新しいC列へ移動します。

しかしループ処理が次のD列へ進んでしまうと、新しくC列へ移動した削除対象を確認できません。

そのため、次のように右から左へループします。

For columnIndex = lastColumn To 1 Step -1

Next columnIndex

Step -1によって、最終列からA列へ向かって1列ずつ戻ります。

右側の列を削除しても、その左側にある列の位置は変わりません。

行削除を下から上へ行うのと同じ考え方で、列削除では右から左へ処理すると覚えておくと分かりやすいでしょう。

・最終列を取得して必要な範囲だけ処理する

ワークシートには非常に多くの列がありますが、すべての列を確認する必要はありません。

1行目に見出しが並んでいる場合は、次のように最終使用列を取得できます。

lastColumn = targetSheet.Cells(1, targetSheet.Columns.Count).End(xlToLeft).Column

これは1行目の右端から左方向へ検索し、値が入力されている最後のセルの列番号を取得する方法です。

例えば見出しがA列からH列までなら、H列を最終列として処理を開始できます。

ただし、見出し行の途中や右端に空白があるなど、表の構造によっては最終列の取得方法を見直す必要があります。

「どの行を基準に最終列を取得するか」は、実際のファイル構造に合わせて決めることが大切です。

列削除では右端から左方向へ処理するのが基本ですが、条件に一致する「行」を削除する場合は、最終行から上方向へ処理します。行方向の判定と安全な削除方法については、「【VBA】特定の値を含む行を削除する方法｜複数行を安全に一括削除」で詳しく解説しています。

✅ VBAで特定の値を含む列を安全に一括削除する基本コード

ここまでの考え方を組み合わせれば、見出しを確認しながら条件に一致した列を削除できます。ただし、短く書くことだけを優先すると、対象シートや判定条件が分かりにくいコードになりがちです。特に列削除は影響範囲が大きいため、どのシートの何行目を確認し、何という値なら削除するのかを読み取れる構成にしておくことが重要です。

また、ActiveSheetに依存すると、実行時に選択されているシートによって結果が変わってしまいます。削除処理では対象となるワークシートを明示し、判定条件も変数として分離しておくと仕様変更へ対応しやすくなります。ここでは、1行目の見出しが「削除対象」と完全一致した列を右側から削除する基本形を紹介します。

・見出しが「削除対象」の列をまとめて削除するコード

Sub DeleteColumnsByHeaderValue()

    Dim targetSheet As Worksheet
    Dim lastColumn As Long
    Dim columnIndex As Long
    Dim targetValue As String

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

    ' 削除対象として判定する見出し
    targetValue = "削除対象"

    ' 1行目を基準に、使用している最後の列を取得
    lastColumn = targetSheet.Cells(1, targetSheet.Columns.Count) _
                            .End(xlToLeft).Column

    ' 列削除による判定漏れを防ぐため、右端から左方向へ確認
    For columnIndex = lastColumn To 1 Step -1

        ' 見出しが指定値と完全一致した列を削除
        If targetSheet.Cells(1, columnIndex).Value = targetValue Then
            targetSheet.Columns(columnIndex).Delete
        End If

    Next columnIndex

End Sub

このコードでは、まず、

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

として対象シートを明示しています。

削除処理でActiveSheetを使用すると、ユーザーが別のシートを選択した状態で実行した場合に、意図しない列を削除する危険があります。

また、検索する値を、

targetValue = "削除対象"

として変数へ分離しています。

後から「不要」「対象外」など別の値へ変更する場合も、判定部分そのものを書き換える必要がありません。

実際の判定では、

If targetSheet.Cells(1, columnIndex).Value = targetValue Then

としているため、完全一致した見出しだけが削除対象になります。

例えば、

  • 「削除対象」→ 削除される
  • 「削除対象1」→ 削除されない
  • 「旧削除対象」→ 削除されない

という違いがあります。

部分一致まで同じ記事の中心にしてしまうと、文字列検索や「特定の文字を含む列を抽出する」処理との境界が曖昧になります。

そのため、見出しなど項目名が決まっている実務ファイルでは、まず完全一致で削除条件を明確にする方法が扱いやすく、誤削除も防ぎやすくなります。

✅ VBAで複数の値を条件にして列を削除する方法

実務では、削除対象となる見出しが1種類だけとは限りません。「旧価格」「旧コード」「作業用」など、複数の不要項目を一度に削除したいケースもあります。このとき、条件が増えるたびに長いIf文を追加していくと、後から削除項目を変更するときに修正箇所が分かりにくくなります。

また、似た条件を何度も記述すると、追加漏れや修正漏れが発生する原因にもなります。削除する見出しが複数ある場合は、対象となる値をまとめて管理できる構成にしておくと保守しやすくなります。特に定期的に項目構成が変更される業務ファイルでは、条件と削除処理をできるだけ分離して考えることが重要です。

・複数の見出しを配列で管理して削除する

例えば、次の3つの見出しを削除するとします。

  • 旧価格
  • 旧コード
  • 作業用

このような場合は、削除対象を配列にまとめる方法があります。

Sub DeleteColumnsByMultipleHeaders()

    Dim targetSheet As Worksheet
    Dim lastColumn As Long
    Dim columnIndex As Long
    Dim targetHeaders As Variant
    Dim headerValue As Variant

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

    ' 削除対象となる見出しをまとめて管理
    targetHeaders = Array("旧価格", "旧コード", "作業用")

    ' 1行目を基準に最終列を取得
    lastColumn = targetSheet.Cells(1, targetSheet.Columns.Count) _
                            .End(xlToLeft).Column

    ' 列番号のずれを防ぐため右から左へ処理
    For columnIndex = lastColumn To 1 Step -1

        For Each headerValue In targetHeaders

            If targetSheet.Cells(1, columnIndex).Value = headerValue Then
                targetSheet.Columns(columnIndex).Delete
                Exit For
            End If

        Next headerValue

    Next columnIndex

End Sub

この書き方では、削除対象を、

targetHeaders = Array("旧価格", "旧コード", "作業用")

へまとめています。

後から「確認用」という項目も削除したくなった場合は、

targetHeaders = Array("旧価格", "旧コード", "作業用", "確認用")

のように条件側を変更できます。

削除処理そのものを大きく書き換える必要がないため、仕様変更にも対応しやすくなります。

また、一致する見出しが見つかって列を削除した後は、Exit Forで内側のループを終了しています。

削除済みの列について残りの条件を確認する必要はないため、処理の目的も明確になります。

 

✅ VBAで完全一致と部分一致による列削除を使い分ける

「特定の値を含む列」といっても、完全に同じ値だけを削除したい場合と、指定した文字を含んでいれば削除したい場合では条件が異なります。ここを区別せず部分一致を使用すると、想定していなかった列まで削除される可能性があります。

例えば「価格」という文字を条件にすると、「販売価格」「仕入価格」「価格確認用」などもすべて対象になる可能性があります。列削除はデータそのものを失う処理なので、検索条件を広げるほど慎重な設計が必要です。見出し名が固定されているファイルでは完全一致を基本とし、見出しの前後に文字が付くなど明確な理由がある場合に部分一致を検討すると安全です。

・部分一致で見出しを判定する場合

例えば、「旧」という文字を含む見出しを削除したい場合は、InStrを使って次のように判定できます。

If InStr(1, _
         CStr(targetSheet.Cells(1, columnIndex).Value), _
         "旧", _
         vbTextCompare) > 0 Then

    targetSheet.Columns(columnIndex).Delete

End If

例えば、

旧価格
旧商品コード
旧データ

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

ただし、「新旧比較」のように削除するつもりがなかった見出しにも「旧」が含まれていれば対象になります。

そのため、部分一致は便利だから使うのではなく、部分一致でなければ対応できない見出しルールがある場合に使うのが安全です。

文字列検索そのものを目的とする場合と違い、今回の処理で重要なのは「見つけること」ではなく「見つけた列を安全に削除すること」です。

部分一致で見つけた列を削除するのではなく、条件に合う列を残して抽出したい場合は処理方法が変わります。指定した文字を含む列を部分一致で取得する方法については、「【VBA】特定の文字を含む列を抽出する方法｜部分一致したデータを取得」で詳しく解説しています。

✅ VBAでデータ部分の特定値を含む列を削除するときの注意点

見出しではなく、列内のデータを調べて削除したい場合もあります。しかし、この処理は見出しだけを判定する場合より削除条件が曖昧になりやすいため注意が必要です。

例えば、列内の1セルに「対象外」と書かれているだけで列全体を削除するのか、すべてのデータが「対象外」の場合だけ削除するのかでは意味が大きく異なります。単に「特定の値がある」という条件だけでは、業務上の削除基準として十分でないことがあります。

また、見出しや集計行まで検索範囲に含めると、想定外の一致が発生する可能性もあります。データ部分を基準にする場合は、検索範囲と削除条件を明確にしてからコードへ落とし込むことが重要です。

・列内に指定値が1つでもあれば削除する場合

例えば、2行目から100行目までを確認し、「対象外」が1つでも存在する列を削除する場合は、CountIfを利用できます。

If WorksheetFunction.CountIf( _
        targetSheet.Range( _
            targetSheet.Cells(2, columnIndex), _
            targetSheet.Cells(100, columnIndex) _
        ), _
        "対象外") > 0 Then

    targetSheet.Columns(columnIndex).Delete

End If

この方法なら、指定範囲に「対象外」が1件以上存在する列を判定できます。

ただし、1セルだけ一致しても列全体が削除されます。

例えば100件の正常データがあり、その中の1件だけが「対象外」だったとしても列そのものがなくなります。

そのため、このような条件は「対象外という値があれば列自体が不要になる」という明確な業務ルールがある場合に限定して使用する方が安全です。

✅ VBAで条件に一致する列を削除する前に対象を確認する

列削除のVBAでは、コードがエラーなく終了したからといって安全に処理できたとは限りません。判定条件を間違えていれば、コードとしては正常でも必要な列まで削除されます。

また、実際の業務ファイルでは、見出し名が変更されていたり、想定していない列が追加されていたりすることもあります。特に部分一致や複数条件を利用すると、開発者が想定した以上に削除対象が広がる可能性があります。そのため、本番データへ適用する前に「どの列が削除対象になるのか」を確認できるようにしておくと安全です。削除処理そのものより、条件が正しいことを確認する工程が重要になります。

・削除予定の列名を先に確認する

開発時には、いきなりDeleteを実行せず、対象となった見出しをイミディエイトウィンドウへ出力できます。

If targetSheet.Cells(1, columnIndex).Value = targetValue Then

    Debug.Print _
        "削除対象：" & _
        targetSheet.Cells(1, columnIndex).Address & _
        " / " & _
        targetSheet.Cells(1, columnIndex).Value

End If

この状態で実行すると、削除予定のセル位置と見出しを確認できます。

確認するときは、

  1. 本当に不要な列だけが検出されているか
  2. 判定する見出し行は正しいか
  3. 同じ見出しが複数存在しても問題ないか
  4. 完全一致と部分一致のどちらが適切か
  5. 削除してはいけない固定列が含まれていないか

といった点を確認します。

問題がなければ、最終的に削除処理へ置き換えます。

targetSheet.Columns(columnIndex).Delete

特に既存ファイルへ初めてマクロを適用する場合は、この確認工程を挟むことで誤削除のリスクを抑えられます。

✅ VBAで列削除を自動化するときは削除条件を明確にする

列削除のコードは短く書けますが、実務では「何を削除条件にするのか」の方が重要です。同じ「特定の値を含む列」であっても、見出しの完全一致、見出しの部分一致、データ部分の一致では処理結果が大きく変わります。

さらに複数の条件を扱う場合、条件をコードの各所へ直接記述すると仕様変更時の修正漏れにつながります。削除条件を変数や配列として分離し、処理対象のシートや判定行も明示しておけば、後からコードを見た担当者も処理内容を把握しやすくなります。自動削除ではコードの短さよりも、削除対象を説明できる設計を優先することが重要です。

・削除ではなく非表示や別シートへの退避も検討する

業務によっては、条件に一致した列を必ずしも削除する必要はありません。

例えば、

  • 後から元データを確認する可能性がある
  • 一時的に不要な項目だけ見えなくしたい
  • 削除対象が正しいか担当者が確認する必要がある

といった場合は、列削除より非表示や別シートへのコピーが適していることもあります。

削除はデータそのものを取り除く処理ですが、非表示なら元データを保持できます。

また、必要な列だけ別シートへ抽出する設計なら、元データを変更せずに加工後のデータを作成することも可能です。

VBAで自動化するときは「削除できるから削除する」のではなく、後続処理やデータ保全まで含めて方法を選ぶことが大切です。

条件に一致した列を完全に削除する必要がない場合は、目的に応じて処理方法を変えることも大切です。元データを残したまま一時的に見えなくする場合は「【VBA】条件に一致する列を非表示にする方法｜見出しや値を判定して自動処理」、必要な列だけを別シートへ取り出したい場合は「【VBA】条件に一致する列だけを別シートへ抽出する方法｜データ転記を自動化」で、それぞれの処理方法を詳しく解説しています。

 

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

VBAを使えば、見出しやデータの値を判定して、条件に一致する列をまとめて削除できます。ただし、列を削除すると右側の列番号が変わるため、複数列を処理するときは右端から左方向へ確認することが基本です。

また、「特定の値を含む」という条件についても、完全一致と部分一致では削除対象が大きく変わります。実務では、まず判定範囲と削除条件を明確にし、本当に不要な列だけを処理できる設計にすることが重要です。

  • 見出しを基準にする場合は、見出し行だけに判定範囲を限定する
  • 複数列を削除するときは右端から左方向へ処理する
  • 見出しが固定されている場合は完全一致を基本にする
  • 複数の削除対象は配列にまとめると仕様変更へ対応しやすい
  • 部分一致は意図しない列まで対象にならないか確認して使用する
  • データ部分を判定する場合は、1件の一致で列全体を削除してよいか検討する
  • 本番データへ適用する前に、削除予定の列を確認すると誤削除を防ぎやすい
  • データを残す必要がある場合は、削除だけでなく非表示や別シートへの退避も検討する

列削除の自動化で大切なのは、単に指定した文字を検索することではなく、「なぜその列を削除してよいのか」を明確な条件としてコードに落とし込むことです。

対象シート、判定行、削除条件を明示したうえで右から左へ処理すれば、複数の不要列が存在するデータでも安全に整理しやすくなります。

まずは削除処理を実行せず対象列だけを確認し、実際のデータ構成と判定結果が一致していることを確かめてから本番処理へ組み込むとよいでしょう。

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