字典Dictionary對象是一個非常強大的輔助對象，利用該對象可以實現相關的提取的不重復值的任何案例。本文將簡要介紹在VBA中使用字典Dictionary對象的通用代碼。

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中的在線幫助。

相關推薦：

excel怎么使用vba自動調整列寬?

excel表格怎么利用vba自動填充公式?

excel中怎么使用Vba批量刪除指定文件夾下的所有文件?