Но столкнулся с ситуацией, что когда происходит фильтрация - то подсчет идет с указанного диапазона [vba]
Код
ar = Range("a2:b" & lr)
[/vba]
То есть, если я отфильтровался по второму уникальному значению "Катя", то в месседжбокс я получу еще и "Вася"
Как оставить чисто Катю (конкретно отфильтрованное значение\ия) и забить на Васю?
Потому что начинаю в цикле по коллекции фильтроваться (я это уже не указываю тут - так, для общего представления) - показывает все имена в конце. А хочется, чтобы только одно, по которому происходит фильтрация.
Может, нужно как-то обнулять или Trim ить данные... не могу здесь подобрать метод. Подскажите, пожалуйста, как лучше и каким путем идти.
Пример во вложении.
Добрый день, второй день не могу победить такую "тему"
В колонке 1 критерии, в колонке 2 значения
Использовал код (спасибо RAN)
[vba]
Код
Sub rere()
Dim ar, ai, ak, arCount() Dim count1&, count2& Dim i&
lr = Cells(Rows.Count, 1).End(xlUp).Row
ar = Range("a2:b" & lr)
With CreateObject("Scripting.Dictionary") For i = 1 To UBound(ar) .Item(ar(i, 1)) = .Item(ar(i, 1)) + ar(i, 2)
Но столкнулся с ситуацией, что когда происходит фильтрация - то подсчет идет с указанного диапазона [vba]
Код
ar = Range("a2:b" & lr)
[/vba]
То есть, если я отфильтровался по второму уникальному значению "Катя", то в месседжбокс я получу еще и "Вася"
Как оставить чисто Катю (конкретно отфильтрованное значение\ия) и забить на Васю?
Потому что начинаю в цикле по коллекции фильтроваться (я это уже не указываю тут - так, для общего представления) - показывает все имена в конце. А хочется, чтобы только одно, по которому происходит фильтрация.
Может, нужно как-то обнулять или Trim ить данные... не могу здесь подобрать метод. Подскажите, пожалуйста, как лучше и каким путем идти.