ExcelVBA シート内で特定の文字列や値を検索｜セルの位置を取得する方法

以下のシーンで利用します。

1.指定した値を含むセルの位置を調べる。

2.検索したセルに対して書式設定や値の変更を行う。

3.一覧表から特定のキーワードを含む行を抽出する。

4.複数のシートやブックにまたがる検索を自動化する。

Option Explicit

Sub SearchAll()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim foundCell As Range
    Dim firstAddress As String
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set searchRange = ws.Range("A:A") ' A列全体を検索対象にする
    
    Set foundCell = searchRange.Find(What:="検索する文字列", LookAt:=xlPart)
    
    If Not foundCell Is Nothing Then
        firstAddress = foundCell.Address ' 最初の一致セルを記録
        Do
            foundCell.Interior.Color = RGB(255, 255, 0) ' 見つかったセルを黄色にする
            Set foundCell = searchRange.FindNext(foundCell) ' 次の一致セルを検索
        Loop While Not foundCell Is Nothing And foundCell.Address <> firstAddress
    Else
        MsgBox "検索した値は見つかりませんでした。"
    End If
End Sub