按条件跨行合计金额

zzq0117

按条件跨行合计金额

蓝桥玄霜

合计的例子：

沈默00

这种统计不如数透来的方便

swl4561255

1. Sub test()
   
2. Dim myr As Range
   
3. ar = [A1].End(4).Row
   
4. arr = Range("A2:H" & ar)
   
5. Set d = CreateObject("Scripting.Dictionary")
   
6. For i = 1 To ar - 1
   
7.    d(arr(i, 1)) = d(arr(i, 1)) + arr(i, 3) + arr(i, 5) + arr(i, 8)
   
8. Next
   
9. For j = 2 To ar
   
10.    If Cells(j, 1) <> Cells(j - 1, 1) Then
    
11.      Cells(j, 10) = d(Cells(j, 1).Value)
    
12.    End If
    
13. Next
    
14. Set d = Nothing
    
15. End Sub

复制代码

jjmysjg

蓝桥玄霜 发表于 2024-4-5 13:13
合计的例子：

门店是一个的时候，没有汇总

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.5
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, 1).End(3).Row
   
4.     arr = [a1].Resize(r, 12)
   
5.     For i = 2 To UBound(arr)
   
6.         s = arr(i, 1)
   
7.         p1 = arr(i, 3) + arr(i, 5) + arr(i, 8)
   
8.         d(s) = d(s) + p1
   
9.     Next
   
10.     For Each k In d.keys
    
11.         n = 0
    
12.         For i = 2 To UBound(arr)
    
13.             s = arr(i, 1)
    
14.             If s = k Then
    
15.                 n = n + 1
    
16.                 If n = 1 Then
    
17.                     arr(i, 12) = d(s)
    
18.                 Else
    
19.                     arr(i, 12) = ""
    
20.                 End If
    
21.             End If
    
22.         Next
    
23.     Next
    
24.     [a1].Resize(r, 12) = arr
    
25.     MsgBox "OK！"
    
26. End Sub
    

复制代码

朝露孤烟

实际上，用公式就可以处理好。=IF(COUNTIF($A$2:$A2,A2)=1,SUMPRODUCT(($C$2:$H$14)*($A$2:$A$14=A2))-D2-F2-G2,"")