Dictionary对象是一个非常强大的辅助对象，可以用来实现任何情况下的相关提取非重复值。本文将简要介绍在VBA使用字典对象的一般代码。
1.新建一个空白工作簿，在工作表界面按组合快捷键Alt F11或者右键单击任意工作表标签，在弹出的右键快捷菜单中单击“查看代码”进入VBA编辑环境。
2.将以下代码复制并粘贴到“代码窗口”中：
子Dic()
定义字典对象变量。
作为宾语
创建字典对象
Set oDic=CreateObject('脚本。字典’)
昏暗的arrKey
Dim arrItem
用oDic
添加一个键和一个项(key，item)，其中键不能重复。添加1，' a '添加2，' b '
确定一个键是否存在。
MsgBox。存在(2)
将关键字2的条目修改为“D”。项目(2)='d '
返回一个键数组。
arrKey=。键
返回一个项目数组。
arrItem=。项目
清空字典。全部删除
以…结尾
释放字典对象并清除内存。
设置oDic=无
末端接头
3.以上代码是在VBA使用字典对象的通用代码，任何具体情况都可以在此代码的基础上进行修改。建议收藏保存，避免每次使用字典对象时重复输入上述代码。
