Range.Find 方法 (Excel)
會尋找範圍中的特定資訊。
注意
對於開發跨多個平台,擴充使用者 Office 體驗的解決方案感到興趣嗎? 請參閱新的 Office 增益集模型。 與 VSTO 增益集和解決方案相比,Office 增益集的佔用空間較小,而且您可以使用幾乎任何網頁程式技術 (例如 HTML5、JavaScript、CSS3 和 XML) 來建立這些增益集。
expression.Find (What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SearchFormat)
expression 代表 Range 物件的變數。
名稱 | 必要/選用 | 資料類型 | 描述 |
---|---|---|---|
What | 必要 | Variant | 要搜尋的資料。 可以為字串或任何 Microsoft Excel 資料類型。 |
After | 選用 | Variant | 要在其後開始搜尋的儲存格。 這個儲存格對應於從使用者介面執行搜尋時的作用中儲存格位置。 請注意,After 必須是搜尋範圍中的單一儲存格。 請記住搜尋是在這個儲存格之後開始;直到該方法循環回到指定的儲存格時,才會搜尋該儲存格。 如果您未指定這個引數,則搜尋會在範圍左上角的儲存格之後開始。 |
LookIn | 選用 | Variant | 可以是下列其中一個 XlFindLookIn 常數︰xlFormulas、xlValues、xlComments 或 xlCommentsThreaded。 |
LookAt | 選用 | Variant | 可以為下列其中一個 xlLookAt 常數:xlWhole 或 xlPart。 |
SearchOrder | 選用 | Variant | 可以為下列其中一個 XlSearchOrder 常數:xlByRows 或 xlByColumns。 |
SearchDirection | 選用 | Variant | 可以是下列其中之一種 XlSearchDirection 常數:xlNext 或 xlPrevious。 |
MatchCase | 選用 | Variant | True 表示搜尋會區分大小寫。 預設值為 False。 |
MatchByte | 選用 | Variant | 只有當您已選取或安裝雙位元組語言支援時,才能使用。 若為 True,則雙位元組字元只能符合雙位元組字元。 若為 False,則雙位元組字元可符合其對等的單位元組字元。 |
SearchFormat | 選用 | Variant | 搜尋格式。 |
Range 物件,代表找到該項資訊的第一個儲存格。
如果沒有找到符合的儲存格,則此方法會傳回 Nothing。 Find 方法不會影響選取範圍或作用中儲存格。
每次您使用此方法時,都會儲存 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`
這個範例會在工作表 1 內的 A1:A500 範圍內尋找含有值為 2 的所有儲存格,並將這些儲存格的值全部變更為 5。 也就是說,值 1234 和 99299 都包含 2,而這兩個儲存格的值都會變成 5。
Sub FindValue()
Dim c As Range
Dim firstAddress As String
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
End If
End With
End Sub
這個範例會在工作表 1 的 A1:A500 範圍內尋找含有 "abc" 子字串的所有儲存格,然後以 "xyz" 取代 "abc"。
Sub FindString()
Dim c As Range
Dim firstAddress As String
With Worksheets(1).Range("A1:A500")
Set c = .Find("abc", LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = Replace(c.Value, "abc", "xyz")
Set c = .FindNext(c)
Loop While Not c Is Nothing
End If
End With
End Sub
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。