'加入数据 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
VBA 第13课 字典dictionary
猜你喜欢
转载自blog.csdn.net/u013511642/article/details/48920801
今日推荐
周排行