用字典求和

little-key

最近写VBA 上瘾，特地重新温习一下字典和数组的用法，之前很多时候只学习代码，稍微修改一下，这次要理解和自己写一些，将用字典求和的心得分享给大家一下。



上图是用字典写的一个简单求和，这个其实类似于数据透视表，第一步获取城市的唯一值，然后根据每个城市汇总【数值】项目，代码如下：

1. Sub 求和()
   
2. Dim arr, d As Object, nr&, i&, m&                                              定义变量
   
3. nr = Range("A65536").End(xlUp).Row                                     找到A列最后一个非空单元格的行数，为了下方或者整个区域，虽然用CurrentRegion也可以，但是需要剔除标题行，所以建议用这个的方法，即End函数
   
4. arr = Range("A2").Resize(nr, 2)                                                为数组arr赋值，即将A、B的数据赋予到arr这个数组中
   
5. Set d = CreateObject("scripting.dictionary")                             建立字典，通过set的方法，可以不用通过【选项】——【引用】
   
6. For i = 1 To nr - 1                                                                     历遍数组，其实这个nr-1也可以使用Ubound函数来代替
   
7. d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 2) '求和                                    字典中的key存在时，则自动加上B列对应的值，这个对应的值就是key，利用的就是字典中key的唯一性这个特性
   
8. 'd(arr(i, 1)) = d(arr(i, 1)) + 1 '计数                                             这个是计数的算法，自动加1
   
9. Next i                                                                                        循环结束
   
10. Range("E1").CurrentRegion.Offset(1).ClearContents                 清除结果区域的数据
    
11. m = d.Count                                                                             m返回的是字典的key的个数
    
12. Range("E2").Resize(m) = Application.Transpose(d.keys)            将字典的key全部返回到E2单元格开始的区域，区域的长度就是字典key 的个数，这个注意的是，需要使用Transpose函数，转置一下才可以形成一个列字典
    
13. Range("F2").Resize(m) = Application.Transpose(d.Items)           将字典中的Items，即key对应的值，返回到F2单元格开始的区域，长度还是key的个数
    
14. Set d = Nothing                                                                         将d这个对象清空
    
15. End Sub

复制代码

使用字典求和，有这么几个好处，一个是速度很快，其次，key的排序是按照原来数据的排序来的，再次，利用了key的唯一性这个特性，可以很快的提取唯一值。

以上只是抛砖引玉，大家可以互相讨论一下。

microyip

值得肯定，只有通过自身学习才能真正解决问题。
变通建议：关于提到使用CurrentRegion问题，其实可以考虑使用Usedrange，行数从第二行读起（就跳过了标题了），再加上是否为空来跳过中间或者结尾时出现的已使用过的空行

liucqa

这个代码只能在2003下使用

LMY123

感谢版主的分享,路过学习

little-key

microyip 发表于 2017-5-8 14:11
值得肯定，只有通过自身学习才能真正解决问题。
变通建议：关于提到使用CurrentRegion问题，其实可以考虑 ...

使用UsedRange会有一个问题，就是右边还有一个字段，如果使用了UsedRange，那区域就包括了右边的字段区域了

little-key

liucqa 发表于 2017-5-8 14:13
这个代码只能在2003下使用

不仅仅在2003下可以使用，刚才我用的就是2010环境的。

little-key

LMY123 发表于 2017-5-8 14:14
感谢版主的分享,路过学习

活到老，学到老
其实字典以前学过，但是后来忘记了这个工具了，现在重新捡起来

zax010

little-key 发表于 2017-5-8 14:23
不仅仅在2003下可以使用，刚才我用的就是2010环境的。

3楼大神说只能在03环境下使用，是指 Transpose 函数 超过 65535 数据行会出错。

microyip

突然发现，楼上所有的人都是神级人物，帖子都是以万来计算的。

lsc900707

liucqa 发表于 2017-5-8 14:13
这个代码只能在2003下使用

你说的是Transpose不能超过65536行吧？只要数据不超过65536行，其它版本也能用的。