【跟我学Excel VBA】第十二课：用字典做的单条件求和

        又有几天没有更新了，实在不好意思！

        今天，我们来学习一个简单的技巧，稍微复杂点的技巧我们得普及了数组的概念之后才可以学！！

        先看以下例子：

        以上是某公司1-4季度每个销售人员的销售业绩（万元），现在要求加总每个人的总销售业绩，并在一个新的工作簿中显示。

        在上一课中，我们有提到，可以利用字典进行数据的汇总功能。具体怎么做呢，我们直接上代码。

 代码解析：

 

        1、 d(.Range('a' & i).Value) = d(.Range('a' & i).Value) _

                            .Range('b' & i).Value

        字典的赋值方式之一，意思为：如果某个姓名在字典中不存在，则将此值新增加入字典的key值，并同时在相应的item值里面写上销售数量；如果此姓名在字典中存在了，那么在同样的item位置附加销售数量；

        2、if d.Count>0 Then：字典的属性之一，判断在字曲中是否有值；

        3、.Range('a2').Resize(d.Count) = Application.Transpose(d.Keys)：在工作表中纵向输出字典的key值，在此大家知道有这种用法就是，在学会了数组之后，将不会采用这种办法。因为转置用法在条目数超过一定的限制之后，将不会被转置成功；

        以下是程序执行结果，简单吧！

        不过，我相信你一定晕了！嘿嘿。

        要利用好VBA解决工作上的问题，数组和字典是第一个难关，所以我抽时间会慢慢将常用的这些方法给写出来，供大家参考。