看完這篇，如果你還不懂VBA字典，那我就沒辦法了

1 丨

什么是字典

談到字典，有些朋友可能會想到新華字典、康熙字典、英漢字典、有道字典等等。我今天說的字典，和這些家伙——都沒關(guān)系。字典(Dictionary)是VBA編程中的一個對象，具有操作簡單、運行高效的特點，常用于數(shù)據(jù)的條件查詢、聚合匯總等。如果說數(shù)組是VBA處理數(shù)據(jù)的基礎(chǔ)結(jié)構(gòu)，那么字典就可以被稱為核心。攤手，騙你娶你，不論男女。

我舉個例子。

如上圖所示的數(shù)據(jù)表，如果我們需要查詢看見星光的特長，數(shù)組的解法步驟如下▼

首先將數(shù)據(jù)源存入數(shù)組，然后遍歷姓名，第1個人名不是，第2個人名不是，第3個人名不是，第4個還不是……一直到第7個人名才是，于是取特長，退出數(shù)組循環(huán)……

數(shù)組循環(huán)是線性查找的方式，只能一個個元素找過去，如果查找值過多，效率就很不理想。

如果是用字典呢？

首先將數(shù)據(jù)源裝入字典，然后用一句代碼就可以查詢相關(guān)人名的特長了。

比如查詢看見星光的特長..▼

不用懷疑，不用循環(huán)，就是這么簡單。

……

還記得嗎？在數(shù)組四篇之什么是數(shù)組里，咱們講過數(shù)組處理數(shù)據(jù)的過程可以分為5步。創(chuàng)建數(shù)組->將數(shù)據(jù)存入數(shù)組->數(shù)組運算->將數(shù)組數(shù)據(jù)寫入Excel->釋放數(shù)組。

字典處理數(shù)據(jù)的過程與數(shù)組十分相似：創(chuàng)建字典->將數(shù)據(jù)裝入字典->將數(shù)據(jù)從字典取出->釋放字典。

——那么如何創(chuàng)建字典？

2 丨

如何創(chuàng)建字典

如上文所講，字典(Dictionary)是VBA編程的一個對象，但它并非VBA自帶的妻妾，而是集成在動態(tài)鏈接庫文件Scrrun.dll中，需要綁定文件后才能夠使用。綁定文件有兩種方式，前期綁定和后期綁定。

Sub 前期綁定()    Dim d As New Dictionary '聲明一個字典對象    ……End Sub

Sub 后期綁定()    Dim d As Object '聲明一個對象    Set d = CreateObject('scripting.dictionary') '創(chuàng)建對字典的引用    ……End Sub

第2句代碼聲明一個對象類型的變量，其名為d。

第3句代碼使用CreateObject函數(shù)創(chuàng)建對字典對象的引用……

……

那么前期綁定和后期綁定有什么不同呢？

有朋友說，星光你是不是個鐵憨憨？很明顯，前期綁定需要手動操作，后期綁定用代碼就行了！——拜托，我五行多金，你可以說我憨，但不能帶鐵。而且，攤手，事情可沒有這么簡單▼

比如——在使用前期綁定后，編寫代碼時系統(tǒng)會自動顯示字典的成員列表，而后期綁定不會顯示；有些屬性，前期綁定是支持的，但后期綁定不能使用（詳情見文末說明）；另外，通常前期綁定的代碼運算效率要比后期快一些。

但是——前期綁定的代碼不適合發(fā)送給其它用戶使用，畢竟其它用戶未必會去手動綁定字典對象；因此后期綁定的方式兼容性更強些。

總結(jié)——建議編寫代碼時采用前期綁定，編寫完成后，如需發(fā)送他人使用，再改為后期綁定，如此魚和熊掌必可兼得矣~

3 丨

如何將數(shù)據(jù)裝入字典

和數(shù)組所不同的是，字典的行數(shù)看起來并不固定，你往字典里裝了多少個關(guān)鍵字，它就會有幾行數(shù)據(jù)，每一行數(shù)據(jù)都由兩列組成，第1列是關(guān)鍵字，第2列是關(guān)鍵字對應(yīng)的條目。

那么如何將數(shù)據(jù)裝入字典呢？

直接賦值就可以了。語法格式如下▼

舉個例子。

Sub 字典添加數(shù)據(jù)()    Dim d As New Dictionary '聲明一個字典對象    d('看見星光') = 99    d('Excel星球') = 98End Sub

第2行代碼使用前期綁定的方式聲明一個字典對象，其名為d。

第3行代碼將關(guān)鍵字'看見星光'裝入字典，對應(yīng)的條目是99。此時字典有一行數(shù)據(jù)，如下圖所示。

