在學到字典中的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自學之路 的文章
