特殊表格之间的 VBA 总和

Question

希望你们一切都好。我来这里是因为我从今天早上开始就试图解决一个问题，我再也受不了了。
这就是上下文:我有一个 excel 工作簿，其中有不同的工作表，其中包含不同国家/地区的不同商业计划。我的目标是制作一份综合损益表，其中包含每次销售的标准总和(销货成本、净利润、工资......)。

A 列中的每个单元格对应一个标准，我希望数字出现在 B 列中(每个标准的所有公司的总数)。

那是我的代码:最初不是这样，但那是我尝试的草稿之一，让我在下面解释为什么我尝试这种格式

Private Sub Consolidated_Income_Statement()
Dim Sheet As Worksheet
Dim Consolidated As Worksheet

For Each Sheet In Sheets
    Do While Cells(B2, B152) <> ""
    Consolidated = Sum(Call BPs, B152)
    GoTo Consolidated
Next
End Sub

Sub BPs()
Dim Sheet As Worksheet
For Each Sheet In Sheets
    If Right(Sheet.Name, 50) = "E2016" Then
End Sub

事实是，我只想对包含“E2016”的工作表的单元格求和，并且一旦我确定我只想要这些 E2016 工作表，我就会尝试创建一个调用按钮来使用它作为我的私有(private)子。

这就是我最初尝试做的方式

Private Sub Consolidated_Income_Statement()
Dim Sheet As Worksheet
Dim Consolidated As Worksheet
For Each Sheet In Sheets
    If Right(Sheet.Name, 50) = "E2016" Then
        Do While Cells(B2, B152) <> ""
        Consolidated = Sum('I WANT TO SELECT MY E2016, B152)
        GoTo Consolidated
        Next
End Sub

但没有任何工作!抱歉，如果这些问题太基本了，但我从两天开始就为我的公司自学 VBA，我面临着一些困难!非常感谢您的帮助 !

Answer 1

像下面这样的东西？

Private Sub Consolidated_Income_Statement()
Dim Sheet As Worksheet
Dim Consolidated As Integer
For Each Sheet In Sheets
    If Right(Sheet.Name, 5) = "E2016" Then
        Consolidated = Consolidated + Application.WorksheetFunction.Sum(Sheet.Range("B2:B152"))
    End If
Next

MsgBox "Sum is : " & Consolidated

End Sub