求助，多条件求和

pjz327944985

这个用VBA多条件求和怎么写代码

lcluck2002

看了附件，我咋感觉楼主自己还没有明白自己想要的是什么。
建议楼主模拟一个结果出来让大家明白你的需求。

small_small

B2=SUMIF($B$41:$B$55,$A2,$E$41:$E$55)，下拉
C2=SUMIFS($E$41:$E$55,$B$41:$B$55,$A2,$D$41:$D$55,C$1)右拉，下拉

ykcbf1100

条件在哪呢？数据在哪呢？
玩儿呢

tanglf188

表格全是条件，数据找不到，这不闹的么

于箱长

small_small

1. Sub 多条件求和()
   
2.     Dim arr, brr, d, k, i, ir, ic
   
3.     Set d = CreateObject("scripting.dictionary")
   
4.     arr = Range("a40").CurrentRegion
   
5.     brr = Range("a1").CurrentRegion
   
6.     For k = 2 To UBound(brr)
   
7.         d(brr(k, 1)) = k
   
8.     Next k
   
9.     For k = 2 To UBound(arr)
   
10.         ir = d(arr(k, 2))
    
11.         For i = 1 To UBound(brr, 2)
    
12.             n = n + 1
    
13.             If arr(k, 4) = brr(1, i) Then
    
14.                 ic = n
    
15.                 n = 0
    
16.                 Exit For
    
17.             End If
    
18.         Next i
    
19.         brr(ir, 2) = brr(ir, 2) + arr(k, 5)
    
20.         brr(ir, ic) = brr(ir, ic) + arr(k, 5)
    
21.     Next k
    
22.     Range("a1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
23. End Sub

复制代码