总和不同的范围

Question

我在名为SomethingA的工作簿中有很多工作表-资源 SomethingB-资源 SomethingC-资源 等等............

我正在尝试对这些表中的每一个表中的特定范围求和，这将在名称中的破折号和表的数量发生变化之前更改变量。我希望总和出现在名为“资源”的工作表中，该工作表是工作簿中的第一张工作表。到目前为止，我的代码：

Sub sumdata1()

  For Each Sht In ThisWorkbook.Worksheets
            If Sht.Name Like "- Resources*" Then
          For Each cell In Range("G11:G46")
            Sheets("Resources").Range(cell.Address) = Sheets("Resources").Range(cell.Address) + Sheets(i).Range(cell.Address)
          Next cell
          End If
        Next
        End Sub

不胜感激。 要安全！

Answer 1

开始于：

Sub sumdata1()

    For Each Sht In ThisWorkbook.Worksheets
        If Sht.Name Like "- Resources*" Then
            For Each cell In Sht.Range("G11:G46")
                addy = cell.Address
                Sheets("Resources").Range(addy) = Sheets("Resources").Range(addy) + cell.Value
            Next cell
        End If
    Next Sht
End Sub

您可能需要修改 Like 语句。