【请指教】 分组小计总计，根据分组分页打印

excel初级小白

原稿



效果


想做这个效果

提问 - 副本.zip (18.73 KB, 下载次数: 12)

2023-4-2 17:03 上传

点击文件名下载附件

mmwwdd

这个我会弄，工资呗

mmwwdd

最好有附件，给你弄，否则你还得改

fzxba

1. Sub test0()
   
2.   Dim ar, br()
   
3.   Dim i As Long, j As Long, cnt As Long, pos As Long
   
4.   Dim subTot As Double, total As Double, rowSize As Long
   
5.   ar = Range("A1").CurrentRegion.Resize(, 5).Value
   
6.   ReDim br(1 To UBound(ar) * 3, 1 To UBound(ar, 2))
   
7.   rowSize = 1
   
8.   For i = 2 To UBound(ar)
   
9.     cnt = cnt + 1
   
10.     rowSize = rowSize + 1
    
11.     subTot = subTot + Val(ar(i, 5))
    
12.     total = total + Val(ar(i, 5))
    
13.     For j = 1 To UBound(ar, 2)
    
14.       br(rowSize, j) = ar(i, j)
    
15.     Next
    
16.     If cnt = 5 Then
    
17.       For j = 1 To UBound(ar, 2)
    
18.         br(pos + 1, j) = ar(1, j)
    
19.       Next
    
20.       rowSize = rowSize + 1
    
21.       br(rowSize, 1) = "小计"
    
22.       br(rowSize, 5) = subTot
    
23.       pos = rowSize
    
24.       rowSize = rowSize + 1
    
25.       subTot = 0
    
26.       cnt = 0
    
27.     End If
    
28.   Next
    
29.   If cnt Then
    
30.     For j = 1 To UBound(ar, 2)
    
31.       br(pos + 1, j) = ar(1, j)
    
32.     Next
    
33.     rowSize = rowSize + 1
    
34.     br(rowSize, 1) = "小计"
    
35.     br(rowSize, 5) = subTot
    
36.     rowSize = rowSize + 1
    
37.   End If
    
38.   br(rowSize, 1) = "合计"
    
39.   br(rowSize, 5) = total
    
40.   With Range("G1")
    
41.     .CurrentRegion.ClearContents
    
42.     .Resize(rowSize, UBound(br, 2)) = br
    
43.   End With
    
44. End Sub

复制代码

excel初级小白

mmwwdd 发表于 2023-4-1 05:20
这个我会弄，工资呗

不是工资条 工资条我已经会做了，最近就是在学vba 所以打算研究下，这几天越研究越乱

excel初级小白

mmwwdd 发表于 2023-4-1 06:48
最好有附件，给你弄，否则你还得改

抱歉呢   自己最近研究了1个星期，一直没搞对 ，实在没招，还是问大佬们 ，一时忘记传文件了

excel初级小白

fzxba 发表于 2023-4-1 07:51

谢谢  可以使用呢 但目前对我太难了 看不懂

haovogue

fzxba 发表于 2023-4-1 07:51

如果D列加上时间段，以D列时间段分组分页，请帮忙。谢谢

haovogue

fzxba 发表于 2023-4-1 07:51

以时间段分组小计总计，根据分组分页打印请帮忙。谢谢