Question

如何在Excel VBA中使用字典Dictionary对象

Answer 1

使用字典很简单，但要运用自如，需要思考编写大量的实例来实现。
以下代码，简要说明字典的常见方法：
Sub Dic()
Dim oDic As Object'定义字典对象变量
Set oDic = CreateObject("Scripting.Dictionary") '创建字典对象
Dim arrKey
Dim arrItem
With oDic
.Add 1, "a" '添加键和项目(key,item),其中键不能重复，此语句中键为1，项目为a
.Add 2, "b"
if .Exists(2) then'判断2是否存在键中

.Item(2) = "d"'如果存在，将键为2的项目改为d(原来为a)
end if
arrKey = .keys'将键值赋予数组arrkey

arrItem = .items'将项目值赋予数组arritem

.RemoveAll'清空字典

End With
Set oDic = Nothing'释放字典对象，清空内存
End Sub

Answer 2

sub test()
dim dic as object
set dic=createobject("scripting.dictionary")
end sub
这样就创建了一个字典对象。