а можно немного поизвращаццо и использовать power query?
1 исходные данные в автотаблицу, выделить в ней любую ячейу, на ленте power query>из таблицы 2 в открывшемся окне тык правой кнопкой на заголовке первого столбца>группировать имя -сумма, операция - сумма, столбец - выбрать нужный или вместо 2 пункта просмотр>редактор заменить код на [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], #"Сгруппированные строки" = Table.Group(Источник, {"Столбец1"}, {{"сумма", each List.Sum([Столбец2]), type number}}) in #"Сгруппированные строки"
[/vba] и нажать готово 3 главная>закрыть и загрузить в>таблицу, указать в какое место>загрузить
а можно немного поизвращаццо и использовать power query?
1 исходные данные в автотаблицу, выделить в ней любую ячейу, на ленте power query>из таблицы 2 в открывшемся окне тык правой кнопкой на заголовке первого столбца>группировать имя -сумма, операция - сумма, столбец - выбрать нужный или вместо 2 пункта просмотр>редактор заменить код на [vba]
Код
let Источник = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content], #"Сгруппированные строки" = Table.Group(Источник, {"Столбец1"}, {{"сумма", each List.Sum([Столбец2]), type number}}) in #"Сгруппированные строки"
[/vba] и нажать готово 3 главная>закрыть и загрузить в>таблицу, указать в какое место>загрузить
[p.s.]power query для excel 2010 можно взять тутkrosav4ig