方法/步驟
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中使用字典對象的通用代碼，任何具體的案例都可以在這個代碼的基礎上進行修改，建議收藏保存，避免每次使用字典對象時需要重復輸入以上代碼。具體的字典對象的所有屬性、方法可以參考MSDN中的在線幫助。