VBA调用外部对象01：字典Dictionary(统计数据出现的次数)

前面说过了字典去除重复的使用方法，既然字典可以去除重复，那就可以统计数据出现的次数，现在我们来说说如何利用字典来做到这个。

前面去除重复我们是直接更新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就能达到目的：

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

效果：