如何汇总明细

武松打鼓

需要用代码汇总一下明细表的数据


用餐汇总0902.rar (24 KB, 下载次数: 11)

2024-9-3 11:17 上传

点击文件名下载附件

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub 汇总()  '//2024.9.3
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     arr = Sheets("明细表").UsedRange.Value
   
4.     ReDim brr(1 To UBound(arr), 1 To 8)
   
5.     For i = 6 To UBound(arr)
   
6.         s = arr(i, 2)
   
7.         If arr(i, 1) <> Empty Then
   
8.             If Not d.exists(s) Then
   
9.                 m = m + 1
   
10.                 d(s) = m
    
11.                 brr(m, 1) = m
    
12.                 brr(m, 2) = s
    
13.                 brr(m, 3) = IIf(arr(i, 3) <> Empty, 1, 0)
    
14.                 brr(m, 4) = IIf(arr(i, 19) <> 0, 1, 0)
    
15.                 brr(m, 5) = IIf(arr(i, 3) = Empty, 1, 0)
    
16.                 brr(m, 6) = arr(i, 19)
    
17.             Else
    
18.                 r = d(s)
    
19.                 brr(r, 3) = brr(r, 3) + IIf(arr(i, 3) <> Empty, 1, 0)
    
20.                 brr(r, 4) = brr(r, 4) + IIf(arr(i, 19) <> 0, 1, 0)
    
21.                 brr(r, 5) = brr(r, 5) + IIf(arr(i, 3) = Empty, 1, 0)
    
22.                 brr(r, 6) = brr(r, 6) + arr(i, 19)
    
23.             End If
    
24.         End If
    
25.     Next
    
26.     With Sheets("统计表")
    
27.         .[a5:f1000] = ""
    
28.         .[a5].Resize(m, 6) = brr
    
29.         For i = 5 To m + 4
    
30.           .Cells(i, 7) = .Cells(i, 6) * 5
    
31.         Next
    
32.     End With
    
33.     MsgBox "OK！"
    
34. End Sub
    

复制代码

武松打鼓

ykcbf1100 发表于 2024-9-3 11:48
参与一下。。。

好复杂，不过还是很佩服

武松打鼓

ykcbf1100 发表于 2024-9-3 11:47
附件供参考。。。

发现明细表的本周用餐合计保持空白就不准确了，希望这列不参与汇总呢，另外明细表中某班级姓名列有几行空白行也不要算到汇总里面，只统计有姓名的行


用餐汇总？.rar (25.1 KB, 下载次数: 2)

2024-9-3 15:47 上传

点击文件名下载附件

ykcbf1100

武松打鼓 发表于 2024-9-3 15:47
发现明细表的本周用餐合计保持空白就不准确了，希望这列不参与汇总呢，另外明细表中某班级姓名列有几行空 ...

按附件要求已经完成，你还改来改去干啥呢？

hhxq001

武松打鼓 发表于 2024-9-3 15:47
发现明细表的本周用餐合计保持空白就不准确了，希望这列不参与汇总呢，另外明细表中某班级姓名列有几行空 ...

感觉挺有用的，可惜帮不了你，还是高手来吧

武松打鼓

chxw68老版给改进了。谢谢ykcbf1100和chxw68坛友
https://club.excelhome.net/forum ... amp;_dsign=8faa7ebd