多条件求和

  和多条件筛选不太一样，多条件求和如果用直接循环就不好处理了，因为需要求和的项目有很多，怎么能对各个项目进行求和呢？

   多条件求和，用字典可能是一种非常好的方法

先看一个简单的汇总。

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

Sub 汇总()
 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) 'key对应的item的值在原来的基础上加新的
 Next x
 Range("d2").Resize(d.Count) = Application.Transpose(d.Keys)
 Range("e2").Resize(d.Count) = Application.Transpose(d.Items)
End Sub

如果多条件该怎么办呢？可以用兰色幻想原创的下棋法进行汇总。

下面的代码摘自VBA80集第29集。

Sub 下棋法之多条件多列汇总()
 Dim 棋盘(1 To 10000, 1 To 4)
 Dim 行数
 Dim arr, x As Integer, sr As String, k As Integer
 Dim d As New Dictionary
 arr = Range("a2:d" & Range("a65536").End(xlUp).Row)
 For x = 1 To UBound(arr)
    sr = arr(x, 1) & "-" & arr(x, 2)
    If d.Exists(sr) Then
      行数 = d(sr)
      棋盘(行数, 3) = 棋盘(行数, 3) + arr(x, 3)
      棋盘(行数, 4) = 棋盘(行数, 4) + arr(x, 4)
    Else
      k = k + 1
      d(sr) = k
      棋盘(k, 1) = arr(x, 1)
      棋盘(k, 2) = arr(x, 2)
      棋盘(k, 3) = arr(x, 3)
      棋盘(k, 4) = arr(x, 4)
    End If
 Next x
   Range("g2").Resize(k, 4) = 棋盘
End Sub

附下棋法课件：
upload/2012_10/12102322475893.rar