在学到字典中的keys方法的时候，光看文字的解释，可能脑子里会有点乱，这个时候结合图形就可以很好的理解。
keys方法可以返回一个数组，包含了一个Dictionary对象中的全部现有的关键字。
Sub test()
Dim d, k '1
Set d = CreateObject("Scripting.Dictionary") '2
d.Add "a", "Apple" '3
d.Add "b", "Banana" '4
d.Add "C", "Cherry" '5
k = d.keys '6
[B1].Resize(d.Count, 1) = Application.Transpose(k) '7
End Sub
1:声明变量d,k，默认为可变型数据类型（Viriant）。
2:创建字典对象，并把字典对象赋给变量d。
3:添加一关键字“a”和对应于它的项“Apple”。
4:添加一关键字“b”和对应于它的项“Banana”。
5:添加一关键字“c”和对应于它的项“Cherry”。
6:把字典中存在的所有的关键字赋给变量k。得到的是一个一位数组，下限为0，上限为d.count-1。
7：把k这个横向排列的一维数组换成竖向排列，存到以B1开始的单元格，到Bd.count结束。
这个知识点用文字这样讲解的时候理解起来会稍微有点困难，下面我用图形来表示下，以下仅根据我个人的理解，针对整个代码的运行做的流程图：
这是根据上面的代码，按照我的理解做的一个运行的流程图
PS：如果你也有更好的理解方法也可以@我欧^_^~
分享到:
閱讀更多 EXCEL自學之路 的文章
