【2026年7月最新】VBA Find・FindNextで検索する完全ガイド｜完全一致・部分一致・複数ヒット・落とし穴まで網羅

この記事の内容

1. 01Findメソッドとは（基本と仕組み）
2. 02Findメソッドの引数9個を完全解説
3. 03完全一致・部分一致・Nothing判定の基本
4. 04FindNextで複数ヒットを検索する
5. 05FindPreviousで逆順検索する
6. 06複数条件（OR検索・AND検索）の実装
7. 07【重要】引数の設定が前回の値を引き継ぐ罠
8. 08複数シートをまたいだ検索の実装
9. 09実務ユースケース別テンプレートコード集
10. 10Claude CodeでFind検索マクロを自動生成する
11. FAQよくある質問

📚 用語解説

Findメソッド：RangeオブジェクトのメソッドでRange.Find(What, ...)という形で使う。指定した文字列・数値・日付などを検索範囲内で探し、最初に見つかったセルをRangeオブジェクトで返す。見つからない場合はNothingを返す。ExcelのCtrl+Fと同じ機能をVBAから呼び出せる。

Cells.Find(...) で全シート検索、Columns("A").Find(...) でA列のみ、Range("B:D").Find(...) でB〜D列のみ、というように検索範囲を柔軟に絞り込めます。大きなシートでは検索範囲を絞るほど高速になります。

' Findメソッドの完全構文
Range("検索範囲").Find(
    What,           ' 【必須】検索する値
    After,          ' 検索を開始するセル（このセルの「次」から開始）
    LookIn,         ' 検索対象（値/数式/コメント）
    LookAt,         ' 一致方法（完全一致/部分一致）
    SearchOrder,    ' 検索方向（行方向/列方向）
    SearchDirection,' 検索の進行方向（前方/後方）
    MatchCase,      ' 大文字小文字を区別するか
    MatchByte,      ' 全角半角を区別するか
    SearchFormat    ' 書式条件で検索するか
)

LookIn・LookAt・SearchOrder・MatchCase・MatchByteの5引数は、省略すると前回のFindまたはCtrl+F検索ダイアログの設定値が使われます。これが「同じコードなのに結果が変わる」原因になります。詳しくはSection7で解説します。

📚 用語解説

LookIn：Findメソッドの引数で、何を対象に検索するかを指定する。xlValues（セルに表示されている値）、xlFormulas（数式そのもの。数式バーの内容）、xlComments（コメント・メモの内容）の3種類。計算結果の数値で検索したいならxlValues、数式文字列で検索したいならxlFormulas。

Sub FindExactMatch()
    Dim rng As Range
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    ' 完全一致で "東京都" を検索
    ' LookAt:=xlWhole で完全一致を明示する（省略すると前回設定が引き継がれる）
    Set rng = ws.Range("A:A").Find(
        What:="東京都",
        LookAt:=xlWhole,
        LookIn:=xlValues
    )

    ' Nothing チェック（見つからない場合のハンドリング）
    If rng Is Nothing Then
        MsgBox "「東京都」は見つかりませんでした"
    Else
        MsgBox "「東京都」が見つかりました: " & rng.Address & " (行=" & rng.Row & ")"
        rng.Select  ' 見つかったセルを選択
    End If
End Sub

📚 用語解説

xlWhole / xlPart：VBA定数。xlWhole（値=1）は完全一致で「セルの内容が検索文字列と完全に一致するセル」のみ返す。xlPart（値=2）は部分一致で「セルの内容に検索文字列が含まれるセル」を返す。例: 検索語「東京」でxlWholeは「東京」だけ、xlPartは「東京都」「東京駅」なども返す。

Sub FindPartialMatch()
    Dim rng As Range
    Set rng = ActiveSheet.Cells.Find(
        What:="株式会社",
        LookAt:=xlPart,     ' 部分一致
        LookIn:=xlValues
    )

    If Not rng Is Nothing Then
        MsgBox "最初のヒット: " & rng.Value & " (行:" & rng.Row & ")"
    End If
End Sub

' ワイルドカードも使える（LookAtの設定に注意）
Sub FindWithWildcard()
    Dim rng As Range
    ' "*2026*" で2026を含む任意の文字列を検索
    Set rng = ActiveSheet.Range("A:A").Find(
        What:="*2026*",
        LookAt:=xlWhole,    ' ワイルドカード使用時はxlWholeが安全
        LookIn:=xlValues
    )
    If Not rng Is Nothing Then
        MsgBox "発見: " & rng.Value
    End If
