已拆分sheet分表汇总

菜n学飞

汇总数据已按照部门类别拆分，需要在每一张表的尾栏前一行插入一栏汇总栏，汇总每一个部门的金额，请各位大大指导

liulang0808

1. Sub test()
   
2.     Application.ScreenUpdating = False
   
3.     For Each sh In Sheets
   
4.         With sh
   
5.             r = .Cells(Rows.Count, 1).End(3).Row
   
6.             .Rows(r).Insert shift:=xlDown
   
7.             .Cells(r, 1).Resize(1, 3).Merge
   
8.             .Cells(r, 1).Resize(1, 3).Merge
   
9.             .Cells(r, 1) = "合计"
   
10.             .Cells(r, 4) = WorksheetFunction.Sum(.Range(.[d3], .Cells(r - 1, 4)))
    
11.             .Cells(r, 5) = WorksheetFunction.Sum(.Range(.[e3], .Cells(r - 1, 5)))
    
12.         End With
    
13.     Next
    
14.     Application.ScreenUpdating = True
    
15. End Sub
    

复制代码

liulang0808

附件内容供参考。。。。。。