繼續使用 Find 方法開始的搜尋。 本方法尋找相符合同一條件的前儲存格,並傳回代表該儲存格的 Range 物件。 不會影響選取範圍或作用中的儲存格。
語法
表達。尋找) 之前的上一個 (
expression 代表 Range 物件的變數。
參數
| 名稱 | 必要/選用 | 資料類型 | 描述 |
|---|---|---|---|
| Before | 選用 | Variant | 指定儲存格,該儲存格位於開始搜尋的儲存格之前。 這個儲存格對應於從使用者介面執行搜尋時的作用中儲存格位置。 請注意, Before 必須是範圍內的單一儲存格。 請記住,搜索在此單元格之前開始;在方法換回此儲存格之前,不會搜尋指定的儲存格。 如果未指定此引數,搜尋會在範圍中的左上角儲存格之前開始。 |
傳回值
範圍
註解
到達指定搜尋範圍的起點時,搜尋的游標會再回到指定範圍的終點。 若要在發生折回時停止搜尋,請儲存第一個找到之儲存格的地址,然後測試每個後續找到的儲存格位址是否與這個儲存的地址相等。
範例
本範例會顯示 FindPrevious 方法如何與 Find 方法及 FindNext 方法搭配使用。 在執行此範例之前,請確定 Sheet1 在 B 欄中至少包含兩個出現的 Phoenix 一詞。
Sub FindTest()
Dim fc As Range
Set fc = Worksheets("Sheet1").Columns("B").Find(what:="Phoenix")
MsgBox "The first occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindNext(after:=fc)
MsgBox "The next occurrence is in cell " & fc.Address
Set fc = Worksheets("Sheet1").Columns("B").FindPrevious(after:=fc)
MsgBox "The previous occurrence is in cell " & fc.Address
End Sub
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。