今天讲的实例如下:
问题如下:
解决的思路如下:
代码运行的结果如下:
代码如下:
代码解析
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文件
閱讀更多 浮雲Excel分享 的文章