Автосумма из нескольких листов 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

У меня есть три листа со значением в «А1».Эта подпрограмма показывает сумму всех этих значений в ячейке «A2» на листе, в котором находится код:

Sub sum()

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

End Sub