Excel如何在VBA使用字典Dictionary对象通用代码
番茄系统家园 · 2022-01-11 06:14:37
字典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中使用字典对象的通用代码，任何具体的案例都可以在这个代码的基础上进行修改，建议收藏保存，避免每次使用字典对象时需要重复输入以上代码。
免责声明： 凡标注转载/编译字样内容并非本站原创，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责。如果你觉得本文好，欢迎推荐给朋友阅读；本文链接： https://m.nndssk.com/rjwt/392573SwJGUV.html。猜你喜欢
最新应用
热门应用
