[已解决]VB字典中的疑问

sixnu

原数据

商品名称	销量
A	2
A	3
C	4
D	2
B	4
C	1
F	3
E	4
D	2

代码

1. Sub 汇总()
   
2. Dim d As New Dictionary
   
3. Dim arr, x
   
4. arr = Range("a2:b10")
   
5. For x = 1 To UBound(arr)
   
6.    d(arr(x, 1)) = d(arr(x, 1)) + arr(x, 2) Next x
   
7. Range("d2").Resize(d.Count) = Application.Transpose(d.Keys)
   
8. Range("e2").Resize(d.Count) = Application.Transpose(d.Items)
   
9. End Sub
   

复制代码

最佳答案

月排行榜 / 总排行榜

xdragon

2014-1-8 12:22

你在监视窗口添加d.items 然后看里面的变化吧。
其实字典是根据arr(x,1)的值从d.keys里找，把找到的唯一项对应的d.items返回出来
如果什么都没有赋值的情况下，d.items为空。。

跳转到最佳答案楼层

xdragon

你在监视窗口添加d.items 然后看里面的变化吧。
其实字典是根据arr(x,1)的值从d.keys里找，把找到的唯一项对应的d.items返回出来
如果什么都没有赋值的情况下，d.items为空。。

sixnu

xdragon 发表于 2014-1-8 12:22
你在监视窗口添加d.items 然后看里面的变化吧。
其实字典是根据arr(x,1)的值从d.keys里找，把找到的唯一项 ...

监视窗口为啥运行一次就变成+号，还得重新点才能看到里面内容，他不能老是-号吗

xdragon

sixnu 发表于 2014-1-8 12:37
监视窗口为啥运行一次就变成+号，还得重新点才能看到里面内容，他不能老是-号吗

每次多出来一个key，就会变成+的。。=、= 这个倒是没啥好方法