【VBA】指定した文字列を検索する

前提

指定した文字列を検索し、その文字列が設定されているセルを取得する。
ここでは文字列「マラソン」を検索する。

サンプルプログラム

'変数の宣言を必須
Option Explicit

Sub findCell()

    Dim ws As Worksheet
    Dim targetRange As Range
    Dim resultRange As Range
    Dim findStr As String
    
    Set ws = Worksheets("サンプルシート")
    
    '検索範囲を取得
    Set targetRange = ws.Range("B2").CurrentRegion
    
    '検索する文字列を設定
    findStr = "マラソン"
    
    '検索を実行
    Set resultRange = targetRange.Find(What:=findStr)
    
    If Not resultRange Is Nothing Then
        MsgBox "見つかったセルは" & resultRange.Address & "です"
    Else
        MsgBox "文字列「" & findStr & "」は存在しませんでした"
    End If
    
End Sub

結果