Dim dict' 创建DictionarySet dict = CreateObject("Scripting.Dictionary")' 增加项目dict.Add "A", 300dict.Add "B", 400dict.Add "C", 500' 统计项目数n = dict.Count' 删除项目dict.Remove ("A")' 判断字典中是否包含关键字dict.exists ("B")' 取关键字对应的值，注意在使用前需要判断是否存在key，否则dict中会多出一条记录Value = dict.Item("B")' 修改关键字对应的值,如不存在则创建新的项目dict.Item("B") = 1000dict.Item("D") = 800' 对字典进行循环k = dict.keysv = dict.ItemsFor i = 0 To dict.Count - 1key = k(i)Value = v(i)MsgBox key & ValueNext' 删除所有项目dict.Removeall实例：Sub 宏1()Set dic = CreateObject("Scripting.Dictionary") '字典For i = 1 To 10000If Not i Like "*4*" Thendic.Add i, "" '如果不包含“1”End IfNextRange("a2").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys) '从A2单元开始向下放置End Sub