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

1、新建一个空白工作簿，在工作表界面按下组合快捷键Alt+F11或者右键单击任意一个工作表标签，在弹出的右键快捷菜单单击“查看代码”进入VBA编辑环境，如下图所示：

2、在“代码窗口“中复制粘贴以下代码：

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 = Nothing

End Sub

如下图所示：

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