怎样在VBA调用Vlookup函数

怎样在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中的运用。希望对大家有用。