常見字典用法集錦及代碼詳解(全)_藍(lán)橋玄霜(共60頁)

1、 STYLEREF 標(biāo)題 1 * MERGEFORMAT 常見字典用法集錦及代碼詳解 STYLEREF 標(biāo)題 2 * MERGEFORMAT 后語PAGE 56PAGE 67常見(chn jin)字典用法集錦及代碼詳解(xin ji)藍(lán)橋(ln qio)玄霜前言(qin yn)凡是(fnsh)上過學(xué)校的人都使用過字典，從新華字典、成語詞典，到英漢字典以及各種各樣數(shù)不勝數(shù)的專業(yè)字典，字典是上學(xué)必備的、經(jīng)常查閱的工具書。有了它們，我們可以很方便的通過查找某個關(guān)鍵字，進(jìn)而查到這個關(guān)鍵字的種種(zhngzhng)解釋，非常快捷實用。凡是上過EH論壇的想學(xué)習(xí)VBA里面字典用法的，幾乎都看過研究過nort

2、hwolves狼版主、oobird版主的有關(guān)字典的精華貼和經(jīng)典代碼。我也是從這里接觸到和學(xué)習(xí)到字典的，在此，對他們表示深深的謝意，同時也對很多把字典用得出神入化的高手們致敬，從他們那里我們也學(xué)到了很多，也得到了提高。字典對象只有4個屬性和6個方法，相對其它的對象要簡潔得多，而且容易理解使用方便，功能強大，運行速度非?？?，效率極高。深受大家的喜愛。本文希望通過對一些字典應(yīng)用的典型實例的代碼的詳細(xì)解釋來給初次接觸字典和想要進(jìn)一步了解字典用法的朋友提供一點備查的參考資料，希望大家能喜歡。給代碼注釋估計是大家都怕做的，因為往往是出力不討好的，稍不留神或者自己確實理解得不對，還會貽誤他人。所以下面的這些

3、注釋如果有不對或者不妥當(dāng)?shù)牡胤?，請大家跟帖時指正批評，及時改正。字典的簡介字典（Dictionary）對象是微軟Windows腳本語言中的一個很有用的對象。附帶提一下，有名的正則表達(dá)式（RegExp）對象和能方便處理驅(qū)動器、文件夾和文件的（FileSystemObject ）對象也是微軟Windows腳本語言中的一份子。字典對象相當(dāng)于一種聯(lián)合數(shù)組，它是由具有唯一性的關(guān)鍵字（Key）和它的項（Item）聯(lián)合組成。就好像一本字典書一樣，是由很多生字和對它們對應(yīng)的注解所組成。比如字典的“典”字的解釋是這樣的：“典”字就是具有唯一性的關(guān)鍵字，后面的解釋就是它的項，和“典”字聯(lián)合組成一對數(shù)據(jù)。常用關(guān)鍵字

4、英漢對照：Dictionary字典Key關(guān)鍵字Item項，或者譯為 條目字典對象的方法有6個：Add方法、Keys方法、Items方法、Exists方法、Remove方法、RemoveAll方法。Add方法向 Dictionary 對象(duxing)中添加一個關(guān)鍵字項目對。 HYPERLINK object.Add ( HYPERLINK key, HYPERLINK item)參數(shù)(cnsh)object 必選項。總是(zn sh)一個 Dictionary 對象的名稱。 key 必選項。與被添加的 item 相關(guān)聯(lián)的 key。 item 必選項。與被添加的 key 相關(guān)聯(lián)的 item。

5、說明如果 key 已經(jīng)存在，那么將導(dǎo)致一個錯誤。常用語句：Dim d Set d = CreateObject(Scripting.Dictionary)d.Add a, Athens d.Add b, Belgraded.Add c, Cairo代碼詳解1、Dim d ：創(chuàng)建變量，也稱為聲明變量。變量d聲明為可變型數(shù)據(jù)類型(Variant)，d后面沒有寫數(shù)據(jù)類型，默認(rèn)就是可變型數(shù)據(jù)類型(Variant)。也有寫成Dim d As Object的，聲明為對象。2、Set d = CreateObject(Scripting.Dictionary)：創(chuàng)建字典對象，并把字典對象賦給變量d。這是最常

6、用的一句代碼。所謂的“后期綁定”。用了這句代碼就不用先引用c:windowssystem32scrrun.dll了。3、d.Add a, Athens：添加一關(guān)鍵字”a”和對應(yīng)于它的項”Athens”。 4、d.Add b, “Belgrade”：添加一關(guān)鍵字”b”和對應(yīng)于它的項”Belgrade”。 5、d.Add c, “Cairo”：添加一關(guān)鍵字”c”和對應(yīng)于它的項”Cairo”。 Exists方法如果 Dictionary 對象中存在所指定的關(guān)鍵字則返回 true，否則返回 false。 HYPERLINK object.Exists( HYPERLINK key)參數(shù)object 必

7、選項?？偸且粋€ Dictionary 對象的名稱。 key 必選項。需要在 Dictionary 對象中搜索的 key 值。常用語句：Dim d, msg$ Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo If d.Exists(c) Then msg = 指定的關(guān)鍵字已經(jīng)(y jing)存在。 Else msg = 指定(zhdng)的關(guān)鍵字不存在。 End If代碼(di m)詳解1、Dim d, msg$ ：聲明變量，d見前例；msg$ 聲明為字符串?dāng)?shù)據(jù)

