怎样在VBA中调用Vlookup函数?
单个查找的实现##
这个在网上花点功夫是可以找到相关的内容的,以下是兰色幻想-赵志东的excel精英培训公众号里介绍的方法:
在VBA中调用工作表函数,可以用下面的格式
Application.工作表函数名(参数...)
如工作表中的函数
C1=Vlookup(C1,A1:A100,2,0)
在VBA代码中就可以这样调用
Range("C1")=Application.vlookup(range("C1"),range("A1:A100"),2,0)
但是这种查找只适用于单个单元格,对于批量查找又是怎样实现呢?
批量向下查找##
请参照下面的做法。
首先是数据源:
图中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的表达式。修改后的代码如下:
这样前面截图上的点击按钮就可以实现批量查找了。其它的函数用兰色幻想提到的“Application.工作表函数名(参数...)”应该也可以调用。下次有时间再测试一下。
以上就是我学习到的Vlookup函数在VBA中的运用。希望对大家有用。