字典数组多条件多列汇总

Qs18

shiruiqiang 发表于 2024-5-13 19:38
sql语句汇总

谢谢大神给了新的一种方法

ykcbf1100

全党 发表于 2024-5-14 09:45
是的呢，我经常看你写的代码。逻辑清晰合理。

好吧，你多学点。

yanglinzi

1. Sub 汇总()
   
2. Dim arr, brr, i, j, r, d
   
3. Set d = CreateObject("scripting.dictionary")
   
4. With Sheet1
   
5.     r = .Cells(Rows.Count, 1).End(xlUp).Row
   
6.     arr = .Range("a1:e" & r)
   
7. End With
   
8. For i = 2 To UBound(arr)
   
9.     sa = arr(i, 1)
   
10.     sb = arr(i, 2)
    
11.     If Not d.exists(sa) Then
    
12.         Set d(sa) = CreateObject("scripting.dictionary")
    
13.     End If
    
14.     d(sa)(sb) = d(sa)(sb) & "," & i
    
15. Next
    
16. ReDim brr(1 To UBound(arr), 1 To 5)
    
17. For Each ka In d.keys
    
18.     For Each kb In d(ka).keys
    
19.         n = n + 1
    
20.         xa = Split(d(ka)(kb), ",")
    
21.         For i = 1 To UBound(xa)
    
22.             brr(n, 1) = ka
    
23.             brr(n, 2) = kb
    
24.             brr(n, 3) = brr(n, 3) + arr(xa(i), 3)
    
25.             brr(n, 4) = brr(n, 4) + arr(xa(i), 4)
    
26.             brr(n, 5) = brr(n, 5) + arr(xa(i), 5)
    
27.         Next
    
28.     Next
    
29. Next
    
30. [j10].Resize(n, 5) = brr
    
31. End Sub
    

复制代码

yanglinzi

字典嵌套做一个

1578278106

有个新函数专门分类汇总:  groupby