字典常常用来进行计数

计数

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

结果

41、[VBA入门到放弃笔记]字典应用：计数
字典常常用来进行计数
42、[VBA入门到放弃笔记]字典应用：求和
字典常常用来进行求和。单列求和单条件多列求和要实现这样的求和，需要用字典来标记行。用exists判断部门是...
43、[VBA入门到放弃笔记]字典应用：查询
单列信息查询（Vlookup）整列查询：根据数字编号，查询整条数据。
35、[VBA入门到放弃笔记] 字典:操作字典
编写VBA字典可以有以下四个动作：增，删，查，改。 1、增：增加字典条目,如将下列商品信息放进字典。商品名称| ...
36、[VBA入门到放弃笔记] 字典:属性
字典作为一个对象，自然有其属性。字典有COUNT/KEY/ITEM/COMPAREMODE四个属性。 Count属...
47、[VBA入门到放弃笔记]字典坐标用法
数据--->结果要求：将右边的表格转换成左边的表格。就是一维表转二维表。思路: 1、先声明一个足够大的数组，用...
45、[VBA入门到放弃笔记]字典标记行号
源数据结果要求：第一条数据重量字段显示订单号的总重量，其余的空白。示例文件下载链接: http://pan...
40、[VBA入门到放弃笔记]字典应用：提取唯一值
字典的特性决定了key必须是唯一的。所以可以用字典来提取唯一值，也就是去除重复。单列去重复源数据总之，字典里的...
VBA 知识
VBA 编程基础 Excel VBA入门（二）数组和字典 Excel VBA 的可变类型Variant ed2k:...
34、[VBA入门到放弃笔记] 字典:创建和编写字典
字典是VBA中一个十分有用的对象。 VBA中的字典和现实中的【新华字典】、【成语字典】功能一样，都是用来储存信息，...