鲁达 作工程报价，经常需要结合国家的定额来做报价单。根据定额的编号，很容易获得定额的价格，方便报价。以前做报价单的时候，都是用Vlookup函数来查找定额编号在反馈相应的价格。今天要讲的例子就是用vba取代Vlookup函数。
报价单往往都有很多行。快速的数据处理，用VBA明显会比VlookUP要快的多。
问题如下：
问题描述：
1:根据定额工作表里面的定额编号，获取黄色单元格区域的内容；
2：在报价单的工作里面，查找与定额编号匹配的数据填入。
解决的思路详解：
1：为了运行的速度，把定额工作表里面的数据，全部放入arr数组；
2：把定额编号作为字典的key，定额工作表里面的 项目名称+单位+数量作为字典的item。本例会把这三项数据，放入数组装入字典。 及字典套数组
3：查找字典的key，并输出数组。
代码运行的结果如下：
代码如下:
Sub test() Dim arr, d, Rng As Range A = False Set d = CreateObject(";) With Sheets("定额") arr = .Range("c6:f" & .Cells(.Rows.Count, 3).End(xlUp).Row) End With For i = 1 To UBound(arr) d(arr(i, 1)) = Array(arr(i, 2), arr(i, 3), arr(i, 4)) Next With Sheets("报价单") For Each Rng In .Range("c6:c" & Cells(.Rows.Count, 3).End(xlUp).Row) Rng.Offset(0, 1).Resize(1, 3) = d) Next End With A = True End Sub代码解析
1：2行 Dim定义变量；
2：4行 后期绑定字典；
3：5~7行 把定额工作表里面的数据放入arr数组（本句代码是常用代码）；
4：9~11行 遍历arr数组，把定额编号作为字典的key，把项目名称+单位+数量作为字典的item；
5：14行 遍历报价单工作表里的数据区域；
6：15行 把查询到的字典对应的item放入指定的单元格区域；
本例思考：
1：本例并没有事实更新的功能。请结合VBA的事件，做一个自动运行的代码。
2：本例在代码运行之前，没有清除填写单元格区域的内容，欢迎留言写入相应的代码。
小结：
解决本问题，需要用的知识点：
1：数组的运用
2：字典的运用
点击关注可以更方便的查看Excel VBA的案例文章
私信 视频 可以获取54集VBA入门视频
私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件