工作表自动分页统计

tcy119

工作表根据指定列,如科目相同就自动小计,详见图.




效果表                                       
                                       
                                       
                                       
                                       
科目        代码        金额                        
        应收账款明细表                                
应收账款        1122        1                        
应收账款        1122        2                        
应收账款        1122        3                        
应收账款        1122        4                        
应收账款        1122        5                        
应收账款        1122        6                        
应收账款        1122        7                        
应收账款        1122        8                        
应收账款        1122        9                        
应收账款        1122        10                        
应收账款        1122        11                        
应收账款        1122        12                        
应收账款        1122        13                        
合计                91                        
                                       
                                       
                                       
        预付账款明细表                                
预付账款        1123        14                        
合计                14                        
                                       
                                       
                                       
        应付账款明细                                
应付账款        2202        17                        
应付账款        2202        18                        
应付账款        2202        19                        
应付账款        2202        20                        
应付账款        2202        21                        
应付账款        2202        22                        
应付账款        2202        23                        




原表                                       
                                   
                                       
科目        代码        金额                        
应收账款        1122        1                        
应收账款        1122        2                        
应收账款        1122        3                        
应收账款        1122        4                        
应收账款        1122        5                        
应收账款        1122        6                        
应收账款        1122        7                        
应收账款        1122        8                        
应收账款        1122        9                        
应收账款        1122        10                        
应收账款        1122        11                        
应收账款        1122        12                        
应收账款        1122        13                        
预付账款        1123        14                        
其他应收款        1221        15                        
坏账准备        1231        16                        
应付账款        2202        17                        
应付账款        2202        18                        
应付账款        2202        19                        
求助：分页自动统计.zip (9.79 KB, 下载次数: 37)

2018-6-24 13:20 上传

点击文件名下载附件

谢谢哪位大侠帮一帮!

tcy119

哪位高手,能帮一帮吗,谢谢

tcy119

有高手吗,帮帮我看看,谢谢

tcy119

朱荣兴 发表于 2018-6-24 13:39
Sub 分类汇总()
Set d = CreateObject("scripting.dictionary")
arr = Sheets("原表").UsedRange

谢谢版主,在原表上生成就可以,能否在帮一下.

一把小刀闯天下

'先猜一个

Option Explicit

Sub test()
  Dim i, j, k, kk, n, arr, sum
  With Sheets("原表")
    arr = .Range("a8:c" & .Cells(Rows.Count, "a").End(xlUp).Row + 1)
    ReDim brr(1 To Rows.Count, 1 To UBound(arr, 2))
    For i = 1 To UBound(arr, 1) - 1
      For j = i To UBound(arr, 1) - 1
        If arr(j, 1) <> arr(j + 1, 1) Then
          n = n + 1: sum = 0
          brr(n, 2) = arr(i, 1) & "明细表"
          For k = i To j
            n = n + 1: sum = sum + arr(k, 3)
            For kk = 1 To UBound(arr, 2): brr(n, kk) = arr(k, kk): Next
          Next
          n = n + 1: brr(n, 2) = "合计：": brr(n, 3) = sum
          n = n + 3: i = j: Exit For
        End If
    Next j, i
    With .[f8] '输出位置自己修改
      .Resize(Rows.Count - 7, UBound(brr, 2)).ClearContents
      .Offset(-1).Resize(, 3) = Split("科目 代码 金额")
      If n > 0 Then .Resize(n, UBound(brr, 2)) = brr
    End With
  End With
End Sub

tcy119

朱荣兴 发表于 2018-6-24 14:02
有区别吗？？？？？？？？？？？？？

可以用,只是多了一副表了,生成效果表后,就把副表删除就可以了,我自己改一下想要的表格,谢谢版主

tcy119

一把小刀闯天下 发表于 2018-6-24 14:05
'先猜一个

Option Explicit

谢谢,也可以用,也要把原表删除.

jiangxiaoyun

在原表上就用分类汇总啊。。。。