Найти и суммировать

[Kondrat_ivanov]

Доброго времени суток! Помогите есть такая проблема надо найти ячейки с одинаковым содержимым и суммировать ячейки рядом, ну и вывести сумму. Тесть ищем значение 5678 оно в ячейке R7C7 значит суммируем R7C8 c следующими найденными по такомуже принципу ! Возможно такое?
Заранее благодарю!

[doober]

Да ,возможно.
Неплохо было бы на данные глянуть,как расположены

[Kondrat_ivanov]

Спасибо! Вот пример и нужно отобрать по Счетам взаиморасчетов допустим 5212 и суммировать суммы в ячейке рядом!

[Hugo121]

Option Explicit


Sub Otbor()
    Dim a(), oDict As Object, i As Long, temp As String
    
    a = Range("g5:h" & Range("h" & Rows.Count).End(xlUp).Row).Value

    Set oDict = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(a)
        temp = Trim(a(i, 1))
        If Not oDict.Exists(temp) Then
            oDict.Add temp, CStr(a(i, 2))
        Else
            oDict.Item(temp) = CStr(--oDict.Item(temp) + a(i, 2))
        End If
    Next

    With ThisWorkbook.Worksheets(1)
        .Range("K5").Resize(oDict.Count) = Application.Transpose(oDict.keys)
        .Range("L5").Resize(oDict.Count) = Application.Transpose(oDict.items)
    End With

End Sub

Хотя можно простой формулой обойтись, если уникальные известны:

=SUMIF($G$5:$G$36;K5;$H$5:$H$36)

В к5=5212