【VBA字典对象】六招式之Items方法

选择你喜欢的那条路，才能更有勇气去面对生活中的种种不易

Items方法

返回一个数组，其中包含了一个 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个人名。是不是很简单的呢？

---

“ 转给那些喜欢的小伙伴吧 ”

我是张小懒

一个爱偷懒、想让自己自信、正在努力向上的家伙