Excel VBA 跨表查询、汇总、排序

今天讲的实例如下:

问题如下:

Excel VBA 跨表查询、汇总、排序

解决的思路如下:

Excel VBA 跨表查询、汇总、排序

代码运行的结果如下:

Excel VBA 跨表查询、汇总、排序

代码如下:

Excel VBA 跨表查询、汇总、排序

代码解析

1:2~3行 dim定义变量;

2:4行 把数据放入数组

3:5行 后期绑定字典;

4:6~19行 判断年份及供应商是否存在,如果存在则创建一个新的字典,客户作为新字典的key,金额的和作为字典的item;

5:22行 读取B1、B2单元格的内容;

6:23~29行 当字典的数据小于6个的适合,直接读取数据,并用sort直接对区域进行排序。

7:31~47行 当字典的数据大于6个的适合,清空辅助列F、G的数据,写入字典的内容在相关的区域,用sort进行排序,读取最大的五个数据,对字典的item及你选哪个求和。计算others的数据。

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

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


分享到:


相關文章: