Excel VBA Findで行番号を取得する

以下のようなシーンで利用されます。

・特定の値を持つ行の行番号を取得して、その行に対する処理を行いたい場合に使用します。

Option Explicit

Sub FindRowNumber()
    Dim searchValue As String
    Dim foundCell As Range
    Dim rowNum As Long

    ' 検索する値を設定します
    searchValue = "Banana"

    ' 範囲を指定して検索
    Set foundCell = Range("A1:A10").Find(What:=searchValue, LookIn:=xlValues, LookAt:=xlWhole)

    ' 見つかったセルがあるかどうかを確認します
    If Not foundCell Is Nothing Then
        ' 見つかった場合の処理
        rowNum = foundCell.Row
        MsgBox "Row number: " & rowNum
    Else
        ' 見つからなかった場合の処理
        MsgBox "Not found"
        ' ここに見つからなかった場合の追加の処理を記述します
    End If
End Sub