VBA_Excel_教程：字典类型

Sub testDic()
Dim strV As String
Dim key As String
key = "name"
Dim value As String
value = "关羽"

Dim dic As Object
Set dic = CreateObject("Scripting.Dictionary")

'增
If dic.exists(key) = False Then
dic.Add key, value
End If

Call read(dic)

'删1
dic.Remove (key)
Call read(dic)

'删2：移除全部内容 '
dic.RemoveAll
Call read(dic)
End Sub

Sub read(dic As Object)
'遍历读取
For Each k In dic
strV = dic.Item(k)

Debug.Print strV
Next
End Sub