按钮一键提取符合条件值，VBA替换VLOOKUP函数篇，值得收藏

在职场办公的亲们，经常会用到VLOOKUP, 这里我们讲解一下，如何用VBA达到VLOOKUP的功能，

小编在此真心恳请大家，给一个评论回复，以指导我们后期发布更适合亲们的文章

最终效果在底端

步骤一：新建演示数据，开启宏控制

步骤二，依次点击开发工具-插入--按钮，在新的对话框我们点击新建，而后将我们的代码复制进去，关键要理解，我们代码有解释代码：

Sub 按钮1_Click()

arr = [a1:C1000] '条件区域

Set d = CreateObject('scripting.dictionary')

For i = 2 To 3 '用来查找放置的原始数据的结结果区域

Set d(arr(1, i)) = CreateObject('scripting.dictionary')

For j = 2 To 1000 '可以在数据库中提取的最小最大个数

d(arr(1, i))(arr(j, 1)) = arr(j, i)

Next

Next

For i = 7 To 8 '就是查找的结果要放置的列号地方

For j = 2 To 1000 '符合条件的数据粘贴的行范围

Cells(j, i) = d(Cells(1, i).Text)(Cells(j, 6).Text) '1是指的数据范围的标题，6为条件列

Next

Next

End Sub

最终效果：