VBA调用外部对象01：字典Dictionary(统计数据出现的次数)
VBA调用外部对象01：字典Dictionary(统计数据出现的次数)
xyj
发布于 2020-07-28 10:22:15
发布于 2020-07-28 10:22:15
前面说过了字典去除重复的使用方法，既然字典可以去除重复，那就可以统计数据出现的次数，现在我们来说说如何利用字典来做到这个。
前面去除重复我们是直接更新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效果：
本文参与 腾讯云自媒体分享计划，分享自微信公众号。
原始发表：2020-04-28，如有侵权请联系 cloudcommunity@tencent.com 删除
评论
登录后参与评论
推荐阅读