Работа с большим кол-вом строк, словари, массивы, коллекции

[Hugo121]

Мой быстрее за счёт того, что анализируются не ячейки, а данные ячеек в массиве.
Ну и например вместо

    Do While .Cells(r, 1) <> ""
      d(.Cells(r, 1) & ...

где два раза обращаемся к ячейке Cells(r, 1)
просто перебор всего массива, размер которого определён уже один раз ранее.
Если данных мало - то разница незаметна. А на 27000 строк уже должно чувствоваться.

[VictorM]

Виктор, это бывает очень полезно.

да, я это уже понял, посмотрел в отладочном режиме.
Отличная штука. Я обычно пользовался всплывающими значениями, в желтом поле.

Виктор,
век живи...

что я и делаю...в свой почти век

[cherepushka]

Прошу помощи.

[Hugo121]

А вот тут уже вернулись к словарю
Сделал чтоб суммировалось, хотя по факту повторов нет. Но по сути дела при повторе ведь нужно суммировать, так ведь?

Option Explicit

Sub tt()
    Dim a(), i&, ii&, sh As Worksheet

    a = [a3].CurrentRegion.Value    'любая ячейка непрервыной области

    With CreateObject("Scripting.Dictionary")

        For i = 1 To UBound(a)
            For ii = 2 To UBound(a, 2) Step 2    '
                .Item(a(i, ii)) = .Item(a(i, ii)) + a(i, ii + 1)
            Next
        Next

        Set sh = Sheets.Add
        sh.[a1].Resize(.Count, 1) = Application.Transpose(.keys)
        sh.[b1].Resize(.Count, 1) = Application.Transpose(.items)
        
    End With
End Sub

[cherepushka]

Спасибо, большое. Тут получается простыми массивами не обойтись, будет больше кода?

[Hugo121]

Ну можно и простым, но проще словарём. И думаю правильнее - при повторе (а вдруг?)

[cherepushka]

Словарь до меня не доходит, что-то. С массивами вроде разобрался. Спасибо.

[Hugo121]

Там просто.
Вот например "перевод" этой строки:

.Item(a(i, ii)) = .Item(a(i, ii)) + a(i, ii + 1)

Это значит - к item'у ключа a(i, ii) (что есть название товара) прибавляем значение массива a(i, ii + 1). Т.е. то число, что правее названия.
Если такого ключа/item'а в словаре ещё нет - то они добавятся. Если есть - к уже существующему item добавится следующее слагаемое.
В итоге имеем словарь из ключей и item'ов, что в данном случае можно представить как два связанных столбца. Так их рядом и выгружаем.
Хотя это расположение не регламентировано, и правильнее было бы выгрузить ключи, и рядом (затем или сразу) к каждому ключу его item. Но лениво писать

Вот кстати вчерашний код на пяти словарях - думаю вполне понятно и видны преимущества применения. Там есть файл с кодом - с виду сложная задача решается очень просто.
http://www.planetaexcel.ru/forum/ind...ID=1&TID=50800

Только там в одном из словарей собирается не сумма, а строка. В остальных просто хранятся пары ключ-значение, которые сравниваются и изменяются по ходу работы.