End Sub

What引数に「*」（任意の文字列）や「?」（任意の1文字）のワイルドカードが使えます。「*東京*」で「東京」を含む文字列、「??株式会社」で2文字+株式会社の検索が可能です。ワイルドカードを使う場合はLookAt:=xlWholeの方が結果が予測しやすいです。

FindNextは検索範囲の末尾まで来ると自動的に先頭に戻って検索を続けます。終了条件を設定しないと永遠に回り続けるため、「最初に見つかったセルのアドレスを保存して、再度同じアドレスに来たらループを抜ける」という終了条件が必須です。

Sub FindNextMultiple()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    Dim rng As Range
    Dim firstAddr As String     ' 最初に見つかったアドレスを記録する

    ' 最初のFindで1件目を取得
    Set rng = ws.Columns("A").Find(
        What:="東京",
        LookAt:=xlPart,
        LookIn:=xlValues
    )

    ' 1件も見つからない場合は終了
    If rng Is Nothing Then
        MsgBox "検索結果なし"
        Exit Sub
    End If

    ' 最初に見つかったアドレスを保存（ループ終了判定に使う）
    firstAddr = rng.Address

    Dim hitCount As Long
    hitCount = 0

    ' 無限ループ対策付きのDo Loop
    Do
        hitCount = hitCount + 1
        Debug.Print hitCount & "件目: " & rng.Address & " / " & rng.Value

        ' 任意の処理（例: 背景色を変える）
        rng.Interior.ColorIndex = 6  ' 黄色

        ' 次のヒットを検索
        Set rng = ws.Columns("A").FindNext(rng)

        ' 最初のセルに戻ってきたらループ終了
    Loop While Not rng Is Nothing And rng.Address <> firstAddr

    MsgBox hitCount & "件見つかりました"
End Sub

📚 用語解説

FindNextメソッド：RangeオブジェクトのメソッドでRange.FindNext(After)という形で使う。Findで最初の1件を見つけた後、同じ検索条件で次のヒットを順番に取得できる。FindNextはSearchDirection:=xlNextで前方（下）方向に進む。After引数には「前回見つかったセル」を渡す。

' ===== FindPreviousを使って逆順に検索 =====
Sub FindPreviousExample()
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("Sheet1")

    Dim rng As Range
    Dim firstAddr As String

    ' まず最初の1件を取得（通常のFindで下から順に返す起点を決める）
    Set rng = ws.Columns("A").Find(
        What:="東京",
        LookAt:=xlPart,
        LookIn:=xlValues,
        SearchDirection:=xlPrevious  ' ← 後方（上方向）検索
    )

    If rng Is Nothing Then
        MsgBox "見つかりませんでした"
        Exit Sub
    End If

    firstAddr = rng.Address

    Dim results() As String
    Dim count As Long
    count = 0

    Do
        count = count + 1
        ReDim Preserve results(count - 1)
        results(count - 1) = rng.Address & "(" & rng.Value & ")"

        Set rng = ws.Columns("A").FindPrevious(rng)
    Loop While Not rng Is Nothing And rng.Address <> firstAddr

    MsgBox count & "件 (逆順): " & Join(results, ", ")
End Sub

A列の最後に入力されたデータ行を探す場合、「Find + SearchDirection:=xlPrevious」または「FindPrevious」を使うと、最後のデータがある行番号を素早く取得できます。Cells(Rows.Count,"A").End(xlUp).Row との使い分けは、「見つかったセルの値も必要かどうか」で判断しましょう。

Sub OrSearch()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim keywords() As String
    keywords = Array("東京", "大阪")  ' ← OR検索する複数キーワード

    Dim hitAddrs As New Collection  ' 重複しないようコレクションで管理

    Dim kw As Variant
    For Each kw In keywords
        Dim rng As Range
        Dim firstAddr As String

        Set rng = ws.Columns("A").Find(
            What:=kw,
            LookAt:=xlPart,
            LookIn:=xlValues
        )

        If Not rng Is Nothing Then
            firstAddr = rng.Address
            Do
                ' 重複チェックしてからコレクションに追加
                Dim isDup As Boolean
                isDup = False
                Dim addr As Variant
                For Each addr In hitAddrs
                    If addr = rng.Address Then isDup = True: Exit For
                Next addr
                If Not isDup Then hitAddrs.Add rng.Address

                Set rng = ws.Columns("A").FindNext(rng)
            Loop While Not rng Is Nothing And rng.Address <> firstAddr
        End If
    Next kw

    MsgBox "OR検索ヒット数: " & hitAddrs.Count & "件"
