Поиск и суммирование информации

[manula]

Здравствуйте уважаемые коллеги, не могли бы вы мне подсказать с решением моей проблемы, есть "Лист2" на котором есть информация путем поиска необходимой информации я из этого листа на "Лист3" выгружаю информацию, что касается ФИО и страхового номера все нормально, а вот есть три реквизита со статусами: ВЖНР, ВПНР,НР и мне нужно находить каждый статус, и производить сумму одинаковых статусов по столбцам "Разница" (F и I-столбцы), как это можно осуществить. Ниже прикреплена книга, не могли бы вы мне помочь с решением данной проблемы.

[Hugo121]

"производить сумму" - вот даже не глядя в файл прогнозирую что поможет СУММПРОИЗВ()

[manula]

Меня интересует не эти операции, как как это будет непосредственно в VBA выглядеть, я да там эту процедуру осуществляю.

[Hugo121]

В VBA это делают в scripting.dictionary

[manula]

А все таки не могли бы вы мне подсказать с реализацией, как это можно программно реализовать, как мне найти допустим статус "НР" перебрать все значения через цикл и подсчитать сумму этих значений у которых статус "НР", в книге это наглядно видно, только там еще надо через Replace точку в запятую преобразовать для суммирования.

[Hugo121]

Совершенно непонятно, что именно нужно суммировать, и как реализовать отбор по персонам (идиотский отчёт, геморрой, пусть делает тот программист, который это придумал...)
Но механизм вот:

Option Explicit

Sub tt()
    Dim cc As Range, t$
    With CreateObject("Scripting.Dictionary")

        For Each cc In Sheets(2).UsedRange.Columns(3).Cells
            t = Replace(cc.Offset(, 1).Value, ",", "")
            If IsNumeric(t) Then .Item(cc.Value) = .Item(cc.Value) + CDbl(t)
        Next

        MsgBox "НР= " & .Item("НР") & vbLf & _
               "ВЖНР= " & .Item("ВЖНР") & vbLf & _
               "ВПНР= " & .Item("ВПНР")
    End With

End Sub

[manula]

Дело в том что я сначала нахожу в 3 столбце страховой номер,формирую его на другой лист, потом ФИО беру из этой же строки, а дальше мне надо анализировать в строке "Итог:" по столбцу "Разница" чтобы он не был равен 0, если он не равен нулю тогда, оба столбца с "Разницей" мне надо складывать значения у который в 3 столбце одинаковый статус, если там везде "НР" то я складываю все значения по столбцу "Разница".Нужна экстренная помощь товарищи, а то уже котелок кипит!