特殊工作表之间的VBA总和

希望你们都做得很好。我在这里是因为一个问题，从今天早上开始我就想解决这个问题，我再也受不了了。 这就是背景：我有一个excel工作簿，其中包含不同国家的不同商业计划的不同表格。我的目标是编制一份合并损益表，其中包含每次销售的标准总和（COG、净利润、工资……）

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

私人次级合并损益表（）
将工作表设置为工作表
合并为工作表
每一张中的每一张
在电池（B2、B152）运行时执行此操作“
合并=总额（调用BPs，B152）
后藤综合酒店
下一个
端接头
子BPs（）
将工作表设置为工作表
每一张中的每一张
如果正确（Sheet.Name，50）=“E2016”，则
端接头

事实上，我只想对包含“E2016”的表格中的单元格求和，一旦我确定我只需要这些E2016表格，我会尝试创建一个调用按钮，将其用于我的私人sub

这就是我最初尝试的方式

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

私人次级合并损益表（）
将工作表设置为工作表
合并为工作表
每一张中的每一张
如果正确（Sheet.Name，50）=“E2016”，则
在电池（B2、B152）运行时执行此操作“
合并=总和（'我想选择我的E2016，B152）
后藤综合酒店
下一个
端接头

但是什么都没用！很抱歉，如果这些问题太基本了，但我从2天起就在为我的公司自学VBA，我面临着一些困难！非常感谢你的帮助

像下面这样的东西

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

---

如果这已经回答了您的问题，请将其标记为已回答（答案左侧的灰色勾号）我回答得更高，不能按shift键或在此处输入Hehet总和行引用了sheets sum函数，并将B2:B152的范围通过总和添加到合并中。该消息框仅用于显示在您实施解决方案时可以删除的总和是的，我将添加它！只是：好的，代码正在运行（没有编译错误），但是我如何告诉Vba我想在我的表中插入这个结果，这个表名为Consolidated in Cells，范围从B2到B152。因为现在什么都没发生！谢谢你的时间，我有点困惑。合并是要显示总和的表吗？总和只有1个值，您希望将该值复制到B2:B152上吗？您希望在“E2016”表上汇总什么范围？或者我完全错过了这个？请不要使用MS Office/VBA。