VBAで自動化 VBA一覧 データ取得 抽出・検索処理

【VBA】条件に合うデータを抽出する方法｜For文・IF文で実務データを自在に扱う

Excelでデータを扱っていると、「特定の条件に合うデータだけを抽出したい」という場面は非常に多くあります。
例えば、売上データから特定の担当者だけを抜き出したり、ステータスが「完了」の行だけを抽出したりといったケースです。

関数やフィルターでも対応可能ですが、複雑な条件・繰り返し処理・別シートへの出力まで含めると、VBAの方が圧倒的に柔軟で効率的です。

この記事では、For文とIF文を使って、条件に合うデータを抽出する方法を、実務レベルの設計意図とともに解説します。

✅ VBAで条件に合うデータを抽出する基本の考え方

VBAでの抽出処理は、「全データを1件ずつ確認し、条件に合うものだけを取得する」という流れが基本です。
ここを曖昧にしたまま書き始めると、後から条件追加や仕様変更に対応できず、結果として“動くけど使えないマクロ”になりがちです。
特に、途中で条件が増えた場合にネストが深くなり、可読性が崩壊するケースもよくあります。
また、「どこに出力するのか」を先に決めていないと、処理途中で書き換えが発生しやすくなります。
さらに、ループ範囲の指定が曖昧だと、無駄な処理が増えてパフォーマンス低下にも繋がります。
この章では、そうした失敗を防ぐための“設計の前提”をしっかり押さえます。

・基本構造：For文＋IF文での抽出フロー

VBAでの基本的な抽出の流れは以下です。

  1. 最終行を取得する
  2. For文で1行ずつループ
  3. IF文で条件判定
  4. 条件に合えば出力

この流れをベースに、ほぼすべての抽出処理が構築できます。

✅ For文・IF文で条件抽出を実装する基本コード

ここでは、実際に使える基本コードを紹介します。
ただコードをコピーするだけでは応用が効かず、少し条件が変わっただけで使えなくなるケースが非常に多いです。
特に、「なぜこの書き方なのか」を理解せずに使うと、パフォーマンスや保守性に大きな差が出ます。
また、変数設計を適当にすると、後から別シート対応や列変更が発生したときに大きく崩れます。
この章では、コードの“形”ではなく、“設計意図”を理解することを重視してください。

・例：特定の条件に合う行を別シートに抽出する

以下は、「A列が"営業"の行だけを別シートに出力する」例です。

Sub ExtractDataByCondition()

    Dim sourceSheet As Worksheet
    Dim targetSheet As Worksheet
    Dim lastRow As Long
    Dim outputRow As Long
    Dim rowIndex As Long

    Set sourceSheet = ThisWorkbook.Sheets("元データ")
    Set targetSheet = ThisWorkbook.Sheets("抽出結果")

    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, 1).End(xlUp).Row
    outputRow = 2 ' 出力開始行

    For rowIndex = 2 To lastRow

        If sourceSheet.Cells(rowIndex, 1).Value = "営業" Then

            sourceSheet.Rows(rowIndex).Copy
            targetSheet.Rows(outputRow).PasteSpecial xlPasteValues

            outputRow = outputRow + 1

        End If

    Next rowIndex

End Sub

・なぜこの構造にしているのか（設計意図）

このコードは、役割ごとに変数を分けているのがポイントです。

  • sourceSheet：取得元
  • targetSheet：出力先
  • rowIndex：ループ用
  • outputRow：書き込み位置

これにより、
シート変更・列変更・出力方法変更に柔軟に対応できる設計になっています。

・別の書き方と比べたメリット

例えば、以下のような書き方も可能です。

For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row

しかしこの書き方は、

  • シートが曖昧（ActiveSheet依存）
  • 可読性が低い
  • バグの原因になりやすい

というデメリットがあります。

今回のコードは、明示的にオブジェクトを指定することで安全性を高めています。

