ExcelのVBAのFindメソッドとは？意味や具体的な使い方を解説

監修者

NEUTRAL編集部

NEUTRALは、株式会社ニュートラルワークスが運営するデジタルマーケティング情報メディアです。

VBAを勉強することで、さまざまなマクロを組むことができるため、Excelを活用する方にとっては非常に役立つスキルです。今回の記事では、VBAの中でも重要なFindメソッドの基本的な意味から実際の使い方までを詳しく解説します。

ExcelVBAのFindメソッドとは？
ExcelVBAのFindメソッドの引数と戻り値
ExcelVBAのFindメソッドで文字列を検索する方法
ExcelVBAのFindメソッドで複数の条件を指定して検索する方法
- Or検索
- And検索
ExcelVBAのFindメソッドを使う際の注意点
ExcelVBAのFindメソッドを使って検索結果を複数取得しよう

ExcelVBAのFindメソッドとは？

ExcelのVBAにおけるFindメソッドは、ワークシート内の特定の値や文字列を検索するためのメソッドです。Findメソッドを利用することで、大量のデータの中から目的の情報を迅速に見つけ出すことができます。

たとえば、何千行にも及ぶデータの中から特定のキーワードや数値を検索したいとします。このような場合、手動での検索は時間がかかりますが、Findメソッドを使用することで、素早く位置を特定できます。

ExcelVBAのFindメソッドの引数と戻り値

Findメソッドにはいくつかの主要な引数があり、それぞれに特定の役割があります。

After	検索を開始するセルを指定します
LookIn	検索する値の種類（値、書式など）を指定します。
LookAt	部分一致か完全一致かを選択します。
SearchOrder	行または列の順番で検索するかを指定します。

上記の引数を適切に設定することで、条件を指定した検索が可能になります。検索結果として、該当するセルをRangeオブジェクトとして受け取ります。一致するものがない場合は、Nothingという特殊な値が戻り値として返されます。

ExcelVBAのFindメソッドで文字列を検索する方法

VBAでEcxel上の文字列を検索する場合、Findメソッドと引数を設定することでさまざまな条件の検索が可能となります。ここでは、それぞれの条件ごとの記載方法について紹介します。

全文一致で検索してみよう

Excel VBAで文字列の完全な一致を検索する際、LookAt:引数で=xlWholeを定数に指定して使用します。

Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A100").Find(What:="キーワード", LookAt:=xlWhole)
If Not rng Is Nothing Then
    MsgBox "見つかったセルのアドレスは" & rng.Address & "です。"
Else
    MsgBox "キーワードを含むセルは見つかりませんでした。"
End If

このコードでは、A1からA100までの範囲で”キーワード”という文字列が完全に一致するセルを検索しています。If Not rng Is Nothingで該当するセルが見つかったかどうかを判断しています。

部分一致で検索してみよう

部分一致の検索は、特定のキーワードが含まれるセルを探す際に使用されます。LookAtの引数で定数にxlPartを指定することで、部分一致の検索が可能です。

Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A100").Find(What:="部", LookAt:=xlPart)
If Not rng Is Nothing Then
    MsgBox "部分一致するセルのアドレスは" & rng.Address & "です。"
Else
    MsgBox "部分一致するセルはありませんでした。"
End If

このコードは、セルの内容に”部”という文字列が部分一致する場所を検索します。

複数セルを検索してみよう

Findメソッドは最初に該当するセルのみを返します。複数の該当セルを見つけるためには、FindNextメソッドと組み合わせる必要があります。

Dim rng As Range, firstAddress As String
Set rng = Sheets("Sheet1").Range("A1:A100").Find(What:="キーワード")
If Not rng Is Nothing Then
    firstAddress = rng.Address
    Do
        MsgBox "キーワードを含むセルのアドレス: " & rng.Address
        Set rng = Sheets("Sheet1").Range("A1:A100").FindNext(rng)
    Loop While Not rng Is Nothing And rng.Address <> firstAddress
End If

上記のようにFindメソッドの後に、FndNextメソッドを加えることで、条件に合致したセルが見つかっても、続けて検索し続けます。このとき、FindNextには引数を設定しなくても大丈夫です。

ただし、FindNextメソッドは最後まで検索を行うと、指定した範囲の最初にループするようにできています。このため、ループを抜ける指示をださないと永久に検索し続けるため気をつけましょう。

値が見つからないときは？

該当する値や文字列が見つからない場合、FindメソッドはNothingを返します。

Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A100").Find(What:="キーワード")
If rng Is Nothing Then
    MsgBox "指定したキーワードを含むセルが見つかりませんでした。"
Else
    MsgBox "キーワードを含むセルのアドレスは" & rng.Address & "です。"
End If

このコードでは、検索結果がNothing（つまり、該当するセルがない）の場合に、エラーメッセージを表示しています。

ExcelVBAのFindメソッドで複数の条件を指定して検索する方法

ExcelVBAのFindメソッドは柔軟に、複数の条件を指定してセル内のデータを検索することが可能です。ここでは、複数の条件を用いたOr検索とAnd検索の方法を詳しく解説します。

Or検索

Or検索は、いずれかの条件に一致するセルを検索します。VBAでは、Findメソッドを複数回実行し、それぞれの条件を判定することでOr検索を実現します。

Dim rng As Range

   Set rng = Range("A1:A100")
    Set myObj = myRange.Find(keyWord1, LookAt:=xlPart)
   If myObj Is Nothing Then
        MsgBox "'" & keyWord1 & "'と'" & keyWord2 & "'のどちらも含みませんでした"
        Exit Sub
    End If
    
    Dim msg As String
    Dim myCell As Range
    Set myCell = myObj
    Do
        If InStr(myCell.Value, keyWord2) <> 0 Then
            msg = msg & "'" & keyWord1 & "'と'" & keyWord2 & "'は" & myCell.Row & "行目にあります" & vbCrLf
        End If
        Set myCell = myRange.FindNext(myCell)
    Loop While myCell.Row <> myObj.Row
    
    If msg = "" Then
        MsgBox "'" & keyWord1 & "'と'" & keyWord2 & "'のどちらも含みませんでした"
    Else
        MsgBox msg
    End If
End Sub

And検索

And検索は、全ての条件に一致するセルを検索します。これを実現するためには、FindメソッドとVBAの条件文を組み合わせる必要があります。

Dim rng As Range
Set rng = Sheets("Sheet1").Range("A1:A100").Find(What:="条件1")

If Not rng Is Nothing Then
    Set rng = rng.Find(What:="条件2")
End If

If Not rng Is Nothing Then
    MsgBox "両条件に一致するセルのアドレスは" & rng.Address & "です。"
Else
    MsgBox "両条件に一致するセルはありませんでした。"
End If

上記のコードでは、まず”条件1″に一致するセルを検索し、その後その範囲内で”条件2″に一致するセルを再検索しています。