Сумма разных диапазонов

Question

У меня много листов в книге под названием SomethingA - Ресурсы SomethingB - Ресурсы Something C - Resources et c ...................

Я пытаюсь суммировать определенный c диапазон внутри каждого из этих листов, который изменит переменную до имени da sh в имени и изменится количество листов. Я хотел бы, чтобы сумма появилась в листе под названием «Ресурсы», который является первым листом в рабочей тетради. Мой код до сих пор:

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 .