用字典进行多条件求和，请大神帮帮尽快看看哪出现问题

tim159143

为什么某部分的数据是正确，不同部分的数据又累加了？麻烦看看哪出现问题了

abc123281

1. Sub 按钮1_Click()
   
2. Dim arr, brr(1 To 1000, 1 To 4)
   
3. Set d = CreateObject("Scripting.Dictionary")
   
4. Sheet1.Activate
   
5. arr = [a1].CurrentRegion.Value
   
6. For i = 2 To UBound(arr)
   
7.   mx = arr(i, 25) & arr(i, 20) & arr(i, 29)
   
8.   If Not d.exists(mx) Then
   
9.      n = n + 1
   
10.      d(mx) = n
    
11.      brr(n, 1) = arr(i, 25)
    
12.      brr(n, 2) = arr(i, 20)
    
13.      If arr(i, 29) = "(出账)" Then
    
14.        brr(n, 3) = arr(i, 16)
    
15.      Else
    
16.        brr(n, 4) = arr(i, 16)
    
17.      End If
    
18.   Else
    
19.      m = d(mx)
    
20.      If arr(i, 29) = "(出账)" Then
    
21.        brr(m, 3) = brr(m, 3) + arr(i, 16)
    
22.      Else
    
23.        brr(m, 4) = brr(m, 4) + arr(i, 16)
    
24.      End If
    
25.   End If
    
26. Next
    
27. Worksheets("求和").Activate
    
28. [a2].Resize(n, 4) = brr
    
29. End Sub
    

复制代码

abc123281

多条件求和V2.0.rar (21.5 KB, 下载次数: 17)

2020-10-9 10:31 上传

点击文件名下载附件

tim159143

abc123281 发表于 2020-10-9 10:31

非常感谢您的帮助，也实现了我的结果，但以上只是两个条件，如果多条件下会显得复杂。所以我的思路是想实现循环嵌套模式去求和，就是不管有多少个条件，我只需要确定条件的个数就可以了。如果你有空，麻烦您再帮帮忙，谢谢了