Excel VBA怎么使用字典Dictionary对象的通用代码?_excel_办公软件_脚本之家

link之家

链接快照平台

相关文章推荐

想出家的煎鸡蛋 · ORA-00933 SQL命令未正确结束 ...· 2 年前 ·

聪明的领带 · find+exec的结合用法 - 知乎· 2 年前 ·

旅行中的钥匙 · C++使用fill初始化二维数组_c++ ...· 2 年前 ·

老实的刺猬 · react读取文件夹和文件-掘金· 2 年前 ·

2016-09-06 16:34:42 脚本之家

字典Dictionary对象是一个非常强大的辅助对象，利用该对象可以实现相关的提取的不重复值的任何案例。本文将简要介绍在VBA中使用字典Dictionary对象的通用代码。

Excel2003绿色版 EXCEL2003精简绿色版 (附excel2003绿色工具)

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中的在线帮助。

相关推荐：

excel怎么使用vba自动调整列宽?