VBA中Dictionary對象(至關於java中的map)使用小結

VBA中Dictionary對象使用小結
2005-11-15

VBA中Dictionary對象使用小結

Dim dict

' 建立Dictionary
Set dict = CreateObject("Scripting.Dictionary")

' 增長項目
dict.Add "A", 300
dict.Add "B", 400
dict.Add "C", 500

' 統計項目數
n = dict.Count

' 刪除項目
dict.Remove ("A")

' 判斷字典中是否包含關鍵字
dict.exists ("B")

' 取關鍵字對應的值，注意在使用前須要判斷是否存在key，不然dict中會多出一條記錄
Value = dict.Item("B")

' 修改關鍵字對應的值,如不存在則建立新的項目
dict.Item("B") = 1000
dict.Item("D") = 800

' 對字典進行循環
k = dict.keys
v = dict.Items
For i = 0 To dict.Count - 1
key = k(i)
Value = v(i)
MsgBox key & Value
Next

' 刪除全部項目
dict.Removeall

實例：

Sub 宏1()

Set dic = CreateObject("Scripting.Dictionary") '字典
For i = 1 To 10000
If Not i Like "4" Then dic.Add i, "" '若是不包含「1」 End If Next Range("a2").Resize(dic.Count, 1) = Application.WorksheetFunction.Transpose(dic.keys) '從A2單元開始向下放置 End Sub