章老師的電腦小講堂 https://www.facebook.com/ScenicSchool/
※※
本區做為經常使用之程式碼複製區，提問請至小講堂唷 ※※
【在指定範圍的搜尋特定字串所在位置】
Dim fRange As Range
Set fRange = Worksheet.Columns("A:A").Find(搜尋的字串,
LookIn:=xlValues)
If Not fRange Is
Nothing Then
'找到第一筆符合字串
Else
'找不到
End If
Set fRange = Nothing
參考文件：