运用字典的时候，对比数组。主要是运用字典的去重效果。
最常用的两种应用：
一：统计相同人名的销售额
二：统计系统人名出现的次数（唱票）
统计销售额的示例：
先看一下运行代码：
运行的结果与H、I列数据透视的结果一致。
具体的代码如下：
代码详解：
3.nRow 读取A列的最后一个非空单元格的行数
4.Range("a2:c" & nRow)传给数组 arr
5.读取数组，把人名作为字典的key，达到去重的目的，把销售额作为item进行累加，从而代码累计销售额的目的
For i = 1 To UBound(arr)
dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 3)
Next i
'dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 3)典型计数的用法
6.[E1] = [A1] [F1] = [C1]设置标题栏
7.把字典的keys与items写入对应的区域
统计票数的示例：
先看一下运行的代码：
具体的代码如下：
代码详解：
3.nRow 读取A列的最后一个非空单元格的行数
4.RangeRange("B2:D" & nRow)传给数组 arr
5.读取数组，把人名作为字典的key，达到去重的目的，用计数器统计出现的数量，把数据传给字典的item
For i = 1 To UBound(arr)
For j = 1 To UBound(arr, 2)
dic(arr(i, j)) = dic(arr(i, j)) + 1
Next j
Next i
'dic(arr(i, j)) = dic(arr(i, j)) + 1 3)典型计数的用法
7.把字典的keys与items写入对应的区域
注：两个代码，把字典的keys及items写入相应的表格时，用法有差异。一个是分别写入，一个是一次写入。
閱讀更多 浮雲Excel分享 的文章
