【烟花原创】VBA零基础之第131篇 字典（八）

hwc2ycy

四、实战

2．汇总数据（求和，平均值，第一次数量值，最后一次数量值，统计次数）

数据源：                              

思路：

通过数组与字典配合使用。

字典中Item存储的是该关键字在结果数组中所在的行号（第一维的索引号）

在这个案例中，字典类似于一个书的目录，关键字是章节（具有唯一性），条目是页码。

循环数据时，先检测关键字在字典中是否存在，不存在则先把关键字计数器加1（bCount），同时与该关键字配对添加到字典中，bCount赋值bCur，同时一些数据初始化的代码也一起进行，如型号，第一次出现时的数量，最后一次时的数量。

如果关键字在字典中存在，则取出该关键字在结果数组（result）中所在的行号，赋值给bCur变量，并更新最后一次出现时的数量。

接下来就是累加数量，统计次数。

整个数据处理完后，还需要再进行一次循环，计算数量的平均值。

最后输出数据到单元格并给出适当的提示。

代码：

代码执行后，效果如下图：

思考：

如果平均值要求只保留2位小数位，代码如何修改？

如果直接根据26个字母的顺序存放各个关键字对应的数据，代码如何修改？

yewei113

支持烟花

tingfeng461002

含月化烛

{:1112:}

2828466

图片都不显示啊