EXCEL VBA：FIND

Sub X()
    '在A1:A10000中尋找"Excel"
    Dim rngX As Range
    Set rngX = Worksheets("Sheet1").Range("A1:A10000").Find("Excel", lookat:=xlPart)
    If Not rngX Is Nothing Then
        MsgBox "Found at " & rngX.Address
    End If
    
End Sub

xlPart = looks at the text in the cell for any match.
xlWhole = looks at the entire/exact entry in the cell to see if it matches.

=ADDRESS(MATCH(" Excel*",$A$1:$A$100,0),1)


https://www.udemy.com/blog/excel-vba-find/
Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
LookAt (optional):  xlWhole and xlPart

LookIn (optional): xlFormulas.
SearchOrder(optional): xlByRows or xlByColumns
===============================================
Cells.Find(What:="24652", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False).Activate
'找不到時，會出現「 執行階段錯誤 91： 物件變數或 with 區塊變數未設定 」 的錯誤
'----------------------------------------------------------------------------------------------------------------
MsgBox Cells.Find(What:="24652", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False).Address
'找不到時，會出現「 執行階段錯誤 91： 物件變數或 with 區塊變數未設定 」 的錯誤

===============================================
searchstr = "123"
Set obj = Cells.Find(What:=searchstr, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
       xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
       , SearchFormat:=False)
If obj Is Nothing Then
    MsgBox "找不到"
Else
   MsgBox obj.Offset(3).Value   '找到後，顯示向下3列的儲存格的資料值。
   MsgBox obj.Address    '顯示位址
    MsgBox obj.Column    '顯示行次(欄次)
   MsgBox obj.Row       '顯示列次
End If
====================================================