第4行代碼將關(guān)鍵字'Excel星球'裝入字典，對應(yīng)的條目是98。此時字典就會有兩行數(shù)據(jù)，如下圖所示。

但是我們前面講過，字典的關(guān)鍵字必須是唯一的，如果字典中已經(jīng)存在了某個關(guān)鍵字，我們又往里面添加了同樣的關(guān)鍵字，會怎么樣呢？

舉個例子。

如果我不想字典更新已經(jīng)存在的關(guān)鍵字記錄呢？憑什么把我從99分改為59分？對不對？我憑本事抄的答案你憑啥給我改成不及格？作為一個人，難道我連抄答案的自由都沒有了嗎？多么糟糕的組織會干出這樣無情的事？——摘自跨國出版物《星光日記》。

解決方案代碼如下▼

Sub 判斷字典是否存在相同關(guān)鍵字()    Dim d As New Dictionary '聲明一個字典對象    d('看見星光') = 99    If Not d.Exists('看見星光') Then        d('看見星光') = 59    End IfEnd Sub

Sub 數(shù)據(jù)表數(shù)據(jù)存入字典()    Dim d As New Dictionary    Dim arr, i As Long    arr = Worksheets('數(shù)據(jù)表').Range('a1').CurrentRegion    For i = 2 To UBound(arr) '遍歷數(shù)組元素        d(arr(i, 1)) = arr(i, 2) '姓名是key，特長是item    NextEnd Sub

4 丨

如何將數(shù)據(jù)從字典取出

字典(關(guān)鍵字)

如上圖所示的數(shù)據(jù)為例，需要根據(jù)A:B列的數(shù)據(jù)源，查詢D列人名對應(yīng)的特長，這就是所謂的條件查詢了。

字典.Keys

示例代碼如下▼

Sub 去重復(fù)()    Dim d As New Dictionary    Dim arr, i As Long    arr = Range('a1').CurrentRegion    For i = 1 To UBound(arr)        If Not d.Exists(arr(i, 1)) Then            d(arr(i, 1)) = ''        End If    Next    Range('d:d').ClearContents    Range('d1').Resize(d.Count, 1) = Application.Transpose(d.Keys)    Set d = NothingEnd Sub

代碼的意思是姓名為關(guān)鍵字，條目為空文本。為什么要將條目設(shè)置為空文本？對于字典來說，Key和Item都是必須的，兩者必須成對出現(xiàn)，缺一不可，但這里我們對Item并沒有特別的要求，所以就隨便賞個空文本打發(fā)一下算了。有朋友說，那我將代碼改成下面這樣行不行？——當(dāng)然可以！我真誠的祝愿你夢想成真！

d(arr(i, 1)) = '我想有個真人女朋友'

需要重點說一下第11行代碼，它的作用是將字典所有關(guān)鍵字存入當(dāng)前工作表的D列。語句如下。

示例代碼如下▼

Sub 去重復(fù)2()    Dim d As New Dictionary    Dim arr, i As Long    arr = Range('a1').CurrentRegion    For i = 1 To UBound(arr)        If Not d.Exists(arr(i, 1)) Then            d(arr(i, 1)) = arr(i, 2)        End If    Next    Range('d:e').ClearContents    Range('d1').Resize(d.Count, 2) = Application.Transpose(Array(d.Keys, d.Items))    Set d = NothingEnd Sub

代碼使用以下語句一次性獲取字典的Keys和Items，存入一個一維數(shù)組（在數(shù)組四篇里咱們講過，Array函數(shù)結(jié)果為一維數(shù)組），最后再通過一次轉(zhuǎn)置將一維數(shù)組修改為2維，直接寫入指定單元格區(qū)域。

Application.Transpose(Array(d.Keys, d.Items))

……

5 丨

如何移除字典中的元素

Sub 移除指定關(guān)鍵字()    Dim d As New Dictionary '聲明一個字典對象    d('看見星光') = 99    d('Excel星球') = 98    d.Remove '看見星光'End Sub

第3行和第4行代碼分別添加兩個關(guān)鍵字到字典中。此時字典有兩行數(shù)據(jù)，如下圖所示▼

當(dāng)一個字典需要重復(fù)使用的時候，就需要用上RemoveAll方法了。

舉個例子，如下圖所示，需要在H列獲取每期開獎號碼不重復(fù)的號碼，并用逗號作為分隔符，合并成一個字符串。