8、類型(String)，一般寫法為Dim msg As String。String 的類型聲明字符為美元號 ($)。2、If d.Exists(c) Then：如果字典中存在關(guān)鍵字”c”，那么執(zhí)行下面的語句。3、msg = 指定的關(guān)鍵字已經(jīng)存在。 ：把指定的關(guān)鍵字已經(jīng)存在。字符串賦給變量msg。4、Else ：否則執(zhí)行下面的語句。5、msg = 指定的關(guān)鍵字不存在。 ：把指定的關(guān)鍵字不存在。字符串賦給變量msg。6、End If ：結(jié)束If ElseEndif判斷。Keys方法返回一個數(shù)組，其中包含了一個 Dictionary 對象中的全部現(xiàn)有的關(guān)鍵字。object.Keys( )其中 obje

9、ct 總是一個 Dictionary 對象的名稱。常用語句：Dim d, k Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo k=d.Keys B1.Resize(d.Count,1)=Application.Transpose(k)代碼詳解1、Dim d, k ：聲明變量，d見前例；k默認(rèn)是可變型數(shù)據(jù)類型(Variant)。2、k=d.Keys：把字典中存在的所有的關(guān)鍵字賦給變量k。得到的是一個一維數(shù)組，下限為0，上限為d.Count-1。這是數(shù)組的默認(rèn)形式

10、。3、B1.Resize(d.Count,1)=Application.Transpose(k) ：這句代碼是很常用很經(jīng)典的代碼，所以這里要多說一些。Resize是Range對象的一個屬性，用于調(diào)整指定區(qū)域的大小，它有兩個參數(shù)，第一個是行數(shù)，本例是d.Count，指的是字典中關(guān)鍵字的數(shù)量，整本字典中有多少個關(guān)鍵字，本例d.Count=3，因為有3個關(guān)鍵字。呵呵，是不是說多了。第二個是列數(shù)，本例是1。這樣左邊的意思就是：把一個單元格B1調(diào)整為以B1開始的一列單元格區(qū)域，行數(shù)等于字典中關(guān)鍵字的數(shù)量d.Count，就是把單元格B1調(diào)整為單元格區(qū)域B1：B3了。右邊的k是個一維數(shù)組，是水平排列的，我們

11、知道Excel工作表函數(shù)里面有個轉(zhuǎn)置函數(shù)Transpose，用它可以把水平排列的置換成豎向排列。但是在VBA中不能直接使用該工作表函數(shù)，需要通過Application對象的WorksheetFunction屬性來使用它。所以完整的寫法是Application. WorksheetFunction.Transpose(k)，中間的WorksheetFunction可省略。現(xiàn)在可以解釋這句代碼了：把字典中所有的關(guān)鍵字賦給以B1單元格開始的單元格區(qū)域中。Items方法返回一個(y )數(shù)組，其中包含了一個 Dictionary 對象中的所有項目。object.Items( )其中 object 總是(

12、zn sh)一個 Dictionary 對象的名稱。常用(chn yn)語句：Dim d, t Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo t=d.Items C1.Resize(d.Count,1)=Application.Transpose(t)代碼詳解1、Dim d, t ：聲明變量，d見前例；t默認(rèn)是可變型數(shù)據(jù)類型(Variant)。2、t=d.Items ：把字典中所有的關(guān)鍵字對應(yīng)的項賦給變量t。得到的也是一個一維數(shù)組，下限為0，上限為d.Cou

13、nt-1。這是數(shù)組的默認(rèn)形式。3、C1.Resize(d.Count,1)=Application.Transpose(t) ：有了上面Keys方法的解釋這句代碼就不用多說了，就是把字典中所有的關(guān)鍵字對應(yīng)的項賦給以C1單元格開始的單元格區(qū)域中。Remove方法Remove 方法從一個 Dictionary 對象中清除一個關(guān)鍵字，項目對。object.Remove(key )其中 object 總是一個 Dictionary 對象的名稱。key 必選項。key 與要從 Dictionary 對象中刪除的關(guān)鍵字，項目對相關(guān)聯(lián)。 說明如果所指定的關(guān)鍵字，項目對不存在，那么將導(dǎo)致一個錯誤。常用語句：D

14、im d Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo d.Remove(“b”)代碼詳解1、d.Remove(“b”)：清除字典中”b”關(guān)鍵字和與它對應(yīng)的項。清除之后,現(xiàn)在字典里只有2個關(guān)鍵字了。RemoveAll方法RemoveAll 方法從一個 Dictionary 對象中清除所有的關(guān)鍵字，項目對。object.RemoveAll( )其中(qzhng) object 總是一個 Dictionary 對象的名稱。常用(chn yn)語句：Dim d S

15、et d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo d.RemoveAll代碼(di m)詳解1、d.RemoveAll：清除字典中所有的數(shù)據(jù)。也就是清空這字典，然后可以添加新的關(guān)鍵字和項，形成一本新字典。字典對象的屬性有4個：Count屬性、Key屬性、Item屬性、CompareMode屬性。Count屬性返回一個Dictionary 對象中的項目數(shù)。只讀屬性。object.Count其中 object一個字典對象的名稱。常用語句：Dim d,n% Set d

