Question

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

Answer 1

关于字典用法，网上很多，我把自己整理的发上来，你可以参考一下：
字典的用法
常用关键字英汉对照：
Dictionary 字典
Key 关键字
Item 项，或者译为条目
常用语句：
Dim d 定义字典名
Set d =CreateObject("Scripting.Dictionary") ‘设定是字典

方法：
Add方法：填加关键字和项目并且必需同时填加，例如：d.Add"a", "Athens"
Keys方法：返回一个数组，其中包含了一个 Dictionary 对象中的所有关键字，例如k=d.Keys
Items方法：返回一个数组，其中包含了一个 Dictionary 对象中的全部现有的项目，例如：t=d.Items
Exists方法：查询指定的关键字是否存在，有则返回 true，否则返回 false，例如：If d.Exists("c") Then
Remove方法：清除一个关键字，项目对，例如：d.Remove(“b”)
RemoveAll方法：清除所有的关键字，项目对，d.RemoveAll

属性：
Count属性：返回一个Dictionary 对象中的项目数，例如：n= d.Count
Key属性：在 Dictionary 对象中改变一个 key（即关键字），有则只改变关键字，如果是原来没有的，寻么新加一对关键字和项目，例如：字典.Key(“原关键字”) = “新关键字”
Item属性：设置或者返回所指定 key 的 item。对于集合则根据所指定的key 返回一个 item。读/写，例如：object.Item(key)[ = newitem
CompareMode属性：设置或者返回在Dictionary 对象中进行字符串关键字比较时所使用的比较模式。例如：object.CompareMode[ = compare]