Sub 全部移除字典中的元素()    Dim d As New Dictionary    Dim arr, i As Long, j As Long    arr = Range('a1').CurrentRegion    For i = 2 To UBound(arr) '遍歷行        d.RemoveAll '移除字典中所有的元素        For j = 2 To UBound(arr, 2) - 1 '遍歷列            If Not d.Exists(arr(i, j)) Then                d(arr(i, j)) = '' '將不重復(fù)的號碼存入字典            End If        Next        arr(i, UBound(arr, 2)) = VBA.Join(d.Keys, ',') '合并為一個字符串    Next    Range('a1').CurrentRegion = arr    Set d = NothingEnd Sub

6 丨

如何遍歷字典中的元素

有時候，為了篩選出符合條件的數(shù)據(jù)，我們需要像遍歷數(shù)組一樣，遍歷字典中的每個元素。這通常需要先獲取字典的Keys集合，再遍歷每個Key去篩選字典中符合條件的數(shù)據(jù)。

什么意思呢？舉個例子還是我。

如下圖所示的數(shù)據(jù)表，需要篩選出人名重復(fù)出現(xiàn)次數(shù)大于2次的人員名單，以及相關(guān)出現(xiàn)次數(shù)，結(jié)果參考C:D列。

Sub 遍歷字典元素_索引法()    Dim d As New Dictionary    Dim arr, aKey, aRes, i As Long, k As Long    arr = Range('a1').CurrentRegion    For i = 2 To UBound(arr)        d(arr(i, 1)) = d(arr(i, 1)) + 1    Next    aKey = d.Keys    ReDim aRes(1 To d.Count, 1 To 2) '結(jié)果數(shù)組    For i = 0 To UBound(aKey)        If d(aKey(i)) > 2 Then '次數(shù)大于2次            k = k + 1            aRes(k, 1) = aKey(i)            aRes(k, 2) = d(aKey(i))        End If    Next    Range('c:c').ClearContents    Range('c1') = '重復(fù)2次以上的人名'    Range('c2').Resize(k, 2) = aRes    Set d = NothingEnd Sub

代碼解析：

第4行代碼將數(shù)據(jù)源數(shù)據(jù)存入數(shù)組arr。

第5行至第7行代碼將數(shù)組arr中的人名存入字典，重點是下面這句代碼。

d(arr(i, 1)) = d(arr(i, 1)) + 1

d(arr(i, 1)) =1

d(arr(i, 1)) = 1 + 1

……

第8行代碼返回字典中所有的Key，結(jié)果是一個下標(biāo)為0的一維數(shù)組，命名為aKey。

第9行代碼聲明一個結(jié)果數(shù)組，行數(shù)為字典的個數(shù)，列數(shù)是2列，一列放人名，一列放次數(shù)。

第10行至第16行代碼采用索引的方式遍歷數(shù)組aKey，查看每一個Key在字典中的Item是否大于2次，如果大于2次則將Key和Item分別存入結(jié)果數(shù)組。相似的套路咱們在數(shù)組4篇的數(shù)組運算里詳細講過了，這里就不再敲擊鍵盤，免得浪費它所剩無幾的生命力。

……

7 丨

如何釋放字典內(nèi)存

Set d = Nothing

8 丨

思考題和其它

r = d.Keys'關(guān)鍵字集合賦值數(shù)組rstrKey = r(1)

Sub 不區(qū)分字母大小寫2()    Dim d As New Dictionary    d(LCase('a')) = 1'LCase將字母統(tǒng)一轉(zhuǎn)換為小寫    MsgBox d(LCase('A')) End Sub

Sub 數(shù)據(jù)類型1()    Dim d As New Dictionary    d(1) = '愛就一個字'    MsgBox d.Exists('1')End Sub

4丨字典常用方法和屬性的另外表達方式

如果你看的VBA代碼多了，可能會看到有人使用以下方式往字典中添加關(guān)鍵字和對應(yīng)條目：

d.Add '夏天','吃冰棍'

其中夏天是Key，吃冰棍是Item。

但這種方式在常規(guī)VBA代碼中我并不推薦使用，原因很簡單，它不夠靈活。如果字典中已存在相同關(guān)鍵字，該語句會返回錯誤值，而且它并不支持更新相關(guān)條目。當(dāng)然，最重要的是，它打字太多了，你數(shù)數(shù)，相比下句代碼它多打了幾個字？別不把手指當(dāng)親骨肉啊同志們吶！！

與之相似的還有下面幾種語句，同樣因為不夠靈活，打字偏多等不推薦使用。

Sub test1()    Dim d As New Dictionary    d.Add '看見星光', '曾經(jīng)20歲' '添加一個關(guān)鍵字看見星光    MsgBox d.Item('看見星光') '獲取關(guān)鍵字看見星光對應(yīng)的條目    d.Item('看見星光') = '年年18歲' '將看見星光對應(yīng)的條目修改為'年年18歲'End Sub

5丨如何學(xué)習(xí)更多VBA編程知識和技巧？