Excel VBA怎么使用字典Dictionary對象的通用代碼?

Excel VBA怎么使用字典Dictionary對象的通用代碼?

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

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

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

Sub Dic()

'定義字典對象變量

Dim oDic As Object

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

Set oDic = CreateObject("Scripting.Dictionary")

Dim arrKey

Dim arrItem

With oDic

'添加鍵和項目(key,item),其中鍵不能重復(fù)

.Add 1, "a"

.Add 2, "b"

' ? ? ? ?判斷是否存在某個鍵

MsgBox .Exists(2)

'把鍵2的項目修改為"d"

.Item(2) = "d"

'返回鍵的數(shù)組

arrKey = .keys

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

arrItem = .items

'清空字典

.RemoveAll

End With

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

Set oDic = Nothing

End Sub

如下圖所示：

3、以上代碼是在VBA中使用字典對象的通用代碼，任何具體的案例都可以在這個代碼的基礎(chǔ)上進行修改，建議收藏保存，避免每次使用字典對象時需要重復(fù)輸入以上代碼。具體的字典對象的所有屬性、方法可以參考MSDN中的在線幫助。

相關(guān)推薦：

excel怎么使用vba自動調(diào)整列寬?

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

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

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。

版權(quán)聲明：本文內(nèi)容由網(wǎng)絡(luò)用戶投稿，版權(quán)歸原作者所有，本站不擁有其著作權(quán)，亦不承擔(dān)相應(yīng)法律責(zé)任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內(nèi)容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內(nèi)刪除侵權(quán)內(nèi)容。