EXCEL如何在自动生成的目录下面添加合计行

桃·小妖

这个表里，目录是自动生成的，怎么样修改里面的宏可以让目录表的最后一行计算出参保人数和参保金额的合计数呢？我是菜鸟啦，目录的代码也是粘进去的

zhaogang1960

1. Sub ml()
   
2.     Dim i&, x&, j&, k&
   
3.     i = Sheets.Count
   
4.     s = 1
   
5.     With Sheets("目录")
   
6.         .Range("A2:C65536").ClearContents
   
7.         For x = 1 To i
   
8.             If Sheets(x).Name <> "目录" Then
   
9.                 j = .Range("B65536").End(xlUp).Row + 1
   
10.                 k = k + 1
    
11.                 n = Sheets(x).Range("G2").Range("C24")
    
12.                 .Range("A" & j) = k
    
13.                 .Range("B" & j) = Sheets(x).Name
    
14.                 .Range("C" & j) = Sheets(x).Range("B5")
    
15.             End If
    
16.         Next x
    
17.         .Range("B" & k + 2) = "合计" '新加
    
18.         .Range("c" & k + 2).Resize(, 2) = "=SUM(R2C:R" & k + 1 & "C)" '新加
    
19.     End With
    
20. End Sub
    

复制代码

mjzxlmg

看看是不是这样：

[code=vb]Sub ml()
    Dim i&, x&, j&, k&
    i = Sheets.Count
    ReDim arr(1 To i + 1, 1 To 4)
    With Sheets("目录")
        .Range("A2:d65536").ClearContents
        For x = 1 To i
            If Sheets(x).Name <> "目录" Then
                j = .Range("B65536").End(xlUp).Row + 1
                k = k + 1
                arr(k, 1) = k
                arr(k, 2) = Sheets(x).Name
                arr(k, 3) = Sheets(x).Range("B5")
                arr(k, 4) = arr(k, 3) * 457.5
                arr(i, 3) = arr(i, 3) + arr(k, 3)
                arr(i, 4) = arr(i, 4) + arr(k, 4)
            End If
        Next
        arr(i, 1) = "合计": arr(i, 2) = k & "个单位"
        .Cells(2, 1).Resize(i, 4).Value = arr
    End With
End Sub[/code]

桃·小妖

多谢各位前辈了，受益匪浅啊！