VBA中Dictionary對象使用(Key,Value)

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