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

在“代码窗口“中复制粘贴以下代码：Sub Dic()    '定义字典对象变量    Dim oDic As Object    '创建字典对象    Set oDic = CreateObject('Scripting.Dictionary')    Dim arrKey    Dim arrItem    With oDic        '添加键和项目(key,item),其中键不能重复        .Add 1, 'a'        .Add 2, 'b''        判断是否存在某个键        MsgBox .Exists(2)        '把键2的项目修改为'd'        .Item(2) = 'd'        '返回键的数组        arrKey = .keys        '返回项目的数组        arrItem = .items        '清空字典        .RemoveAll    End With    '释放字典对象，清空内存    Set oDic = NothingEnd Sub如下图所示：

以上代码是在VBA中使用字典对象的通用代码，任何具体的案例都可以在这个代码的基础上进行修改，建议收藏保存，避免每次使用字典对象时需要重复输入以上代码。具体的字典对象的所有属性、方法可以参考MSDN中的在线帮助。