Excel VBA 按总表的数据查询分表的数据

今天讲的实例如下：

问题如下：

解决的思路如下：

代码运行的结果如下：

代码如下:

代码解析

1：2~3行 dim定义变量；

2：4~5行 后期绑定字典；

4：6行 获取总表的最后一个非空单元格行号；

4：7行 定义新的数组；

5：9~11行 设定标题行；

6：13~23行 用for循环把大号价签的商品编码分别写入字典，并把结果传给brr数组（字典的key及item分别传递）；

7：25~36行 用for循环把小号价签的商品编码分别写入字典，并把结果传给brr数组（字典的key及item分别传递）；此处采用了两个字典，一个字典是用来和总表的结果进行匹配，一给是用来传递数组给数组

8：38~47行 用字典反查询总表的商品代码，判断商品代码是否存在

9：49~52行 清空目标区域原有的数据，并写入新的数组。

10 52~54行 清空字典及数组

PS： 代码的源文件里面还有两外一个VBA代码的思路。比这个代码要简洁。

私信 视频 可以获取54集VBA入门视频

私信 VBA或 vba 可以获取文章中含VBA代码的Excle文件