[已解决]VBA字典问题

jiangslly

Sub xcs()
Dim d As New Dictionary
Dim arr, x
arr = Range("a2:b10")
For x = 1 To UBound(arr)
   d(arr(x, 1)) = d(arr(x, 1)) + arr(x, 2)
Next x
Range("d2").Resize(d.Count) = Application.Transpose(d.Keys)
Range("e2").Resize(d.Count) = Application.Transpose(d.Items)
End Sub
这段代码，最后为什么是 Range("d2").Resize(d.Count) = Application.Transpose(d.Keys)
而不是Range("d2").Resize(d.Count) =d.keys
字典的key,
A   1
B   5
X    7
不就是前面的A\B\X吗？这样跟单元格的方向应该是一致的呀，为什么还要用tanspose转下呢？求解

最佳答案

月排行榜 / 总排行榜

liuguansky

2011-12-25 18:26

字典的KEYS和ITEMS方法都是一维数组，数组中一维对应的单元格区域是一行，现在要返回在一列，所以要转置

跳转到最佳答案楼层

liuguansky

字典的KEYS和ITEMS方法都是一维数组，数组中一维对应的单元格区域是一行，现在要返回在一列，所以要转置

LQ200601

数组字典班第二期，由我主讲，请大家支持，谢谢。

twtthduu

liuguansky 发表于 2011-12-25 18:26
字典的KEYS和ITEMS方法都是一维数组，数组中一维对应的单元格区域是一行，现在要返回在一列，所以要转置

什么时间开课呀，开始报名了吗，不知道是不是还要考试呀。

twtthduu

到底是由谁主讲数组第二期呀？