參閱應用於示例特性應用於 WorksheetFunction 對象的 Find 方法。
在工作表中查找特定信息。
expression.Find(Arg1, Arg2, Arg3)
expression 必需。該表達式返回一個 WorksheetFunction 對象。
Arg1 String 類型,必需。工作表名稱。
Arg2 String 類型,必需。單元格區域名稱。
Arg3 Variant 類型,可選。精確限制查詢的參數名稱。
應用於 Range 對象的 Find 方法。
在區域中查找特定信息,並返回 Range 對象,該對象代表用於查找信息的第一個單元格。如果未發現匹配單元格,就返回 Nothing。本方法不影響選定區域或活動單元格。
有關在 Visual Basic 中使用 Find 工作表函數的詳細信息,請參閱在 Visual Basic 中使用工作表函數。
expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)
expression 必需。該表達式返回一個 Range 對象。
What Variant 類型,必需。要搜索的
After Variant 類型,可選。表示搜索過程將從其之後開始進行的單元格。此單元格對應於從用戶界面搜索時的活動單元格位置。值得注意的是,After 必須是區域中的單個單元格。請記住搜索是從該單元格之後 開始的;直到本方法繞回到指定的單元格時,纔對其進行搜索。如果未指定本參數,搜索將從區域的左上角單元格之後開始。
LookIn Variant 類型,可選。信息類型。
LookAt Variant 類型,可選。可爲以下 XlLookAt 常量之一:xlWhole 或 xlPart。
SearchOrder Variant 類型,可選。可爲以下 XlSearchOrder 常量之一:xlByRows 或 xlByColumns。
SearchDirection XlSearchDirection 類型,可選。搜索的方向。
XlSearchDirection 可爲以下 XlSearchDirection 常量之一。
xlNext 默認值
xlPrevious
MatchCase Variant 類型,可選。若爲 True,則進行區分大小寫的查找。默認值爲 False。
MatchByte Variant 類型,可選。僅在選擇或
SearchFormat Variant 類型,可選。搜索的格式。
說明
每次使用本方法後,參數 LookIn、LookAt、SearchOrder 和 MatchByte 的設置將保存。如果下次調用本方法時不指定這些參數的值,就使用保存的值。設置這些參數將更改“查找和替換”對話框中的設置,如果您忽略參數,更改“查找和替換”對話框中的設置將更改使用的保存值。若要避免這種問題的出現,每次使用該方法時請明確設置這些參數。
可以使用 FindNext 和 FindPrevious 方法重複搜索。
當搜索到指定的搜索區域的末尾時,本方法將繞回到區域的開始繼續搜索。發生繞轉後,若要停止搜索,請保存第一個找到的單元格地址,然後依據該保存地址測試每個後續查找到的單元格地址。
若要進行更爲複雜的模式匹配查找,請用 For Each...Next 語句和 Like 運算符。例如,下列代碼在單元格區域 A1:C5 中搜索字體名稱以“Cour”開始的單元格。當 Microsoft Excel 找到匹配單元格以後,就將其字體改爲“Times New Roman”。
For Each c In [A1:C5]
If c.Font.Name Like "Cour*" Then
c.Font.Name = "Times New Roman"
End If
Next
示例
本示例在工作表的單元格區域 A1:A500 中查找包含值 2 的所有單元格,並將這些單元格的值更改爲 5。
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With