计算表合计并显示汇总表

ddz79101

老师！有多表需要分别计算合计，并将结果显示在汇总表。详见说明。望老师指点

ykcbf1100

附件供参考。。。

chzsh

Sub qiuhe()
Dim i, r, k
k = Sheets.Count
For i = 2 To k
With Sheets(i)
        r = .Cells(.Rows.Count, "f").End(xlUp).Row
        .Range("e" & r + 1) = "合计"
       .Range("f" & r + 1) = Application.WorksheetFunction.Sum(.Range("f6:f" & r))
          .Range("g" & r + 1) = Application.WorksheetFunction.Sum(.Range("g6:g" & r))
          .Range("h" & r + 1) = Application.WorksheetFunction.Sum(.Range("h6:h" & r))
Sheets(1).Range("a" & i) = Sheets(i).Name
Sheets(1).Range("b" & i).Resize(1, 3) = .Range("f" & r + 1).Resize(1, 3).Value
End With
Next
With Sheets(1)

.Range("a" & k + 1) = "合计"
   .Range("b" & k + 1) = Application.WorksheetFunction.Sum(.Range("b2:b" & k))
          .Range("c" & k + 1) = Application.WorksheetFunction.Sum(.Range("c2:c" & k))
          .Range("d" & k + 1) = Application.WorksheetFunction.Sum(.Range("d2:d" & k))

End With
End Sub

ddz79101

ykcbf1100 发表于 2024-1-5 14:37
附件供参考。。。

谢谢老师！代码运行完美

ddz79101

chzsh 发表于 2024-1-5 15:07
Sub qiuhe()
Dim i, r
For i = 2 To Sheets.Count

谢谢老师！代码运行完美