運用字典的時候，對比數組。主要是運用字典的去重效果。
最常用的兩種應用：
一：統計相同人名的銷售額
二：統計系統人名出現的次數（唱票）
統計銷售額的示例：
先看一下運行代碼：
運行的結果與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分享 的文章
