41、[VBA入门到放弃笔记]字典应用:计数

字典常常用来进行计数

计数
Sub ggg()
    Dim arr, d As Object, i As Long
    arr = Range("a1:a" & Cells(Rows.Count, 1).End(xlUp).Row)'将数据放进数组
    Set d = CreateObject("scripting.dictionary")'创建字典
    For i = 1 To UBound(arr)'遍历数组元素
        d(arr(i, 1)) = d(arr(i, 1)) + 1'对数组元素进行计数
    Next
    [d1].Resize(d.Count, 1) = Application.Transpose(d.keys)'输出数据
    [e1].Resize(d.Count, 1) = Application.Transpose(d.items)
End Sub
结果
最后编辑于
©著作权归作者所有,转载或内容合作请联系作者
平台声明:文章内容(如有图片或视频亦包括在内)由作者上传并发布,文章内容仅代表作者本人观点,简书系信息发布平台,仅提供信息存储服务。

推荐阅读更多精彩内容