字典Dictionary对象是一个非常强大的辅助对象，利用该对象可以实现相关的提取的不重复值的任何案例。本文将简要介绍在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中使用字典对象的通用代码，任何具体的案例都可以在这个代码的基础上进行修改，建议收藏保存，避免每次使用字典对象时需要重复输入以上代码。