在职场办公的亲们,经常会用到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
最终效果:
联系客服