如何在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字典技术可以处理数据的重复和汇总等要求。

直接增加字典的关键字和条目就行了呀

如

Dim d '创建一个变量

Set d = CreateObject(Scripting.Dictionary)

d.Add "a", "Athens" '添加一些关键字和条目

d.Add "b", "Belgrade"

d.Add "c", "Cairo"

...

---