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

今天讲的实例如下:

问题如下:

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

解决的思路如下:

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

代码运行的结果如下:

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

代码如下:

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文件


分享到:


相關文章: