除非注明，文章均為 戰(zhàn)戰(zhàn)如瘋 原創(chuàng)，轉(zhuǎn)載請保留鏈接: http://www./cat2/270.html，VBA交流群273624828。

今天再來看一下在Excel VBA中Find函數(shù)的基本用法。Find函數(shù)就是Excel表格中的查找功能，我們可以通過錄制宏的方法來獲得Find的代碼。

Sub Macro1()

Cells.Find(What:="A", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate
Cells.FindNext(After:=ActiveCell).Activate
End Sub

從上面可以看到Find函數(shù)共有8個參數(shù)，分別對應(yīng)Excel表格查找里面選項(xiàng)的各個項(xiàng)目，這里我就不多說了，感興趣可以自己試下，其中只有一個參數(shù)是必須的，那就是"What"，即你要找的內(nèi)容。下面我們來看整理之后的代碼

Sub Find演示()
Dim rng
Set rng = ActiveSheet.UsedRange.Find(What:="A")
'MsgBox "字母A地址為" & rng.Address(0, 0)
'MsgBox "字母A所在行為" & rng.Row
MsgBox "字母A所在列為" & rng.Column
End Sub

上面的代碼我們只用了一個參數(shù)What，F(xiàn)ind函數(shù)查找到的是一個單元格，是range對象，這里我們直接把這個range賦值給了變量rng，那么相應(yīng)單元格的地址和行、列號就可以如上面代碼所示表示出來了。

上面的代碼只是查找一個到第一個值，如果我們要查找的范圍里面有多個字母A，我們要把所有的A都找出來標(biāo)上底色，那怎么辦呢？看下面的代碼

Sub FindAll()
Dim rng, Address1, Address2
Set rng = ActiveSheet.UsedRange.Find(What:="A")
Address1 = rng.Address(0, 0)
Do Until Address1 = Address2
Set rng = ActiveSheet.UsedRange.FindNext(rng)
Address2 = rng.Address(0, 0)
rng.Interior.ColorIndex = 6
Loop
End Sub

上面的代碼中查找第一個時我們用了Find函數(shù)，并將第一個符合條件的單元格地址放在了變量Address1中，然后利用函數(shù)FindNext,其只有一個參數(shù)After，代表從這個參數(shù)往后查，所以FindNext(rng)就是查找下一個了，不斷的找，當(dāng)又找到第一個位置的時候Address1和Address2就相同了，也就表示整個范圍都找了一遍了，這時就可以退出循環(huán)了。

示例文件就不上了，自己建個Excel表格，隨便填上些A、B、C、D就可以了。