Findで見つかればそのセルへ、見つからなければエラー処理するVBA

Excel2013のVBAで、Findで見つかればそのセルへ、見つからなければエラー処理をします。

下記のVBAコードで実行します。

Option Explicit

Private Sub MyFindData()
    Dim rng As Range

    Set rng = Range("B:B").Find(Range("C2"))

    If rng Is Nothing Then
        MsgBox "見つかりませんでした。"
    Else
        Range(rng.Address).Activate
    End If

End Sub

Set rngでFindの結果を、rngオブジェクト変数に代入します。

is nothingで検索結果のセルが見つかったかどうか判定します。

見つかればActivateでそのセルに移動します。

検索し見つかった場合の実行結果です。

検索し見つからなかった場合の実行結果です。

関連する記事
列を指定しその中からFindで検索するVBA
今いるセルの位置を取得するVBA
SEARCH関数とFIND関数の文字列検索使用例
マクロでFindを使い検索する
指定文字を検索し、見つかった位置から前の文字列を取り出す