多个工作表中的自动求和vba

Question

我目前有一本工作簿，其中包含多个工作表，包括一个主工作表。我当前的VBA为主工作表中的指定列提供了总计，并且效果很好。

但是，我想编辑VBA，以便在不同的工作表上也可以具有列的总和值。我已经附上了下面的代码供参考，如果有人可以建议我如何编辑它以便包含多个工作表，将不胜感激。

`Sub AutoSum()
Sheets("MASTER ACCOUNT REVENUE").Select
Range("D4").Select
Range("F4").Select
Selection.End(xlDown).Select
ActiveCell.Offset(2, 0).Select
Dim cel1 As String, cel2 As String
cel1 = ActiveCell.Offset(-2, 0).End(xlUp).Address
cel2 = ActiveCell.Offset(-1).Address
ActiveCell.Value = "=sum(" & (cel1) & ":" & (cel2) & ")"
End Sub` 

Answer 1

我有三个工作表，其值为“ A1”。此子例程显示代码所在的工作表上单元格“ A2”中所有这些值的总和：

Sub sum()

Range("a2") = Worksheets(2).Range("a1") + Worksheets(3).Range("a1") + Range("a1")

End Sub