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

[nilem]

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

можете все таки пояснить в вашем макросе работу инструкции with с переменными, с определения числа символов в объекте

Попробую так:

' заполняем коллекцию уникальных значений
With New Collection
    On Error Resume Next ' если появится ошибка, то идем дальше
    For i = 1 To UBound(x, 1)
        If Len(x(i, 2)) > 0 Then
            k = CStr(x(i, 1)): Err.Clear    ' ключ - по первому столбцу массива; очищаем обработчик ошибок
            ' в качестве элементов коллекции записываем номера строк
            .Add Item:=j + 1, Key:=k
            If Err <> 0 Then    ' - произошла ошибка, т.е. попытались добавить
                ' в коллекцию элемент с таким ключом, который уже есть в коллекции;
                ' тогда определяем номер строки коллекции с этим ключом (это будет
                ' номер строки u в выходном массиве),
                u = .Item(k)
                ' и суммируем в выходном массиве количество для строк с одинаковыми ключами
                y(u, 2) = y(u, 2) + x(i, 2)
            Else    ' - ошибки нет, т.е. в коллекцию попал элемент с уникальным ключом,
                ' увеличиваем счетчик и переносим значения из исходного массива в выходной
                j = j + 1
                y(j, 1) = x(i, 1): y(j, 2) = x(i, 2)
            End If: End If
    Next i
End With     ' очищаем память от коллекции

Со словарями, действительно, проще (и "кошернее", как некоторые считают)

[Hugo121]

Мне при работе с коллекцией не нравится то, что всё основано на ошибках
Вероятно чисто психологически не нравится