16、= CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo n = d.Count代碼詳解1、Dim d, n% ：聲明變量，d見前例；n被聲明為整型數(shù)據(jù)類型(Integer)。一般寫法為Dim n As Integer 。 Integer 的類型聲明字符為百分比號 (%)。2、n = d.Count ：把字典中所有的關(guān)鍵字的數(shù)量賦給變量n。本例得到的是3。Key屬性在 Dictionary 對象中設(shè)置一個 key。 HYPERLINK object.Key( HYPERLINK k

17、ey) = HYPERLINK newkey參數(shù)：object 必選項?？偸且粋€字典 (Dictionary) 對象的名稱。 key 必選項。被改變的 key 值。 newkey 必選項。替換所指定的 key 的新值。 說明如果在改變一個 key 時沒有發(fā)現(xiàn)該 key，那么將創(chuàng)建一個新的 key 并且其相關(guān)聯(lián)的 item 被設(shè)置為空。常用(chn yn)語句：Dim d Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo d.Key(c) = d 代碼(di m)

18、詳解1、d.Key(c) = d ：用新的關(guān)鍵字”d”來替換(t hun)指定的關(guān)鍵字”c”，這時，字典中就沒有關(guān)鍵字c了，只有關(guān)鍵字d了，與d對應(yīng)的項是”Cairo”。 Item屬性在一個 Dictionary 對象中設(shè)置或者返回所指定 key 的 item。對于集合則根據(jù)所指定的 key 返回一個 item。讀/寫。 HYPERLINK object.Item( HYPERLINK key) = HYPERLINK newitem參數(shù)object 必選項。總是一個Dictionary 對象的名稱。 key 必選項。與要被查找或添加的 item 相關(guān)聯(lián)的 key。 newitem 可選項。僅

19、適用于 Dictionary 對象；newitem 就是與所指定的 key 相關(guān)聯(lián)的新值。 說明如果在改變一個 key 的時候沒有找到該 item，那么將利用所指定的 newitem 創(chuàng)建一個新的 key。如果在試圖返回一個已有項目的時候沒有找到 key，那么將創(chuàng)建一個新的 key 且其相關(guān)的項目被設(shè)置為空。常用語句：Dim d Set d = CreateObject(Scripting.Dictionary) d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo MsgBox d.Item(c) 代碼詳解1、d.Item(c) ：獲取指定的關(guān)鍵字

20、”c”對應(yīng)的項。 2、MsgBox ：是一個VBA函數(shù)，用消息框顯示。如果要詳細(xì)了解MsgBox函數(shù)的，可參見我的另一篇文章“常用VBA函數(shù)精選合集”。/thread-387253-1-1.htmlCompareMode屬性設(shè)置或者返回在 Dictionary 對象中進(jìn)行字符串關(guān)鍵字比較時所使用的比較模式。 HYPERLINK object.CompareMode = HYPERLINK compare參數(shù)(cnsh)object 必選項?？偸?zn sh)一個 Dictionary 對象(duxing)的名稱。 compare 可選項。如果提供了此項，compare 就是一個代表比較模式的值

21、?？梢允褂玫闹凳?0 (二進(jìn)制)、1 (文本), 2 (數(shù)據(jù)庫)。 說明如果試圖改變一個已經(jīng)包含有數(shù)據(jù)的 Dictionary 對象的比較模式，那么將導(dǎo)致一個錯誤。常用語句：Dim d Set d = CreateObject(Scripting.Dictionary) d.CompareMode = vbTextCompare d.Add a, Athens d.Add b, Belgrade d.Add c, Cairo d.Add B , Baltimore代碼詳解1、d.CompareMode = vbTextCompare ：設(shè)置字典的比較模式是文本，在這種比較模式下不區(qū)分關(guān)鍵字的大

22、小寫，即關(guān)鍵字”b”和”B”是一樣的。vbTextCompare的值為1，所以上式也可寫為 d.CompareMode =1 。如果設(shè)置為vbBinaryCompare（值為0），則執(zhí)行二進(jìn)制比較，即區(qū)分關(guān)鍵字的大小寫，此種情況下關(guān)鍵字”b”和”B”被認(rèn)為是不一樣的。2、d.Add B , Baltimore ：添加一關(guān)鍵字”B”和對應(yīng)于它的項”Baltimore”。由于前面已經(jīng)設(shè)置了比較模式為文本模式，不區(qū)分關(guān)鍵字的大小寫，即關(guān)鍵字”b”和”B”是一樣的，此時發(fā)生錯誤添加失敗，因為字典中已經(jīng)存在”b”了，字典中的關(guān)鍵字是唯一的，不能添加重復(fù)的關(guān)鍵字。實例1 普通常見的求不重復(fù)值問題一、問題的

