макрос для сложения строчек с одинаковыми "заголовками"

[Badass]

толкните на мысль.

If a = Cells(b, 1) Then 'как сделать чтобы после сравнения значений первого столбца , значения второго столбца складывались и куда нибудь выносились

[IgorGO]

попробую угадать:

сумма = 0
for r = 1 to cells(r,1).end(xldown).row
  if a = cells(r,1) then сумма = сумма + cells(r,2)
next
msgbox "Сумма = " & сумма

[Badass]

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

попробую угадать:

сумма = 0
for r = 1 to cells(r,1).end(xldown).row
  if a = cells(r,1) then сумма = сумма + cells(r,2)
next
msgbox "Сумма = " & сумма

во вложении пример таблицы, отталкиваюсь от сравнения строк, если строки равны , то вторые столбцы (B) этих строк должны сложиться и вынестись куда нибудь..например

Итог за лето:
Иванов 11794
Петров 10004

[Badass]

a = Cells(1, 1)
For nmb = 3 To 150000
If a = Cells(b, 1) Then

если будут совпадения фамилий, то сложить эти ячейки с зарплатой между собой и итог вынести по этой фамилии , даже если будет 3 и более совпадений фамилий, как мне поймать эти ячйки?

[Hugo121]

Цикл по массиву и создание коллекции или словаря уникальных фамилий, одновременно в Item суммируя суммы.
Вот, переделал другой код.

[nilem]

For nmb = 3 To 150000

Если таблица такая большая, попробуйте так (см. файл).

[EugeneS]

Может достаточно будет стандартных средств Экселя?

[Badass]

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

Цикл по массиву и создание коллекции или словаря уникальных фамилий, одновременно в Item суммируя суммы.
Вот, переделал другой код.

работает супер, но к объектам я еще не совсем готов..

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

Если таблица такая большая, попробуйте так (см. файл).

спасибо помогло, а можете закоментировать строки, а то не все довольно понятно

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

Может достаточно будет стандартных средств Экселя?

прошу прощения, но я и сам бы наверно предпочел фильтры, но способ реализации выбирал не я.

[Badass]

2nilem, здраствуйте, можете все таки поянить в вашем макросе работу инструкции with с переменными, с определения числа символов в объекте. Я знаю волшебное слово - пожалуйста

[Hugo121]

И чего Вы так словаря испугались?
Мне кажется, что на нём код проще получился, чем на коллекции.
Всего-то одно условие, которое вероятно и объяснять-то не надо:

        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

Если нет в словаре - заносим вместе с значением, если есть - плюсуем к занесённому значению текущее.