excel宏vba find()函數(shù)詳細說明

1、2.Find方法的語法[語法].Find(What，[After]，[LookIn]，[LookAt]，[Searchder]，[SearchDirection]，[MatchCase]，[MatchByte]，[SearchFmat])[參數(shù)說明](1)，必須指定，返回一個Range對象。(2)參數(shù)What，必需指定。代表所要查找的數(shù)據(jù)，可以為字符串、整數(shù)或者其它任何數(shù)據(jù)類型的數(shù)據(jù)。對應(yīng)于“查找與替換”對話框中，“查找內(nèi)容”文本框中的

2、內(nèi)容。(3)參數(shù)After，可選。指定開始查找的位置，即從該位置所在的單元格之后向后或之前向前開始查找(也就是說，開始時不查找該位置所在的單元格，直到Find方法繞回到該單元格時，才對其內(nèi)容進行查找)。所指定的位置必須是單元格區(qū)域中的單個單元格，如果未指定本參數(shù)，則將從單元格區(qū)域的左上角的單元格之后開始進行查找。(4)參數(shù)LookIn，可選。指定查找的范圍類型，可以為以下常量之一：xlValues、xlFmulas或者xlComment

3、s，默認值為xlFmulas。對應(yīng)于“查找與替換”對話框中，“查找范圍”下拉框中的選項。(5)參數(shù)LookAt，可選?？梢詾橐韵鲁Ａ恐唬篨lWhole或者xlPart，用來指定所查找的數(shù)據(jù)是與單元格內(nèi)容完全匹配還是部分匹配，默認值為xlPart。對應(yīng)于“查找與替換”對話框中，“單元格匹配”復(fù)選框。(6)參數(shù)Searchder，可選。用來確定如何在單元格區(qū)域中進行查找，是以行的方式(xlByRows)查找，還是以列的方式(xlByCol

4、umns)查找，默認值為xlByRows。對應(yīng)于“查找與替換”對話框中，“搜索”下拉框中的選項。(7)參數(shù)SearchDirection，可選。用來確定查找的方向，即是向前查找(XlPrevious)還是向后查找(xlNext)，默認的是向后查找。(8)參數(shù)MatchCase，可選。若該參數(shù)值為True，則在查找時區(qū)分大小寫。默認值為False。對應(yīng)于“查找與替換”對話框中，“區(qū)分大小寫”復(fù)選框。(9)參數(shù)MatchByter，可選。即

5、是否區(qū)分全角或半角，在選擇或安裝了雙字節(jié)語言時使用。若該參數(shù)為True，則雙字節(jié)字符僅與雙字節(jié)字符相匹配；若該參數(shù)為False，則雙字節(jié)字符可匹配與其相同的單字節(jié)字符。對應(yīng)于“查找與替換”對話框中，“區(qū)分全角半角”復(fù)選框。(10)參數(shù)SearchFmat，可選，指定一個確切類型的查找格式。對應(yīng)于“查找與替換”對話框中，“格式”按鈕。當設(shè)置帶有相應(yīng)格式的查找時，該參數(shù)值為True。(11)在每次使用Find方法后，參數(shù)LookIn、Loo

6、kAt、Searchder、MatchByte的設(shè)置將保存。如果下次使用本方法時，不改變或指定這些參數(shù)的值，那么該方法將使用保存的值。在VBA中設(shè)置的這些參數(shù)將更改“查找與替換”對話框中的設(shè)置；同理，更改“查找與替換”對話框中的設(shè)置，也將同時更改已保存的值。也就是說，在編寫好一段代碼后，若在代碼中未指定上述參數(shù)，可能在初期運行時能滿足要求，但若用戶在“查找與替換”對話框中更改了這些參數(shù)，它們將同時反映到程序代碼中，當再次運行代碼時，運行

7、結(jié)果可能會產(chǎn)生差異或錯誤。若要避免這個問題，在每次使用時建議明確的設(shè)置這些參數(shù)。3.Find方法使用示例3.1本示例在活動工作表中查找what變量所代表的值的單元格，并刪除該單元格所在的列。ookIn:=xlValues按值查找4.1FindNext方法FindNext方法對應(yīng)于“查找與替換”對話框中的“查找下一個”按鈕?？梢允褂迷摲椒ɡ^續(xù)執(zhí)行查找，查找下一個與Find方法中所指定條件的數(shù)據(jù)相匹配的單元格，返回代表該單元格的Range對

8、象。在使用該方法時，不影響選定區(qū)域或活動單元格。4.1.1語法.FindNext(After)4.1.2參數(shù)說明參數(shù)After，可選。代表所指定的單元格，將從該單元格之后開始進行查找。開始時不查找該位置所在的單元格，直到FindNext方法繞回到該單元格時，才對其內(nèi)容進行查找。所指定的位置必須是單元格區(qū)域中的單個單元格，如果未指定本參數(shù)，則將從單元格區(qū)域的左上角的單元格之后開始進行查找。當查找到指定查找區(qū)域的末尾時，本方法將環(huán)繞至區(qū)域的

9、開始繼續(xù)查找。發(fā)生環(huán)繞后，為停止查找，可保存第一次找到的單元格地址，然后測試下一個查找到的單元格地址是否與其相同，作為判斷查找退出的條件，以避免出現(xiàn)死循環(huán)。當然，如果在查找的過程中，將查找到的單元格數(shù)據(jù)進行了改變，也可不作此判斷，如下例所示。4.1.3對VBA幫助系統(tǒng)上的一點疑問探討在VBA幫助系統(tǒng)中，介紹Find方法和FindNext方法所使用的示例好像有點問題：當在Excel中運行時，雖然運行結(jié)果正確，但是在運行到最后時，會報錯誤：

10、運行時錯誤’91’:對象變量或With塊變量未設(shè)置。究其原因，可能是對象變量c的問題，因為當進行查找并將相應(yīng)的值全部改變后，最后變量c的值為Nothing。將其稍作改動后，運行通過。原示例代碼如下：(大家也可參見VBA幫助系統(tǒng)Find方法或FindNext方法幫助主題)本示例在單元格區(qū)域A1:A500中查找值為2的單元格，并將這些單元格的值變?yōu)?。WithWksheets(1).Range(“a1:a500“)Setc=.Find(2l

11、ookin:=xlValues)IfNotcIsNothingThenfirstAddress=c.AddressDoc.Value=5Setc=.FindNext(c)LoopWhileNotcIsNothingc.AddressfirstAddressEndIfEndWith經(jīng)修改后的示例代碼如下，即在原代碼中加了一句錯誤處理語句OnErrResumeNext，忽略所發(fā)生的錯誤。Subtest1()DimcAsRangefirstA