前面说过了字典去除重复的使用方法，既然字典可以去除重复，那就可以统计数据出现的次数，现在我们来说说如何利用字典来做到这个。
前面去除重复我们是直接更新Key的Item属性，利用的是字典不会保存重复Key的特点。
我们当时并没有特别注意Item的值，是直接使用了数据所在的行号，而且没有使用到这个Item的值。统计数据出现的次数就是要使用到字典的Item值。
要统计数据出现的次数，因为字典是不会有重复的Key的，我们直接把Item的值加1就行了，这个时候是有2种情况：
- 不存在的Key：这个时候Item也不存在，也就是vbEmpty，CLng转换vbEmpty的Item的值为0，所以 1正好是第一次出现
- 存在的Key：这个时候就好理解了，首先会取出这个Key的Item值，也就是前面已经出现过的次数，然后再 1，再更新这个Key的Item
所以直接更新Item的值 1就能达到目的：
代码语言：javascript复制Sub TestDic3()
'声明
Dim d As Dictionary
'创建
Set d = New Dictionary
Dim rowA As Long
Dim i As Long
'获取A列的最后一行行号
rowA = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Dim arrA() As Variant
'将A列的数据存放到数组中
arrA = Range("A1").Resize(rowA, 1).Value
'将A列数据记录到字典中，并更新Item的值 1
For i = 2 To rowA
d(VBA.CStr(arrA(i, 1))) = VBA.CLng(d(VBA.CStr(arrA(i, 1)))) 1
Next
'输出
Range("B1").Resize(d.Count, 1).Value = Application.WorksheetFunction.Transpose(d.keys)
Range("C1").Resize(d.Count, 1).Value = Application.WorksheetFunction.Transpose(d.items)
'释放
Set d = Nothing
End Sub效果：
