Excel如何在VBA使用字典Dictionary对象通用代码
字典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中使用字典对象的通用代码,任何具体的案例都可以在这个代码的基础上进行修改,建议收藏保存,避免每次使用字典对象时需要重复输入以上代码。
最新科技数码科普
侠盗猎车手5闪退解决办法
侠盗猎车手5闪退解决办法很多玩家在运行侠盗猎车手5的时候出现闪退的情况,那么怎样才能完美解决闪退的问题呢?侠盗猎车手5GTA5闪退解决办法:1、不要替换GTA...
展开详情Excel2016文字如何竖排?Excel2016文字竖向排列方法
如何利用Excel2016让你本来的文字方向变为竖向排列。希望大家看过之后能够学会。Excel2016文字竖向排列方法打开你更新过的Office Excel2...
展开详情excel如何计算标准差
excel标准差函数是什? excel怎么计算标准差呢?其实在生活中标准差是经常使用到的,它表示一组数据的离散程度,数值越大,预示着离散程度越大;数值越小,预...
展开详情苹果iPhone12轻点背面没反应怎么办 iPhone12轻点背面不灵敏解决方法
iPhone12中作为去年苹果推出的旗舰手机,有很多有趣的小功能,其中的轻点背部就是其中之一,但有些用户发现自己的iPhone12轻点背部并不灵敏, 那么,苹果...
展开详情Excel2016中如何使用DAYS360函数求两日期之间相差的天数
Excel2016表格中的众多函数中,DAYS360函数不可谓不特别。它将一年分为360天的算法(每个月30天,一年12个月),从而求得两个日期之间直接相差的...
展开详情疾风之刃血妖姬PVE怎么加点好 疾风之刃血妖姬PVE加点参考
疾风之刃血妖姬PVE怎么加点好? 参考加点A型共通SHIFT :满紧急回避 :满血妖花心脏摘除 :1斩断 :MEX.心脏摘除 :1血开眼 :M血蝙化 :M鲜血...
展开详情虎牌电饭煲炸管怎么维修 虎牌电饭煲炸管维修方法
100V纯进口虎牌电磁煲,此机故障是不通电,拆机检查,功率管击穿,保险击穿…测各基本电压正常,直接装上H20R1203和保险…通电启动,瞬间启动电流正常,取出...
展开详情