Поиск совпадения и сложение

[Hugo121]

Суммировать не в словаре, а в параллельном массиве.
Как в файле по ссылке.
Или выгружать Items перебором, меняя тип.

[Серёга0629]

выгружаю в другие столбцы - то же самое
а вот

Или выгружать Items перебором, меняя тип.

с этим пожалуйста по-подробнее

[Hugo121]

Да куда не перегружай - если выгружаете строку, то строка и будет, если не изменить.
А перебором - это типа так:
вместо

'Range("L3").Resize(oDict.Count) = Application.Transpose(oDict.items)

делаем

Set r = [L3]
For Each kk In oDict.keys
r.Value = --oDict.Item(kk)
Set r = r.Offset(1)
Next

Но лучше, быстрее и правильнее - суммировать в массиве.

[Серёга0629]

ЗАРАБОТАЛО!!! спасибо!)