怎樣在vba函數字典中加入不連續字段

如

Dim d '創建壹個變量

Set d = CreateObject(Scripting.Dictionary)

d.Add "a", "Athens" '添加壹些關鍵字和條目

d.Add "b", "Belgrade"

d.Add "c", "Cairo"

...