23、提出：表格中人員有很多是重復(fù)的，要求編寫一段代碼，把重復(fù)的人員姓名以及重復(fù)的次數(shù)求出來，復(fù)制到另一個表格中。如圖實例11所示。論壇網(wǎng)址：/thread-637004-1-1.html圖 實例(shl)1-1 二、代碼(di m)：Sub cfz()Dim i&, Myr&, ArrDim d, k, tSet d = CreateObject(Scripting.Dictionary)Myr = Sheet1.a65536.End(xlUp).RowArr = Sheet1.Range(a1:g & Myr)For i = 2 To UBound(Arr) d(Arr(i, 3) = d(Ar

24、r(i, 3) + 1Nextk = d.keyst = d.itemsSheet2.Activatea2.Resize(d.Count, 1) = Application.Transpose(k)b2.Resize(d.Count, 1) = Application.Transpose(t)a1.Resize(1, 2) = Array(姓名(xngmng), 重復(fù)個數(shù))Set d = NothingEnd Sub三、代碼詳解1、Dim i&, Myr&, Arr ：變量i和Myr聲明為長整型變量。 也可以寫為 Dim Myr As Long 。Long 的類型聲明字符為(&)。Arr后面沒

25、有寫明數(shù)據(jù)類型，默認(rèn)就是可變型數(shù)據(jù)類型(Variant)。2、Set d = CreateObject(Scripting.Dictionary)：創(chuàng)建(chungjin)字典對象，并把字典對象賦給變量d。這是最常用的一句代碼(di m)。所謂的“后期(huq)綁定”。用了這句代碼就不用先引用c:windowssystem32scrrun.dll了。3、Myr = Sheet1.a65536.End(xlUp).Row ：把表1的A列最后一行不為空白的行數(shù)賦給變量Myr。這里用了Range對象的End屬性，它有4個方向參數(shù)，此處的xlUp表示向上，它的值為3，所以也可寫成End(3)。xlDo

26、wn表示向下，它的值為4；xlToLeft表示向左，它的值為1；xlToRight表示向右，它的值為2。4、Arr = Sheet1.Range(a1:g & Myr)：把表1的A1到G列最后一行不為空白的 單元格區(qū)域的值賦給變量Arr。這樣Arr就是個二維數(shù)組了，用數(shù)組替代單元格引用可對執(zhí)行代碼的速度提高很多很多。5、For i = 2 To UBound(Arr) ：ForNext循環(huán)結(jié)構(gòu)，從2開始到數(shù)組的最大上界值之間循環(huán)。因為數(shù)組的第一行是表頭。Ubound是VBA函數(shù)，返回數(shù)組的指定維數(shù)的最大可用上界。6、d(Arr(i, 3) = d(Arr(i, 3) + 1 ：Arr(i,3)

27、在本例是姓名列，也就是關(guān)鍵字列，舉個例子，假如Arr(i,3)=”張三”，這句代碼的意思就是把關(guān)鍵字”張三”加入字典，d(key)等于關(guān)鍵字key對應(yīng)的項，每出現(xiàn)一次這個關(guān)鍵字，它的項的值就增加1。起到了按關(guān)鍵字累加的作用，也正因為有這個作用，所以可使用字典來進(jìn)行各種匯總統(tǒng)計。后面要講的實例會充分的展現(xiàn)這個作用。7、k=d.keys ：把字典d中存在的所有的關(guān)鍵字賦給變量k。得到的是一個一維數(shù)組，下限為0，上限為d.Count-1。Keys是字典的方法，前面已經(jīng)講過了。8、t=d.items ：把字典d中存在的所有的關(guān)鍵字對應(yīng)的項賦給變量t。得到的也是一個一維數(shù)組，下限為0，上限為d.Coun

28、t-1。Items也是字典的方法，前面也已經(jīng)講過了。9、Sheet2.Activate ：激活表2。10、a2.Resize(d.Count, 1) = Application.Transpose(k) ：把字典d中所有的關(guān)鍵字賦給以a2單元格開始的單元格區(qū)域中。詳細(xì)的解釋請見前面的keys方法一節(jié)。11、b2.Resize(d.Count, 1) = Application.Transpose(t) ：把字典d中所有的關(guān)鍵字對應(yīng)的項賦給以b2單元格開始的單元格區(qū)域中。12、a1.Resize(1, 2) = Array(姓名, 重復(fù)個數(shù)) ：Array是一個VBA函數(shù)，返回一個下界為0的一維

29、數(shù)組。一維數(shù)組可以看作是水平排列的，所以賦值給水平的單元格區(qū)域不需要用轉(zhuǎn)置函數(shù)了。這里作為表頭一次性輸入。13、Set d = Nothing ：釋放字典內(nèi)存。代碼執(zhí)行后如圖實例1-2所示。圖 實例(shl)1-2 實例2 求多表的不重復(fù)(chngf)值問題一、問題(wnt)的提出：一工作簿里面有3張工作表上，每張表格的A列都是姓名列，所有這些姓名中有些是重復(fù)的，要求編寫一段代碼，在另一個工作表上顯示不重復(fù)的姓名。如圖實例21所示。圖 實例(shl)2-1 這個問題也很適合用字典(zdin)來解決。代碼如下：二、代碼(di m)：Sub bcfz()Dim i&, Myr&, ArrDim d

30、, k, t, Sht As WorksheetSet d = CreateObject(Scripting.Dictionary)For Each Sht In Sheets If Sht.Name Sheet4 Then Myr = Sht.a65536.End(xlUp).Row Arr = Sht.Range(a2:a & Myr) For i = 1 To UBound(Arr) d(Arr(i, 1) = Next End IfNextk = d.keysSheet4.a3.Resize(d.Count, 1) = Application.Transpose(k)Set d = N

31、othingEnd Sub三、代碼詳解1、For Each Sht In Sheets ：For EachNext循環(huán)(xnhun)結(jié)構(gòu)，這種形式(xngsh)是VBA特有的，用于對對象的循環(huán)非常適用(shyng)。意思是在所有的工作表中依次循環(huán)。2、If Sht.Name Sheet4 Then ：如果這個工作表的名字不等于”Sheet4”時執(zhí)行下面的代碼。3、Myr = Sht.a65536.End(xlUp).Row ：求得這個工作表A列有數(shù)據(jù)的最后一行的行數(shù)，把它賦給變量Myr。這里用了長整型數(shù)據(jù)類型(Long)，數(shù)據(jù)范圍最大可到2,147,483,647，是為了避免數(shù)據(jù)很多的時候會超

32、出整型數(shù)據(jù)類型(Integer)而出錯，因為整型數(shù)據(jù)類型數(shù)據(jù)范圍最大只到32,767。4、Arr = Sht.Range(a2:a & Myr) ：把A列數(shù)據(jù)賦給數(shù)組Arr。5、For i = 1 To UBound(Arr) ：ForNext循環(huán)結(jié)構(gòu)，從1開始到數(shù)組的最大上限值之間循環(huán)。Ubound是VBA函數(shù)，返回數(shù)組的指定維數(shù)的最大值。6、d(Arr(i, 1) = “” ：這句代碼的意思就是把關(guān)鍵字Arr(i,1)加入字典，關(guān)鍵字對應(yīng)的項為空，相當(dāng)于字典中的這個關(guān)鍵字沒有解釋。和d.Add Arr(i,1), 的效果相同，只是代碼更簡潔一些。7、k=d.keys ：把字典d中存在的所有

33、的關(guān)鍵字賦給變量k。得到的是一個一維數(shù)組，下限為0，上限為d.Count-1。Keys是字典的方法，前面已經(jīng)講過了。8、Sheet4.a3 .Resize(d.Count, 1) = Application.Transpose(k) ：把字典d中所有的關(guān)鍵字賦給表4以a3單元格開始的單元格區(qū)域中。代碼執(zhí)行后如圖實例2-2所示。圖 實例2-2 實例3 A列中顯示(xinsh)1 1000中被6除余1和余5 的數(shù)字（其實(qsh)有更簡潔的方法）一、問題(wnt)的提出：有1、2、31000一千個數(shù)字，要求編寫一段代碼，在工作表的A列顯示這些數(shù)被6除余1和余5的數(shù)字。二、代碼：Sub 余1余5()

34、 by:狼版主Dim dic As Object, i As Long, arrSet dic = CreateObject(Scripting.Dictionary)For i = 1 To 1000dic.Add i & IIf(Abs(i Mod 6 - 3) = 2, , ), Nextarr = WorksheetFunction.Transpose(Filter(dic.keys, )a1.Resize(UBound(arr), 1) = arra:a.Replace , Set dic = NothingEnd Sub三、代碼詳解1、Dim dic As Object, i As

35、 Long, arr ：也可把字典變量dic聲明為對象(Object)，i As Long是規(guī)范的寫法，也可寫成i& 。2、dic.Add i & IIf(Abs(i Mod 6 - 3) = 2, , ), ：這句代碼的內(nèi)容比較多，用了兩個VBA函數(shù)IIf和Abs，用了一個Mod運算符。i Mod 6就是每一個數(shù)除6的余數(shù)，題目中有兩個要求：余1和與5，為了從1到1000都同時能滿足這兩個要求，所以用了Abs(i Mod 6 - 3) = 2 ，Abs是取絕對值函數(shù)。另一個VBA函數(shù)IIf是根據(jù)判斷條件返回結(jié)果，和IfThen判斷結(jié)果類似；IIf(Abs(i Mod 6 - 3) = 2,

36、, ) 這段的意思是如果符合判斷條件，返回”否則返回空”。 i & IIf(Abs(i Mod 6 - 3) = 2, , )的意思是把這個數(shù)與”或者”連起來作為關(guān)鍵字加入字典dic，關(guān)鍵字相對應(yīng)的項為空。比如當(dāng)i=1時，1是滿足上述表達(dá)式的，就把”1” 作為關(guān)鍵字加入字典dic；當(dāng)i=2時，2不滿足上述表達(dá)式，就把”2” 作為關(guān)鍵字加入字典dic，關(guān)鍵字相對應(yīng)的項都為空。3、arr = WorksheetFunction.Transpose(Filter(dic.keys, ) ：這句代碼的內(nèi)容分為3部分，第1部分是Filter(dic.keys, ) 其中的Filter是一個VBA函數(shù)，V

37、BA函數(shù)就是可以直接在代碼中使用的，我們平常使用的函數(shù)叫工作表函數(shù)，如Sum、Sumif、Transpose等等。Filter函數(shù)要求在一維數(shù)組中篩選出符合條件的另一個一維數(shù)組，式中的dic.keys正是一個一維數(shù)組。這里的篩選條件是”，也就是把字典關(guān)鍵字中含有的關(guān)鍵字篩選出來組成一個新的一維數(shù)組，其下標(biāo)從零開始。第2部分是用工作表函數(shù)Transpose轉(zhuǎn)置這個新的一維數(shù)組，工作表函數(shù)的使用在前面keys方法一節(jié)已經(jīng)說過了；第2部分是把轉(zhuǎn)置以后的值賦給數(shù)組變量Arr。呵呵(hh)，狼版主的代碼(di m)是短了，我的解釋卻太長了。4、a1.Resize(UBound(arr), 1) = ar

38、r ：把數(shù)組Arr賦給a1單元格開始(kish)的區(qū)域中。5、a:a.Replace , ：把A列中的所有的都替換為空白，只剩下數(shù)字了。代碼詳解的4代碼執(zhí)行后，如圖實例3-1所示。圖實例3-1 示例代碼全部執(zhí)行后如圖實例3-2所示。圖實例(shl)3-2 示例(shl)實例4 拆分?jǐn)?shù)據(jù)(shj)不重復(fù)一、問題的提出：有一列各種手機品牌型號的數(shù)據(jù)，要求編寫一段代碼，按照品牌劃分成沒有重復(fù)數(shù)據(jù)的三大類。二、代碼：Sub caifen()Dim Myr&, Arr, x&Dim d, d1, d2, i&, j&Set d = CreateObject(Scripting.Dictionary)Se

39、t d1 = CreateObject(Scripting.Dictionary)Set d2 = CreateObject(Scripting.Dictionary)Myr = a65536.End(xlUp).RowArr = Range(a2:a & Myr)Range(c2:e & Myr).ClearContentsmy = Array(MOTO, 諾基亞, 三星, 索愛)gc = Array(OPPO, 聯(lián)想, 天語, 金立, 步步高, 波導(dǎo), TCL, 酷派)For x = 1 To UBound(Arr) For i = 0 To UBound(my) If InStr(Arr

40、(x, 1), my(i) 0 Then d(Arr(x, 1) = GoTo 100 End If Next i For j = 0 To UBound(gc) If InStr(Arr(x, 1), gc(j) 0 Then d1(Arr(x, 1) = GoTo 100 End If Next j d2(Arr(x, 1) = 100:Next xRange(c2).Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys)Range(d2).Resize(UBound(d1.keys) + 1, 1) = Applicat

41、ion.Transpose(d1.keys)Range(e2).Resize(UBound(d2.keys) + 1, 1) = Application.Transpose(d2.keys)End Sub 三、代碼(di m)詳解1、Set d2 = CreateObject(Scripting.Dictionary) ：針對(zhndu)三個不同的種類，創(chuàng)建(chungjin)d、d1、d2三個字典對象。2、Myr = a65536.End(xlUp).Row ：把A列最后一行不為空白的行數(shù)賦給變量Myr。3、Arr = Range(a2:a & Myr) ：把A2開始的有數(shù)據(jù)的單元格區(qū)域賦

42、給變量Arr。4、Range(c2:e & Myr).ClearContents ：把C2到E列單元格區(qū)域清空。5、my = Array(MOTO, 諾基亞, 三星, 索愛) ：VBA函數(shù)Array返回一個一維數(shù)組，默認(rèn)下界為0。把Array函數(shù)返回的數(shù)組賦給變量my(貿(mào)易兩漢字的首字母)。6、gc = Array(OPPO, 聯(lián)想, 天語, 金立, 步步高, 波導(dǎo), TCL, 酷派) ：把Array函數(shù)返回的數(shù)組賦給變量gc(國產(chǎn)兩漢字的首字母)。7、For x = 1 To UBound(Arr) ：在A列原始數(shù)據(jù)的數(shù)組中逐一循環(huán)。8、For i = 0 To UBound(my) ：在m

43、y數(shù)組中逐一循環(huán)。因為有4個貿(mào)易機品牌，所以用循環(huán)每一個與原始數(shù)據(jù)比較。9、If InStr(Arr(x, 1), my(i) 0 Then ：VBA函數(shù)Instr返回在第1個參數(shù)中查找的位置，如果返回結(jié)果0，表示在第1個參數(shù)中沒有第2個參數(shù)存在。本句的意思是如果找到貿(mào)易機品牌的話，執(zhí)行下面的代碼。10、d1(Arr(x, 1) = ：接上句，如果上面判斷成立，就把Arr(x, 1)加入字典d。11、GoTo 100 ：Goto語句用于無條件地轉(zhuǎn)移到過程中指定的行。這里采用跳出For i循環(huán)，一是為了減少循環(huán)的次數(shù)，比如MOTO找到的話，后面3個就不需要找了；二是為了跳過兩個小循環(huán)之后的其它品

44、牌加入第3個字典的d2(Arr(x, 1) = 語句。12、For j循環(huán)與上面相同，為了判斷得到國產(chǎn)機類的字典d1。13、d2(Arr(x, 1) = ：如果上述兩個小循環(huán)都不滿足，那么就加入其它品牌類字典里。14、Range(c2).Resize(UBound(d.keys) + 1, 1) = Application.Transpose(d.keys) ：最后的3句分別把字典的關(guān)鍵字?jǐn)?shù)組轉(zhuǎn)置后賦給相應(yīng)的單元格區(qū)域。代碼執(zhí)行后如圖實例4-1所示。圖 實例(shl)4-1 示例(shl)山菊花(jhu)版主用了一個字典對象就解決了上述問題。讓我們來學(xué)習(xí)一下。四、山菊花版主的代碼：Sub 拆分

45、() Dim pp1$, pp2$, nRow%, ds, Brr(), s(1 To 3) As Integer Set ds = CreateObject(scripting.dictionary) pp1 = Join(WorksheetFunction.Transpose(Range(Range(g2), Range(g1).End(xlDown), ,) pp2 = Join(WorksheetFunction.Transpose(Range(Range(h2), Range(h1).End(xlDown), ,) nRow = Range(a1).End(xlDown).Row A

46、rr = Range(a1:a & nRow) ReDim Brr(1 To nRow, 1 To 3) For i = 2 To nRow If Not ds.Exists(Arr(i, 1) Then ds(Arr(i, 1) = If pp1 Like * & Left(Arr(i, 1), 2) & * Then s(1) = s(1) + 1 Brr(s(1), 1) = Arr(i, 1) ElseIf pp2 Like * & Left(Arr(i, 1), 2) & * Then s(2) = s(2) + 1 Brr(s(2), 2) = Arr(i, 1) Else s(3

47、) = s(3) + 1 Brr(s(3), 3) = Arr(i, 1) End If End If Next Range(c2:e & nRow) = BrrEnd Sub五、代碼(di m)詳解1、pp1 = Join(WorksheetFunction.Transpose(Range(Range(g2), _ Range(g1).End(xlDown), ,) ：這句代碼用了兩個(lin )VBA函數(shù)Join 和Transpose ，Range(g1).End(xlDown)從G1單元格往下直到(zhdo)最下面的單元格，遇到空白格就停止。因為本例的G14、G15單元格有 另外的數(shù)據(jù)存

48、在，如果還是用Range(g65536).End(xlUp)，那么就會把不需要的數(shù)據(jù)帶進(jìn)去，造成結(jié)果出錯。Transpose 轉(zhuǎn)置函數(shù)，前面已經(jīng)介紹過了。Join函數(shù)是通過連接某個數(shù)組中的多個子字符串而創(chuàng)建的一個字符串，本句代碼執(zhí)行后得到pp1=MOTO, 諾基亞, 三星, 索愛。pp2一句同上句一樣，得到另一個字符串。2、nRow = Range(a1).End(xlDown).Row ：把A列最后一行不為空白的行數(shù)賦給整型變量nRow。3、Arr = Range(a1:a & nRow) ：把A列A1開始的有數(shù)據(jù)的單元格區(qū)域賦給變量Arr。4、ReDim Brr(1 To nRow, 1

49、To 3) ：用于為動態(tài)數(shù)組變量Brr重新分配存儲空間。第一維的下界從1到上界nRow，第二維從1到3。5、For i = 2 To nRow ：從2到 nRow逐一循環(huán)。6、If Not ds.Exists(Arr(i, 1) Then ：如果字典ds中不存在關(guān)鍵字Arr(i, 1) 7、ds(Arr(i, 1) = ：把Arr(i, 1)作為關(guān)鍵字加入字典ds。8、If pp1 Like * & Left(Arr(i, 1), 2) & * Then ：這里山版主用了比較運算符Like來比較pp1和取自Arr(i, 1)左邊兩個字符，再在前后加任意字符組成的字符串，如果滿足條件為真，那么執(zhí)

50、行下面的語句。9、s(1) = s(1) + 1 ：數(shù)組s的第一個元素+1以后賦給數(shù)組s的第一個元素。10、Brr(s(1), 1) = Arr(i, 1) ：把這個關(guān)鍵字賦給第2維為1的另一個數(shù)組Brr，也就是我們要求的貿(mào)易機類。pp1字符串里都是貿(mào)易機類的品牌。11、ElseIf pp2 Like * & Left(Arr(i, 1), 2) & * Then ：同樣，如果滿足國產(chǎn)品牌類這個條件，那么執(zhí)行下面的代碼。12、s(2) = s(2) + 1 ：數(shù)組s的第二個元素+1以后賦給數(shù)組s的第二個元素。13、Brr(s(2), 2) = Arr(i, 1) ：把這個關(guān)鍵字賦給第2維為2的

51、另一個數(shù)組Brr，也就是我們要求的國產(chǎn)品牌類。pp2字符串里都是國產(chǎn)品牌類的品牌。14、s(3) = s(3) + 1 ：前如果條件都不滿足時，數(shù)組s的第三個元素+1以后賦給數(shù)組s的第三個元素。15、Brr(s(3), 3) = Arr(i, 1) ：把這個關(guān)鍵字賦給第3維為1的另一個數(shù)組Brr，也就是我們要求的其它品牌類。16、Range(c2:e & nRow) = Brr ：把數(shù)組Brr賦給c2單元格開始的區(qū)域中。實例5 前期綁定的字典(zdin)實例靈活運用字典裝入對象的功能，把一行作為一個對象裝入到item中，每隔對象可以包含(bohn)多個value就可以解決問題一、問題(wnt)

52、的提出：有多列多行數(shù)據(jù)，其中有重復(fù)的行，要求編寫一段代碼，求得不重復(fù)的行數(shù)據(jù)。如圖實例5-1所示。圖 實例5-1 示例二、代碼：Sub 保留原數(shù)據(jù)() by:ldy888前期綁定，需先引用c:windowssystem32scrrun.dll Dim d As New Dictionary,t For i = 2 To 5 Set d(Cells(i, 1) & ) = Range(Cells(i, 1), Cells(i, 4)Nextt=d.itemsA11.Resize(d.Count, 4) = Application.Transpose(Application.Transpose(t

53、)End Sub三、代碼詳解1、Dim d As New Dictionary, t ：本段代碼需要先引用微軟的腳本運行時庫Microsoft Scripting Runtime，可在VBE窗口，從菜單工具引用，然后勾選Microsoft Scripting Runtime，或者點擊瀏覽，在添加引用對話框中選擇c:windowssystem32scrrun.dll，并打開，確定。完成引用。在本聲明語句中把字典d聲明為New Dictionary。這就是”前期綁定”了。上面的實例用的是創(chuàng)建對象語句：Set d = CreateObject(Scripting.Dictionary)，稱為(chn

54、 wi)”后期(huq)綁定”。不需要(xyo)先引用腳本運行時庫。2、Set d(Cells(i, 1) & ) = Range(Cells(i, 1), Cells(i, 4) ：把單元格對象加入字典，它對應(yīng)的項是同一行的單元格區(qū)域。注意，這里用了Set，和前面的幾例不一樣哦。如果用Typename(d(Cells(i, 1) & )，得到的是一個Range對象。這里的Cells(i, 1) & 也可以用Cells(i, 1).Value來代替。3、t=d.items ：把字典d中存在的所有的關(guān)鍵字對應(yīng)的項賦給變量t。得到的是一個一維數(shù)組，下限為0，上限為d.Count-1。4、A11.R

55、esize(d.Count, 4) = Application.Transpose(Application.Transpose(t) ：這句用了兩次工作表轉(zhuǎn)置函數(shù)Transpose之后賦給A11單元格開始的區(qū)域中。 代碼執(zhí)行后如圖實例5-2所示。圖 實例5-2示例實例6 多條件復(fù)雜匯總一、問題的提出：有一個表格，需要對其中多個條件相同的數(shù)量進(jìn)行合并匯總，并且要有匯總的明細(xì)數(shù)據(jù)，要求編寫一段代碼，實現(xiàn)這樣的合并同類項的要求。二、代碼(di m)：Sub kf2() by:oobirdDim d As Object, a, b, j%, w!Dim ss$, n%, xMe.UsedRange.O

56、ffset(3, 0) = a = Sheet1.Range(Sheet1.a4, Sheet1.i65536.End(xlUp)Set d = CreateObject(scripting.dictionary)ReDim b(1 To UBound(a), 1 To 8)For i = 1 To UBound(a)ss = a(i, 1) & a(i, 2) & a(i, 4) & a(i, 5) & a(i, 6) & a(i, 8) If Not d.Exists(ss) Thenn = n + 1d.Add ss, nb(n, 1) = a(i, 2): b(n, 2) = a(i,

57、 5): b(n, 3) = a(i, 6): b(n, 4) = a(i, 4)b(n, 5) = a(i, 1): b(n, 6) = a(i, 8): b(n, 7) = a(i, 9)Elseb(d(ss), 7) = b(d(ss), 7) & + & a(i, 9)End IfNextFor i = 1 To d.Countx = Split(b(i, 7), +)For j = 0 To UBound(x)w = w + x(j)Next jb(i, 8) = b(i, 5) * b(i, 6) * w / 100: w = 0Nextb4.Resize(n, 8) = bEnd

58、 Sub三、代碼(di m)詳解1、Dim d As Object, a, b, j%, w! ：Dim語句(yj)中的j% 等同于Dim j As Integer。w! 等同于Dim w As Single。類似的還有ss$ 等同于Dim ss As String。還有雙精度數(shù)據(jù)類型Double的類型聲明字符為#、貨幣數(shù)據(jù)類型Currency的類型聲明字符為。2、Me.UsedRange.Offset(3, 0) = ：Offset是Range對象的屬性，Offset(3, 0)的第一個參數(shù)是行數(shù)；第二個參數(shù)是列數(shù)，意思是往下偏移3行，列不變。Me是活動工作表，相當(dāng)于Activesheet;

59、 UsedRange為已經(jīng)使用的單元格區(qū)域。本句可解釋為：清空第3行以下的單元格。3、a = Sheet1.Range(Sheet1.a4, Sheet1.i65536.End(xlUp) ：把原始數(shù)據(jù)所在的表1自A4以下的I列最后的非空單元格區(qū)域的值賦給變量a。4、Set d = CreateObject(scripting.dictionary) ：創(chuàng)建字典對象d。5、ReDim b(1 To UBound(a), 1 To 8) ：根據(jù)數(shù)組a的大小重新聲明數(shù)組b。6、For i = 1 To UBound(a) ：在1 和數(shù)組a第一維的上界值之間逐一(zhy)循環(huán)。7、ss = a(i,

60、 1) & a(i, 2) & a(i, 4) & a(i, 5) & a(i, 6) & a(i, 8) ：把多個條件(tiojin)比例、位置、項目名稱、大系統(tǒng)編號、小系統(tǒng)編號和相同樓層數(shù)用連接符號&連成一個字符串，然后(rnhu)賦給變量ss。8、If Not d.Exists(ss) Then ：IfThen結(jié)構(gòu)利用了字典的Exists方法和Not來判斷：如果字典d里面不存在ss表示的關(guān)鍵字，那么執(zhí)行下面的語句。9、n = n + 1 ：把變量n增加1以后仍然賦給n。10、d.Add ss, n ：把ss的值作為關(guān)鍵字，n的值作為對應(yīng)的項一起加入字典d中。n的值實際是關(guān)鍵字的位置次序，