怎樣在VBA中調(diào)用Vlookup函數(shù)?

單個(gè)查找的實(shí)現(xiàn)##

這個(gè)在網(wǎng)上花點(diǎn)功夫是可以找到相關(guān)的內(nèi)容的,以下是蘭色幻想-趙志東的excel精英培訓(xùn)公眾號(hào)里介紹的方法：

在VBA中調(diào)用工作表函數(shù)，可以用下面的格式

Application.工作表函數(shù)名（參數(shù)...）

如工作表中的函數(shù)
C1=Vlookup(C1,A1:A100,2,0)

在VBA代碼中就可以這樣調(diào)用

Range("C1")=Application.vlookup(range("C1"),range("A1:A100"),2,0)

但是這種查找只適用于單個(gè)單元格，對(duì)于批量查找又是怎樣實(shí)現(xiàn)呢？

批量向下查找##

請(qǐng)參照下面的做法。

首先是數(shù)據(jù)源：

數(shù)據(jù)源.png

圖中B7用函數(shù)Vlookup表示

B7=vlookup (A7,A1:B3,2,0)

在VBA中怎樣改寫?
我開始的思路是把代碼中的Range中用Cells的形式來(lái)表示：

Dim i
For i=7 to 9 step 1
Cells(i,2)=application.vlookup(cells(i,1),(cells(1,1):cells(3,2)),2,0)

next i

但事實(shí)表示這種調(diào)用是無(wú)效的。最后也就是今天下午參加excel技能培訓(xùn)的時(shí)候，突然靈光閃現(xiàn)，想到了辦法。具體的解決方法是保留查找區(qū)域range的表達(dá)式。修改后的代碼如下：

VBA代碼.png

這樣前面截圖上的點(diǎn)擊按鈕就可以實(shí)現(xiàn)批量查找了。其它的函數(shù)用蘭色幻想提到的“Application.工作表函數(shù)名（參數(shù)...）”應(yīng)該也可以調(diào)用。下次有時(shí)間再測(cè)試一下。

以上就是我學(xué)習(xí)到的Vlookup函數(shù)在VBA中的運(yùn)用。希望對(duì)大家有用。