'加入数据
Sub 字典()
Dim d, x, arr
Set d = CreateObject("scripting.dictionary")
For x = 2 To 4
d.Add Cells(x, 1).Value, Cells(x, 2).Value
Next x
MsgBox d("王五")
End Sub
'加入数据
Sub 字典()
Dim d, x, arr
Set d = CreateObject("scripting.dictionary")
For x = 2 To 4
d.Add Cells(x, 1).Value, Cells(x, 2).Value
Next x
MsgBox d("王五")
End Sub