find用法.docx

F1 幫助的內(nèi)容：Find 方法應用于 Range 對象的 Find 方法。在區(qū)域中查找特定信息，并返回 Range 對象，該對象代表用于查找信息的第一個單元格。如果未發(fā)現(xiàn)匹配單元格，就返回 Nothing。本方法不影響選定區(qū)域或活動單元格。有關在 Visual Basic 中使用 Find 工作表函數(shù)的詳細信息，請參閱F1幫助中在 Visual Basic 中使用工作表函數(shù)。expression.Find(What, After, LookIn, LookAt, SearchOrder, SearchDirection, MatchCase, MatchByte, SerchFormat)expression 必需。該表達式返回一個 Range 對象。What Variant 類型，必需。要搜索的數(shù)據(jù)。可為字符串或任意 Microsoft Excel 數(shù)據(jù)類型。After Variant 類型，可選。表示搜索過程將從其之后開始進行的單元格。此單元格對應于從用戶界面搜索時的活動單元格位置。值得注意的是，After 必須是區(qū)域中的單個單元格。請記住搜索是從該單元格之后 開始的；直到本方法繞回到指定的單元格時，才對其進行搜索。如果未指定本參數(shù)，搜索將從區(qū)域的左上角單元格之后開始。LookIn Variant 類型，可選。信息類型。LookAt Variant 類型，可選。可為以下 XlLookAt 常量之一：xlWhole 或 xlPart。SearchOrder Variant 類型，可選?？蔀橐韵?XlSearchOrder 常量之一：xlByRows 或 xlByColumns。SearchDirection XlSearchDirection 類型，可選。搜索的方向。XlSearchDirection 可為以下 XlSearchDirection 常量之一。xlNext 默認值xlPreviousMatchCase Variant 類型，可選。若為 True，則進行區(qū)分大小寫的查找。默認值為 False。MatchByte Variant 類型，可選。僅在選擇或安裝了雙字節(jié)語言支持時使用。若為 True，則雙字節(jié)字符僅匹配雙字節(jié)字符。若為 False，則雙字節(jié)字符可匹配其等價的單字節(jié)字符。SearchFormat Variant 類型，可選。搜索的格式。說明每次使用本方法后，參數(shù) LookIn、LookAt、SearchOrder 和 MatchByte 的設置將保存。如果下次調(diào)用本方法時不指定這些參數(shù)的值，就使用保存的值。設置這些參數(shù)將更改“查找和替換”對話框中的設置，如果您忽略參數(shù)，更改“查找和替換”對話框中的設置將更改使用的保存值。若要避免這種問題的出現(xiàn)，每次使用該方法時請明確設置這些參數(shù)?？梢允褂?FindNext和 FindPrevious方法重復搜索。當搜索到指定的搜索區(qū)域的末尾時，本方法將繞回到區(qū)域的開始繼續(xù)搜索。發(fā)生繞轉(zhuǎn)后，若要停止搜索，請保存第一個找到的單元格地址，然后依據(jù)該保存地址測試每個后續(xù)查找到的單元格地址。若要進行更為復雜的模式匹配查找，請用 For Each.Next 語句和 Like 運算符。例如，下列代碼在單元格區(qū)域 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 IfNext-下面是幾個教學示例代碼：Sub Find1() 在某列查找Dim kk = Range(A:A).Find(A).RowMsgBox kEnd SubSub Find11() 在多列查找Dim kk = Range(A:B).Find(BCD).RowMsgBox kEnd SubSub Find2() 查找的起始位置Dim kk = Range(A:B).Find(A, AFTER:=Range(A5).RowMsgBox kEnd SubSub Find3() 在值中查找Dim kk = Range(B:B).Find(SE, LookIn:=xlValues).RowMsgBox kEnd SubSub Find31() 在公式中查找Dim kk = Range(B:B).Find(C2, LookIn:=xlFormulas).AddressMsgBox kEnd SubSub Find32() 在備注中查找Dim kk = Range(B:C).Find(AB, LookIn:=xlComments).AddressMsgBox kEnd SubSub Find41() 按模糊查找 Dim kk = Range(B:C).Find(A, LookIn:=xlValues, LOOKAT:=xlPart).AddressMsgBox kEnd SubSub Find42() 匹配查找 Dim kk = Range(B:C).Find(A, LookIn:=xlValues, LOOKAT:=xlWhole).AddressMsgBox kEnd SubSub Find5() 按先行后列的方式查找 Dim kk = Range(A:B).Find(AB, LookIn:=xlValues, LOOKAT:=xlWhole, SEARCHORDER:=xlByRows).AddressMsgBox kEnd SubSub Find51() 按先列后行的方式查找Dim kk = Range(A:B).Find(AB, LookIn:=xlValues, LOOKAT:=xlWhole, SEARCHORDER:=xlByColumns).AddressMsgBox kEnd SubSub Find6() 查找方向(從后向前)Dim kk = Range(A:A).Find(A, , xlValues, xlWhole, xlByColumns, xlPrevious).AddressMsgBox kEnd SubSub Find61() 查找方向(從前向后)Dim kk = Range(A:A).Find(A, , xlValues, xlWhole, xlByColumns, xlNext).AddressMsgBox kEnd SubSub Find7() 字母大小寫Dim kk = Range(a:b).Find(a, , xlValues, xlWhole, xlByColumns, xlNext, False).AddressMsgBox kEnd SubSub f7() 查找不到的情況Dim MRG As RangeSet MRG = Range(A:A).Find(D)If MRG Is Nothing Then MsgBox 查找不到字母DElse MsgBox 查找成功,單元格地址為: & MRG.AddressEnd IfEnd SubSub f8() 二次查找Dim MRG As RangeSet MRG = Range(A:A).Find(A)Set mrg1 = Range(A:A).FindNext(MRG)MsgBox mrg1.AddressEnd SubSub F9() 區(qū)域查找Dim MRG A