функция вместо сводной таблицы

[Iskin]

У меня есть данные в 3-х колонках. Надо чтобы эти данные суммировались согласно данным колонок. Пример во вложение. Не хочется использовать сводную таблицу.

[Aleksandr H.]

В цикле загнали в структуру/словарь вида

Строка-Инвойст
Массив(1)-
(0) - Инвойс
(1) - Вес

и просуммировали

[Iskin]

А можно в самом примере? Я ведь не далек в этих делах)

[Iskin]

Если не функцию, то код бы

[Serge_Bliznykov]

на основе кода (c) Hugo121

Sub SvodByHugo()
   Dim lr As Long, i As Long
   Dim a, b, temp As String
   Dim oDict1 As Object
   Dim cnt As Long, indx As Long
   lr = Cells(Rows.Count, 2).End(xlUp).Row
   a = Range(Cells(2, 1), Cells(lr, 3)).Value
   ReDim b(1 To UBound(a), 1 To 2)
      
   Set oDict1 = CreateObject("Scripting.Dictionary")
   For i = 1 To UBound(a)
       With oDict1
           temp = a(i, 2) & " (" & a(i, 3) & ")"
           If Not .Exists(temp) Then
             cnt = cnt + 1
               .Add temp, cnt
               b(cnt, 1) = temp
               b(cnt, 2) = a(i, 1)
            Else
             indx = oDict1(temp)
             b(indx, 2) = b(indx, 2) + a(i, 1)
           End If
       End With
   Next
  
  
   Range("K2:L" & lr).ClearContents
   Range("K2:L" & cnt + 1) = b
  
  
End Sub

полезные темы

http://www.planetaexcel.ru/forum.php?thread_id=26105

https://programmersforum.ru/showthread.php?t=92538

[Iskin]

СУММЕСЛИ

вполне справилось с задачей

[Serge_Bliznykov]

Сообщение от Iskin

вполне справилось с задачей

интересно, а как Вы через СУММЕСЛИ выбрали уникальные значения ИНВОЙС ?

[Iskin]

Пока по колонке С. А хвостик добавить из С к номеру инвойса, даже мне не трудно.