Excelの表データから特定の値を検索したいとき、MATCH関数を使えば該当するセルの相対行番号を取得できます。
本記事では、VBAからMATCH関数を利用して、特定の文字列が完全に一致するセルを検索し、結果に応じて処理を分岐する方法をご紹介いたします。
目次
想定される活用シーン
- 名前やIDなど、一意な情報を検索して行番号を取得したい。
- データの中から完全一致する情報のみ抽出したい。
- 検索結果をもとに対象セルへジャンプしたい。
VBAコードの例
以下のコードでは、セル範囲 B1:B11 の中から「森」という文字列と完全に一致するセルを検索し、その位置に応じた処理を実行します。
Sub FindExactMatchRow()
Dim resultRow As Long
resultRow = 0
On Error Resume Next
resultRow = WorksheetFunction.Match("森", Range("B1:B11"), 0)
On Error GoTo 0
If resultRow = 0 Then
MsgBox "該当するデータは見つかりませんでした。", vbExclamation
Else
MsgBox "該当するのは、範囲内で " & resultRow & " 行目のデータです。", vbInformation
Cells(resultRow, 2).Select ' B列を基準にして該当セルを選択
End If
End Sub
各構文のポイント解説
| 項目 | 説明 |
|---|---|
WorksheetFunction.Match | VBAでMATCH関数を使うための書き方です。 |
"森" | 完全に一致させたい検索対象の文字列です。 |
0 | 検索モード。0は完全一致を意味します。 |
On Error Resume Next | 該当データがないとエラーになるため、一時的にエラーを無視します。 |
Cells(resultRow, 2).Select | B列における相対位置をもとに、該当セルを選択します。 |
注意点と補足
MATCH関数は**検索範囲内の何番目か（相対行番号）**を返します。絶対行番号ではない点に注意してください。- 大文字小文字の違いは無視されます（たとえば「森」と「森」は一致と判定されます）。
- 該当データが存在しないとエラーになるため、
On Error構文で事前に回避処理を入れるのが安全です。
まとめ
VBAでMATCH関数を利用することで、Excel上のデータから特定の文字列を完全一致で検索し、その位置を取得する処理を簡潔に実装できます。
該当セルが見つかったら選択・編集・削除など自由に操作が可能となり、データの自動処理やユーザー補助機能として活用できます。
日常業務での検索処理を効率化したい方は、ぜひ本記事の方法を取り入れてみてください。
