怎样在VBA中调用Vlookup函数?
单个查找的实现##
这个在网上花点功夫是可以找到相关的内容的,以下是兰色幻想-赵志东的excel精英培训公众号里介绍的方法：
在VBA中调用工作表函数，可以用下面的格式
Application.工作表函数名（参数...）
如工作表中的函数
C1=Vlookup(C1,A1:A100,2,0)
在VBA代码中就可以这样调用
Range("C1")=Application.vlookup(range("C1"),range("A1:A100"),2,0)
但是这种查找只适用于单个单元格，对于批量查找又是怎样实现呢？
批量向下查找##
请参照下面的做法。
首先是数据源：
数据源.png
图中B7用函数Vlookup表示
B7=vlookup (A7,A1:B3,2,0)
在VBA中怎样改写?
我开始的思路是把代码中的Range中用Cells的形式来表示：
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
但事实表示这种调用是无效的。最后也就是今天下午参加excel技能培训的时候，突然灵光闪现，想到了办法。具体的解决方法是保留查找区域range的表达式。修改后的代码如下：
VBA代码.png
这样前面截图上的点击按钮就可以实现批量查找了。其它的函数用兰色幻想提到的“Application.工作表函数名（参数...）”应该也可以调用。下次有时间再测试一下。
以上就是我学习到的Vlookup函数在VBA中的运用。希望对大家有用。
