EXCELのVBAです。

両方同時に求めてます。不要な方は削除すればOKです。

((1)rs.Row / (2)rs.Address)ついでに総数も求めてみました。

(行番号とセル番地は一致する数だけ表示し最後に総数を表示)

結果は Debug.Print でイミディエイトウィンドウに出力しています。

参考までに範囲内に1つしか無いという前提であれば、Macro2を使用してください。

Sub Macro1()
    
    Dim rs As Range
    Dim tr As Long
    Dim i As Integer
    
    Set rs = Columns("H:H").Find(What:="aaa", LookIn:=xlValues, LookAt:=xlWhole)
    Do Until rs Is Nothing
        rs.Activate
        i = i + 1
        tr = rs.Row
        Debug.Print rs.Row; rs.Address 'ここで出力
        Set rs = Columns("H:H").FindNext(After:=ActiveCell)
        If rs.Row < tr Then Exit Do
    Loop
    Debug.Print "総数:" & i 'ここで出力
    
End Sub
Sub Macro2()
    
    Dim rs As Range
    
    Set rs = Columns("H:H").Find(What:="aaa", LookIn:=xlValues, LookAt:=xlWhole)
    If Not rs Is Nothing Then
        Debug.Print rs.Row; rs.Address 'ここで出力
    End If
    
End Sub