自动插入“合计”行并汇总计算

lookupver

不错，学习学习。

chxw68

1. Sub 添加合计()
   
2.   Dim r%, i%
   
3.   Dim arr
   
4.   Dim ws As Worksheet
   
5.   For Each ws In Worksheets
   
6.     With ws
   
7.       r = .Cells(.Rows.Count, 2).End(xlUp).Row
   
8.       .Cells(r + 1, 5) = "合计"
   
9.       For Each j In Array(9, 12, 16)
   
10.         .Cells(r + 1, j).FormulaR1C1 = "=SUM(R[" & 6 - r & "]C:R[-1]C)"
    
11.       Next
    
12.     End With
    
13.   Next
    
14. End Sub
    
15. Sub 删除合计()
    
16.   Dim rng As Range
    
17.   Dim ws As Worksheet
    
18.   For Each ws In Worksheets
    
19.     With ws
    
20.       Set rng = .Columns("e:e").Find(what:="合计", lookat:=xlWhole)
    
21.       If Not rng Is Nothing Then
    
22.         rng.EntireRow.Delete
    
23.       End If
    
24.     End With
    
25.   Next
    
26. End Sub

复制代码

chxw68

详见附件。

Huaijiu8

路过，学习！

wnccmxm

YEJINHAI 发表于 2012-8-5 02:15
参考一下里面的代码。

Sub 插入每页小计累计()

好用！棒！