Получить сумму столбца для каждого конкретного фильтра в различной колонке

Question

Как я могу суммировать все в колонки «I» для каждого фильтра в колонки «Q» в Лист1? Например, ссылаясь на лист образца выше; Суммировать весь столбец I для 27744 только в столбце «Q». Сумма всех столбец I для 27745 только в колонке "Q" ... и так далее ..

Тогда сумма будет отражать на Sheet2, как показано ниже:

В колонке "Q" записи в Sheet1 всегда разные, вышеприведенный пример. Нашел это link, но я не знаю, может ли он использоваться в этом случае.

Надеюсь, мой вопрос ясен. Заранее благодарю за консультацию/помощь.

Answer 1

Было бы лучше с клетками и некоторые прибирать, но это должно работать -

Sub test() 

    Dim dictSums As Scripting.Dictionary 
    Set dictSums = New Scripting.Dictionary 

    Dim rngTarget As Range 
    Set rngTarget = Sheet1.Range("Q1") 

    Do While rngTarget.Value <> "" 
     With rngTarget 
      If Not dictSums.Exists(.Value) Then 
       dictSums.Add .Value, .Offset(0, -8).Value 
      Else 
       dictSums(.Value) = dictSums(.Value) + .Offset(0, -8).Value 
      End If 
     End With 
     Set rngTarget = rngTarget.Offset(1, 0) 
    Loop 

    Dim varKey As Variant 

    For Each varKey In dictSums.keys 
     Debug.Print , varKey, dictSums(varKey) 
    Next 

End Sub