VBA总和之间的特殊表
希望你们一切都好。 在这里，因为我想从今天上午开始解决的一个问题，我已经忍无可忍了。 这就是上下文：我有一本优秀的工作手册，其中有不同的工作表，其中包含不同国家的不同业务计划。 我的目标是在每次出售中制作合并损益表，并附上标准总和（COGS，净利润，薪金等）。
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”的工作表中的单元格，我试图创build一个调用button来使用它我的私人分支，一旦我确定我只想要这些E2016表。
这就是我最初的尝试
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自2天以来我的公司，我面临一些困难！ 非常感谢您的帮助 ！
有些事情像下面？
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