End Sub

Sub AndSearch()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim keyword1 As String: keyword1 = "株式会社"  ' 条件1
    Dim keyword2 As String: keyword2 = "東京"       ' 条件2

    Dim rng As Range
    Dim firstAddr As String

    ' まずkeyword1でFindNextループ
    Set rng = ws.Columns("A").Find(
        What:=keyword1,
        LookAt:=xlPart,
        LookIn:=xlValues
    )

    If rng Is Nothing Then
        MsgBox "「" & keyword1 & "」が見つかりませんでした"
        Exit Sub
    End If

    firstAddr = rng.Address
    Dim hitCount As Long: hitCount = 0

    Do
        ' InStr で keyword2 も含まれているか確認（AND条件）
        If InStr(rng.Value, keyword2) > 0 Then
            hitCount = hitCount + 1
            rng.Interior.ColorIndex = 4  ' 緑でマーク
            Debug.Print "AND一致: " & rng.Address & " = " & rng.Value
        End If
        Set rng = ws.Columns("A").FindNext(rng)
    Loop While Not rng Is Nothing And rng.Address <> firstAddr

    MsgBox "AND検索ヒット数: " & hitCount & "件"
End Sub

📚 用語解説

InStr関数：ある文字列の中に別の文字列が含まれているか調べるVBA組み込み関数。InStr("株式会社東京", "東京")は、"東京"が何文字目から始まるかの位置番号を返す（この例では5）。含まれない場合は0を返す。InStr(...) > 0 でTrue/False判定ができる。AND検索に多用される。

LookAt を省略したコードを書いたとします。ある日、手動でCtrl+Fを使って「セル内容が完全に一致するもの」を探したとします。その後にマクロを実行すると、LookAt が xlWhole（完全一致）になります。しかし別の日に Ctrl+F で「セルの内容の一部として検索」を使っていた場合は xlPart（部分一致）になります。全く同じコードなのに結果が変わるのはこのためです。

' ===== 問題のあるコード（LookAtを省略している） =====
Sub BadFind()
    ' LookAt を省略 → 前回の設定（Ctrl+FやFindの残存値）が使われる
    Dim rng As Range
    Set rng = Cells.Find(What:="東京都")
    If Not rng Is Nothing Then
        MsgBox "見つかった: " & rng.Value
    End If
End Sub

' ===== 安全なコード（引数を全部明示する） =====
Sub SafeFind()
    ' 全引数を明示 → 環境に左右されない安定したコード
    Dim rng As Range
    Set rng = Cells.Find(
        What:="東京都",
        LookIn:=xlValues,       ' ← 明示: セルの値を対象
        LookAt:=xlWhole,        ' ← 明示: 完全一致
        SearchOrder:=xlByRows,  ' ← 明示: 行ごとに検索
        MatchCase:=False,       ' ← 明示: 大文字小文字は区別しない
        MatchByte:=False        ' ← 明示: 全角半角は区別しない
    )

    If Not rng Is Nothing Then
        MsgBox "見つかった: " & rng.Value
    End If
End Sub

' ===== 引数明示の省力化: ラッパー関数を作る =====
' 毎回SafeFindを呼ぶだけでデフォルト引数が保証される
Function SafeFind(rng As Range, what As String, _
                  Optional lookAt As XlLookAt = xlWhole, _
                  Optional matchCase As Boolean = False) As Range
    Set SafeFind = rng.Find(
        What:=what,
        LookIn:=xlValues,
        LookAt:=lookAt,
        SearchOrder:=xlByRows,
        MatchCase:=matchCase,
        MatchByte:=False
    )
End Function

' 使い方（常に同じ引数設定が保証される）
Sub UseWrapper()
    Dim result As Range
    Set result = SafeFind(ActiveSheet.Columns("A"), "東京都")
    If Not result Is Nothing Then
        MsgBox "発見: " & result.Address
    End If
End Sub

