（含附件重开贴） 请教各位，有一汇总明细表，要指自动拆分并汇总求和。具体见内容

南柯梦否

microyip 发表于 2016-9-20 12:10
附上附件以供参考

谢谢了。不过，出现数据错误。。。总金额和原总表对不上了

南柯梦否

朱荣兴 发表于 2016-9-20 11:50

谢谢。不过有个问题，所有分表的 合计求和栏的和   全是母表里的1-50的和。。。而不是当前表的和。。。要是能解决这个问题，就好了

su45

把 'ActiveCell.PrintOut '打印表格
这句的第一个字符删除。

su45

1. Sub su45()
   
2. Application.ScreenUpdating = False
   
3. rw = Cells(Rows.Count, 1).End(3).Row
   
4. a = 52
   
5. Do While a < rw + b + 2
   
6.     x = 50
   
7.     If b = 0 Then x = 51
   
8.     Rows(a).Insert
   
9.     Cells(a, 1) = "合计"
   
10.     Cells(a, 3) = Application.Sum(Range(Cells(a - x, 3), Cells(a - 1, 3)))
    
11.     Cells(a, 4) = Application.Sum(Range(Cells(a - x, 4), Cells(a - 1, 4)))
    
12.     Cells(a, 6) = Application.Sum(Range(Cells(a - x, 6), Cells(a - 1, 6)))
    
13.     If a = rw + b + 1 Then Exit Do
    
14.     b = b + 1
    
15.     a = a + 51
    
16.     If a > rw + b Then a = rw + b + 1
    
17. Loop
    
18. ActiveCell.PrintOut '打印表格
    
19. '下面是清除表中的合计行
    
20. a = 52
    
21. Do While Cells(a, 1) <> ""
    
22.     If Cells(a, 1) = "合计" Then
    
23.         Rows(a).Delete
    
24.     End If
    
25.     a = a + 1
    
26. Loop
    
27. End Sub
    

复制代码

microyip

南柯梦否 发表于 2016-9-20 14:51
谢谢了。不过，出现数据错误。。。总金额和原总表对不上了

哪个总金额对不上？

microyip

附件已修正错误

南柯梦否

microyip 发表于 2016-9-20 15:44
附件已修正错误

还是和母表数据有差别。。惆怅，我不会这个太恼火了

microyip

南柯梦否 发表于 2016-9-20 16:05
还是和母表数据有差别。。惆怅，我不会这个太恼火了

你怎么每次都不说哪里有问题？

南柯梦否

su45 发表于 2016-9-20 15:28

= =。呃   这下能打印了。。。但是打出来  是白纸= =    而且  只有一页= =。。我这有100多页的。。

microyip

再次修正，已核对完全无误