・実務で気をつけるポイント

  • コピーではなく値貼り付けにする（速度・軽量化）
  • ヘッダー行を避ける（2行目からループ）
  • 出力行を別管理する（上書き防止）

このあたりを意識するだけで、実務での安定性が大きく変わります。

条件抽出の精度と安定性は、「どのようにセルの値を取得しているか」で大きく変わります。実務で壊れない処理を設計したい方は、「【VBA】特定範囲のセルの値を取得する方法｜ループ処理で実務データを扱う基本」も必ず押さえておきましょう。

✅ 複数条件でデータを抽出する方法（実務で最重要）

単一条件だけでなく、複数条件を扱うケースは非常に多いです。
しかしここで多くの人が「IFのネスト地獄」にハマります。
条件が増えるたびにIFを入れ子にしてしまい、後から修正できないコードになるのが典型的な失敗です。
また、条件の優先順位を意識していないと、意図しないデータが抽出される原因にもなります。
この章では、実務で使いやすい複数条件の設計を解説します。

・例：部門が営業かつ売上が100万円以上

If sourceSheet.Cells(rowIndex, 1).Value = "営業" And _
   sourceSheet.Cells(rowIndex, 2).Value >= 1000000 Then

・設計のポイント（なぜこの形にするのか）

  • 条件は横に並べる（可読性向上）
  • And / Or を明確に使い分ける
  • 行単位で判断する

これにより、条件追加・変更がしやすい構造になります。

・実務での応用例

  • ステータス＋日付条件
  • 部門＋担当者条件
  • 金額＋フラグ条件

ほとんどの業務データは、このパターンで対応可能です。

実務では条件が増えるほど、AND・ORの組み合わせ設計が重要になります。ここを曖昧にすると、後からバグや仕様ミスの原因になりやすいため注意が必要です。安定した条件分岐を設計したい方は、「【VBA】IF文のandとorを組み合わせた複数条件｜実務で迷わない条件設計」も必ず押さえておきましょう。

✅ 抽出処理を高速化する実務テクニック

データ件数が増えると、処理速度が問題になります。
特に1万件以上になると、Copy処理やセルアクセスの回数がボトルネックになります。
「動くけど遅い」状態は、実務では致命的です。
この章では、実務で必須となる高速化の考え方を紹介します。

・改善ポイント

  • Copyを減らす
  • 配列を使う
  • ScreenUpdatingをOFF

・例：画面更新を止める

Application.ScreenUpdating = False
' 処理
Application.ScreenUpdating = True

・なぜ重要なのか

画面更新を止めるだけで、体感で2〜5倍速くなるケースもあります。

実務で大量データを扱う場合、セル単位の処理では限界があります。安定した高速処理を実現するには、配列を前提とした設計に切り替えることが重要です。より実践的な手法は、「【VBA】範囲指定のセルの値を配列に格納する方法｜処理速度と保守性を両立する実務設計」で詳しく解説しています。

✅ VBAで抽出処理を設計する際の実務判断

抽出処理は単なる「データ取得」ではなく、業務設計そのものです。
適当に書くと、後から仕様変更が来たときに崩壊します。
逆に、設計を意識すれば長く使える資産になります。

・設計で意識すべきこと

  • 条件は後から増える前提で書く
  • 出力先は柔軟に変えられるようにする
  • データ構造に依存しすぎない

・よくある失敗

  • ActiveSheet依存
  • ベタ書きの列番号
  • 条件がコード内に散らばる
 

✅ まとめ：VBAで条件抽出を自在に扱う

  • For文で全データをループするのが基本
  • IF文で条件を柔軟に設定できる
  • 変数設計が保守性を大きく左右する
  • 複数条件は整理して書くことで可読性が上がる
  • 高速化は実務では必須スキル

VBAでの抽出処理は、単なるテクニックではなく「業務を効率化するための設計力」が問われる分野です。
ここをしっかり押さえることで、Excel作業の自動化レベルが一段上がります。

    -VBAで自動化, VBA一覧, データ取得, 抽出・検索処理