1 丨

什么是字典

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

我舉個(gè)例子。

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

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

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

如果是用字典呢？

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

比如查詢看見(jiàn)星光的特長(zhǎng)..▼

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

……

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

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

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

2 丨

如何創(chuàng)建字典

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

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

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

第2句代碼聲明一個(gè)對(duì)象類型的變量，其名為d。

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

……

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

有朋友說(shuō)，星光你是不是個(gè)鐵憨憨？很明顯，前期綁定需要手動(dòng)操作，后期綁定用代碼就行了！——拜托，我五行多金，你可以說(shuō)我憨，但不能帶鐵。而且，攤手，事情可沒(méi)有這么簡(jiǎn)單▼

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

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

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

3 丨

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

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

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

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

舉個(gè)例子。

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

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

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

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

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

舉個(gè)例子。

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

解決方案代碼如下▼

Sub 判斷字典是否存在相同關(guān)鍵字()    Dim d As New Dictionary '聲明一個(gè)字典對(duì)象    d('看見(jiàn)星光') = 99    If Not d.Exists('看見(jiàn)星光') Then        d('看見(jiàn)星光') = 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，特長(zhǎng)是item    NextEnd Sub

4 丨

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

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

如上圖所示的數(shù)據(jù)為例，需要根據(jù)A:B列的數(shù)據(jù)源，查詢D列人名對(duì)應(yīng)的特長(zhǎ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è)置為空文本？對(duì)于字典來(lái)說(shuō)，Key和Item都是必須的，兩者必須成對(duì)出現(xiàn)，缺一不可，但這里我們對(duì)Item并沒(méi)有特別的要求，所以就隨便賞個(gè)空文本打發(fā)一下算了。有朋友說(shuō)，那我將代碼改成下面這樣行不行？——當(dāng)然可以！我真誠(chéng)的祝愿你夢(mèng)想成真！

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

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

示例代碼如下▼

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

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

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

……

5 丨

如何移除字典中的元素

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

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

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

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

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ù)的號(hào)碼存入字典            End If        Next        arr(i, UBound(arr, 2)) = VBA.Join(d.Keys, ',') '合并為一個(gè)字符串    Next    Range('a1').CurrentRegion = arr    Set d = NothingEnd Sub

6 丨

如何遍歷字典中的元素

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

什么意思呢？舉個(gè)例子還是我。

如下圖所示的數(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中的人名存入字典，重點(diǎn)是下面這句代碼。

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

d(arr(i, 1)) =1

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

……

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

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

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

……

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) = '愛(ài)就一個(gè)字'    MsgBox d.Exists('1')End Sub

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

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

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

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

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

與之相似的還有下面幾種語(yǔ)句，同樣因?yàn)椴粔蜢`活，打字偏多等不推薦使用。

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

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