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