字典Dictionary對(duì)象是一個(gè)非常強(qiáng)大的輔助對(duì)象，利用該對(duì)象可以實(shí)現(xiàn)相關(guān)的提取的不重復(fù)值的任何案例。本文將簡(jiǎn)要介紹在VBA中使用字典Dictionary對(duì)象的通用代碼。

　　1、新建一個(gè)空白工作簿，在工作表界面按下組合快捷鍵 Alt+F11 或者右鍵單擊任意一個(gè)工作表標(biāo)簽，在彈出的右鍵快捷菜單單擊“ 查看代碼 ”進(jìn)入VBA編輯環(huán)境，

　　2、在“ 代碼窗口 “中復(fù)制粘貼以下代碼：

　　Sub Dic()

　　'定義字典對(duì)象變量

　　Dim oDic As Object

　　'創(chuàng)建字典對(duì)象

　　Set oDic = CreateObject("Scripting.Dictionary")

　　Dim arrKey

　　Dim arrItem

　　With oDic

　　'添加鍵和項(xiàng)目(key，item)，其中鍵不能重復(fù)

　　.Add 1， "a"

　　.Add 2， "b"

　　' 判斷是否存在某個(gè)鍵

　　MsgBox .Exists(2)

　　'把鍵2的項(xiàng)目修改為"d"

　　.Item(2) = "d"

　　'返回鍵的數(shù)組

　　arrKey = .keys

　　'返回項(xiàng)目的數(shù)組

　　arrItem = .items

　　'清空字典

　　.RemoveAll

　　End With

　　'釋放字典對(duì)象，清空內(nèi)存

　　Set oDic = Nothing

　　End Sub

　　

　　3、以上代碼是在VBA中使用字典對(duì)象的通用代碼，任何具體的案例都可以在這個(gè)代碼的基礎(chǔ)上進(jìn)行修改，建議收藏保存，避免每次使用字典對(duì)象時(shí)需要重復(fù)輸入以上代碼。

總結(jié)

以上是生活随笔為你收集整理的Excel如何在VBA使用字典Dictionary对象通用代码(如何在Excel)的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。