多条件汇总

认真学习123456

请各位大老帮忙，谢谢，数据行可能还多

小凡、、、

示例数据是不是没传

ykcbf1100

没有源数据，无法下手。

认真学习123456

ykcbf1100 发表于 2024-5-20 20:42
没有源数据，无法下手。

好的，重新传一下请老师帮忙一下

认真学习123456

ykcbf1100 发表于 2024-5-20 20:42
没有源数据，无法下手。

已经重新传附件，请大老帮忙

quqiyuan

参与一下，供参考

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.5.21
   
2.     With Sheets("数据")
   
3.         r = .UsedRange.Find("*", searchdirection:=2).Row
   
4.         c = .UsedRange.Columns.Count
   
5.         arr = .[a1].Resize(r, c)
   
6.     End With
   
7.     ReDim brr(1 To 10000, 1 To 6)
   
8.     For i = 4 To UBound(arr)
   
9.         m = m + 1
   
10.         For j = 1 To UBound(arr, 2) Step 5
    
11.             brr(m, 3) = brr(m, 3) + arr(i, j + 1)
    
12.             brr(m, 4) = brr(m, 4) + arr(i, j + 3)
    
13.             brr(m, 5) = brr(m, 5) + arr(i, j + 2)
    
14.             brr(m, 6) = brr(m, 6) + arr(i, j + 4)
    
15.         Next
    
16.         brr(m, 1) = brr(m, 3) + brr(m, 5)
    
17.         brr(m, 2) = brr(m, 4) + brr(m, 6)
    
18.     Next
    
19.     With Sheets("查询")
    
20.         .UsedRange.Offset(3).Clear
    
21.         .[a1].Resize(1, 6).Interior.Color = 49407
    
22.         .[a2].Resize(1, 6).Interior.Color = 5296274
    
23.         With .[a4].Resize(m, 6)
    
24.             .Value = brr
    
25.             .Borders.LineStyle = 1
    
26.             .HorizontalAlignment = xlCenter
    
27.             .VerticalAlignment = xlCenter
    
28.             With .Font
    
29.                 .Name = "微软雅黑"
    
30.                 .Size = 11
    
31.             End With
    
32.         End With
    
33.     End With
    
34.     MsgBox "OK！"
    
35. End Sub
    

复制代码

认真学习123456

ykcbf1100 发表于 2024-5-21 08:28
附件供参考。。。

谢谢大老帮忙，

认真学习123456

quqiyuan 发表于 2024-5-21 08:21
参与一下，供参考

感谢大老帮忙