ExcelVBA实现跨表行列交叉多条件汇总求和

ykcbf1100

说实话，我是真没看懂。数据表和汇总表用啥关联的？

于箱长

1. Sub 交叉求和v2()
   
2. Dim Arr
   
3. Dim DicNb As Object: Set DicNb = CreateObject("scripting.dictionary")
   
4. Arr = Sheets("数据表").[a1].CurrentRegion
   
5. For i = 3 To UBound(Arr)
   
6.     For k = 0 To 2
   
7.         For j = 3 + k * 13 To 15 + k * 13
   
8.     '    人数or金额|归属|部门|班组|公司|期间
   
9.             kk = Arr(1, j) & "|" & Arr(i, j + 52 - k * 13) & "|" & Arr(i, j + 65 - k * 13) & "|" & _
   
10.             Arr(i, j + 78 - k * 13) & "|" & Arr(i, j + 39 - k * 13) & "|" & Arr(2, j)
    
11.             DicNb(kk) = DicNb(kk) + Arr(i, j)
    
12.         Next
    
13.     Next
    
14. Next
    
15. With Sheets("汇总表")
    
16.     .Range("F4:Be" & .[a1048576].End(3).Row).ClearContents
    
17.     Arr = .[a1].CurrentRegion
    
18.     For i = 4 To UBound(Arr)
    
19.         For j = 6 To UBound(Arr, 2)
    
20.             kk = Arr(i, 2) & "|" & Arr(i, 3) & "|" & Arr(i, 4) & "|" & Arr(i, 5) & "|" & Arr(2, j) & "|" & Arr(3, j)
    
21.             Arr(i, j) = DicNb(kk)
    
22.         Next
    
23.     Next
    
24.     .[a1].CurrentRegion = Arr
    
25. End With
    
26. End Sub
    
27. 
    

复制代码

ynzsvt

结果表已知数据各少了一行。

aodo

ykcbf1100 发表于 2024-8-13 14:56
说实话，我是真没看懂。数据表和汇总表用啥关联的？

数据表几个区域的层叠等于汇总表交叉，够天马行空

小jy

ynzsvt 发表于 2024-8-13 15:53
结果表已知数据各少了一行。

请问哪里少了呀，按代码统计出来的总数没问题

小jy

于箱长 发表于 2024-8-13 14:57

谢谢大佬，已经用上了，也移植到实际表上了

ynzsvt

小jy 发表于 2024-8-14 09:02
请问哪里少了呀，按代码统计出来的总数没问题

3类每类有8行不是7行。管理-