选择你喜欢的那条路,才能更有勇气去面对生活中的种种不易
返回一个数组,其中包含了一个 Dictionary 对象中的所有项目
示例代码:
Sub Test1() dim d as object,dim k as long Set d = CreateObject('Scripting.Dictionary')'后期绑定 d.add '姓名','张小懒' d.add '兴趣','编程,数据分析' k=d.Items Range('a1').Resize(d.count,1)=Application.Transpose(k)End Sub
代码解析:
k=d.Items:把字典中所有的关键字对应的项赋给变量k。得到的也是一个一维数组,下限为0,上限为d.Count-1。这是数组的默认形式。
上面的代码跟和keys方法很相似。比如A公司有50个人,每个人有一个工号,每个工号对应一个姓名。d.Keys就获取这50个工号,d.items获取50个人名。是不是很简单的呢?
“ 转给那些喜欢的小伙伴吧 ”
我是张小懒
一个爱偷懒、想让自己自信、正在努力向上的家伙
联系客服