なぜ、VLOOKUPだけでは不十分なのか？
実務でデータを扱う際、VLOOKUP関数は非常に強力ですが、大きな弱点があります。それは「検索値が重複していると、最初に見つかったデータしか返さない」という点です。例えば、同姓同名の顧客が複数いる場合、単純な氏名検索では誤ったデータを取得してしまいます。
これを解決するために、「氏名」と「生年月日」といった複数のキーを組み合わせて対象を特定する必要があります。今回は、VBAを使ってこの「複数条件でのデータ抽出」をスマートに実現する方法を解説します。
基礎知識：複数条件抽出の考え方
VBAで複数条件による抽出を行う際、最も効率的なのは「Range.Findメソッド」を応用するか、あるいは「フィルター機能」や「SQL（ADO）」を利用する方法です。
しかし、最も直感的で現場で即戦力となるのは、「ループ処理で全行を順次チェックし、条件に合致した行を特定する」というアプローチです。これは、複雑な関数を組むよりもデバッグがしやすく、条件が動的に変わる場合でも柔軟に対応できるというメリットがあります。
実装のポイント
以下のプログラムでは、指定した範囲内から「氏名」と「生年月日」の両方が一致する行を探し、その行にある「連絡先」を取得するロジックを実装します。
サンプルプログラム：複数条件でデータを抽出する
Sub ExtractDataByMultipleConditions()
Dim ws As Worksheet
Dim lastRow As Long
Dim i As Long
Dim targetName As String, targetDate As String
Dim result As String
‘ 検索したい条件を設定
targetName = “田中正美”
targetDate = “1990/01/01”
Set ws = ThisWorkbook.Sheets(“データシート”) ‘ 検索対象のシート
lastRow = ws.Cells(ws.Rows.Count, “F”).End(xlUp).Row ‘ F列のデータ最終行を取得
result = “該当なし”
‘ 2行目から最終行までループして条件を判定
For i = 2 To lastRow
‘ 氏名(F列)と生年月日(G列)を両方チェック
If ws.Cells(i, 6).Value = targetName And ws.Cells(i, 7).Value = CDate(targetDate) Then
‘ 条件一致した行の連絡先(H列)を取得
result = ws.Cells(i, 8).Value
Exit For ‘ 見つかった時点でループを終了
End If
Next i
‘ 結果を表示
MsgBox “該当者の連絡先は：” & result
End Sub
応用と注意点：現場で陥りやすい罠
1. データ型の不一致に注意：
今回のように日付を条件にする場合、セル上の表示形式とVBAが認識する値が異なることがあります。`CDate`関数を使用して、確実に日付型として比較することがバグを防ぐ鍵です。
2. 全角・半角の揺れ：
Excelのデータには、同じ「田中」でも全角と半角が混在しているケースがあります。比較する前に `StrConv(ws.Cells(i, 6).Value, vbNarrow)` などで正規化する処理を入れると、より堅牢なプログラムになります。
3. 大量データの場合：
数万行を超えるデータを扱う場合は、ループ処理よりも配列（Array）にデータを一度読み込んでから判定を行う方が、処理速度が圧倒的に速くなります。まずは上記のループ処理でロジックを理解し、必要に応じて配列処理へステップアップしてみてください。
VLOOKUPの限界を感じたときこそ、VBAによる「論理的な絞り込み」があなたの強力な武器になります。ぜひ現場の業務効率化に役立ててください。
