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

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

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

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

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

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

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

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

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

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

10、運(yùn)行時(shí)錯(cuò)誤’91’:對(duì)象變量或With塊變量未設(shè)置。究其原因，可能是對(duì)象變量c的問題，因?yàn)楫?dāng)進(jìn)行查找并將相應(yīng)的值全部改變后，最后變量c的值為Nothing。將其稍作改動(dòng)后，運(yùn)行通過。原示例代碼如下：(大家也可參見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)修改后的示例代碼如下，即在原代碼中加了一句錯(cuò)誤處理語句OnErrResumeNext，忽略所發(fā)生的錯(cuò)誤。Subtest1()DimcAsRangefirstA