如何在Excel VBA中使用字典Dictionary对象

你好，

首先得声明字典对象变量

声明有两种方式一种是前期绑定，dim d as new dictionary,另一种是后期绑定，set d=createobject("scripting.dictionary")

字典对象的属性

d.count(是返回字典对象中项目数）

d.key(字典对象中的关键字）

d.item(字典对象中key对应的条目）

d.comparemode(字典查询方式，有三种，用数字代表为0,1,2，0为精确比较，1为模糊比较）

字典对象的方法

d.add （向字典中写入一个关键字项目对）

d.exists （对象中存在的关键字返回true，否则返回false）

d.keys(返回一个一维数组，全部的关键字）

d.items(返回一个一位数组，全部的项目)

d.remove(从字典中清楚一个关键字项目对）

d.removeall(从字典对象中清楚所有的项目对）

通过熟练的掌握VBA字典技术可以处理数据的重复和汇总等要求。

Sub test()

    Dim d, arr

    arr = Sheet2.UsedRange

    Set d = CreateObject("scripting.dictionary")

    For i = 1 To UBound(arr)

        For j = 1 To UBound(arr, 2)

            If arr(i, j) <> "" Then d(arr(i, j)) = ""

        Next

    Next

End Sub

思路不对。vba也一样会卡的，字典虽然好点，但更应该用大数据的处理思路。

数据菜单下，新建查询，用这个，那两列数据用powerquery里的DAX语言去写，才能保证百万行数据和百行数据效率一样高。

---