Sub SearchAllSheets()
    Dim wb As Workbook
    Set wb = ThisWorkbook

    Dim searchWord As String
    searchWord = "東京"

    Dim ws As Worksheet
    Dim rng As Range
    Dim firstAddr As String
    Dim totalHits As Long
    totalHits = 0

    ' 全シートをループ
    For Each ws In wb.Worksheets
        Dim searchRange As Range
        Set searchRange = ws.Cells  ' シート全体を対象

        Set rng = searchRange.Find(
            What:=searchWord,
            LookIn:=xlValues,
            LookAt:=xlPart,
            SearchOrder:=xlByRows,
            MatchCase:=False,
            MatchByte:=False
        )

        If Not rng Is Nothing Then
            firstAddr = rng.Address

            Do
                totalHits = totalHits + 1
                Debug.Print "【" & ws.Name & "】" & rng.Address & ": " & rng.Value

                ' 検索結果をハイライト
                rng.Interior.ColorIndex = 6  ' 黄色

                Set rng = searchRange.FindNext(rng)
            Loop While Not rng Is Nothing And rng.Address <> firstAddr
        End If
    Next ws

    MsgBox "全シート検索完了: 「" & searchWord & "」が " & totalHits & "件見つかりました"
End Sub

For Each ws In wb.Worksheets ループ内で If ws.Name = "Sheet1" Or ws.Name = "Sheet2" Then ... のように条件を追加するか、検索対象シートの配列を予め定義しておくとすっきりします。非表示シートを除外したい場合はIf ws.Visible = xlSheetVisible Thenを追加します。

' 商品コードでA列を検索し、同じ行のB列（価格）を取得する
Function GetPriceByCode(productCode As String) As Long
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Worksheets("商品マスタ")

    Dim rng As Range
    Set rng = ws.Columns("A").Find(
        What:=productCode,
        LookAt:=xlWhole,   ' 商品コードは完全一致
        LookIn:=xlValues,
        MatchCase:=False,
        MatchByte:=False
    )

    If rng Is Nothing Then
        GetPriceByCode = -1  ' 見つからない場合は-1を返す
    Else
        GetPriceByCode = rng.Offset(0, 1).Value  ' B列（1つ右のセル）を取得
    End If
End Function

' 使い方
Sub SampleUsage()
    Dim price As Long
    price = GetPriceByCode("A-001")
    If price = -1 Then
        MsgBox "商品コードが見つかりません"
    Else
        MsgBox "価格: ¥" & Format(price, "#,##0")
    End If
End Sub

' A列で重複している値をすべて黄色でハイライトする
Sub HighlightDuplicates()
    Dim ws As Worksheet
    Set ws = ActiveSheet

    Dim lastRow As Long
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row

    Dim i As Long
    For i = 1 To lastRow
        Dim cellVal As String
        cellVal = ws.Cells(i, 1).Value
        If cellVal = "" Then GoTo NextRow

        ' 同じ値が2件以上あるかFindNextで確認
        Dim rng As Range
        Dim firstAddr As String
        Dim hitCount As Long
        hitCount = 0

        Set rng = ws.Columns("A").Find(
            What:=cellVal,
            LookAt:=xlWhole,
            LookIn:=xlValues,
            MatchCase:=False,
            MatchByte:=False
        )

        If Not rng Is Nothing Then
            firstAddr = rng.Address
            Do
                hitCount = hitCount + 1
                Set rng = ws.Columns("A").FindNext(rng)
            Loop While Not rng Is Nothing And rng.Address <> firstAddr
        End If

        ' 2件以上あれば重複と判断して全件ハイライト
        If hitCount >= 2 Then
            Set rng = ws.Columns("A").Find(
                What:=cellVal, LookAt:=xlWhole, LookIn:=xlValues,
                MatchCase:=False, MatchByte:=False
            )
            firstAddr = rng.Address
            Do
                rng.Interior.ColorIndex = 6  ' 黄色
                Set rng = ws.Columns("A").FindNext(rng)
            Loop While Not rng Is Nothing And rng.Address <> firstAddr
        End If

        NextRow:
    Next i

    MsgBox "重複チェック完了"
End Sub

📚 用語解説

Offset(row, column)：Rangeオブジェクトのプロパティで、指定したセルから相対的にずれた位置のセルを返す。rng.Offset(0, 1)は同じ行の1列右、rng.Offset(1, 0)は1行下のセル。Findで見つかったセルの隣の列の値を取得したい場合（商品コード→価格、名前→電話番号 等）によく使う。

NEXT STEP

この記事の内容を、あなたのビジネスで
実践してみませんか？