"свернуть" таблицу

[sn00p]

всем дня доброго!
сильно не пинайте, занимаюсь программерством под XL не так много, 2 недели...
задача стоит вот такая = есть большая таблица , в среднем 13500 записей, 10 столбцов, мне ее нужно обработать и на выходе получить таблицу , но без дубликатов. удаление дубликатов - это просто..2010 это умеет сам делать и с этим нет проблем. сложность возникает в следующем - у каждой строки есть 2 критерия, по которым нужно их суммировать - это номер документа и штрих код(шк), для этих целей прекрасно подходит ф-ия sumisf и она работает хорошо, все что надо делает.
собственно вот кусок кода, в котором я делаю 2 массива = 1й большой, в нем шк, 2й маленький и в нем номера документов(номера документов более уникальны)

For i = 1 To ilastrow
uniq1.Add Cells(i, 5), CStr(Cells(i, 5))
Next i

For g = 1 To ilastrow
uniq2.Add Cells(g, 1), CStr(Cells(g, 1))
Next g

далее внутри этих циклов , имея совокупность уникального шк и номера док-та я уже суммирую таблицу

For i = 1 To uniq1.Count
For g = 1 To uniq2.Count

ShKod = Trim(Str(uniq1.Item(i)))
nDoc = Trim(Str(uniq2.Item(g)))
clval = WorksheetFunction.SumIfs(Range("G1:G" + Trim(Str(ilastrow))), Range("A1:A" + Trim(Str(ilastrow))), nDoc, Range("E1:E" + Trim(Str(ilastrow))), ShKod)
    If clval <> 0 Then
     With Sheets(5)
        .Cells(Z, 2) = Sheets(6).Cells(Z, 3)
        .Cells(Z, 3) = Sheets(6).Cells(Z, 4)
        .Cells(Z, 4) = ShKod 'Str(Sheets(6).Cells(Z, 5))
        .Cells(Z, 5) = Sheets(6).Cells(Z, 6)
        .Cells(Z, 6) = clval
      End With
        Z = Z + 1
    End If
Next g
DoEvents
ProgressBar21.Value = (i * 100) / y
Next i

после суммирования я хоче перенести полученные значения на новый лист, но кроме суммы и ШК и меня ничего туда не переносится нормально, т.к. я не знаю, как получить фокус(номер строки) которая обрабатывается а конкретный момент, что бы взять с этой строки все нужные мне наименования в ячейках.
подскажите плиз комрады что мне и как переделать

[SAS888]

При таком большом объеме данных работать с ячейками листа не следует. Будет очень долго. Либо используйте ADO, либо загоняйте все в массив, получайте то, что требуется, а затем вставляйте на новый лист.
Чтобы получить более полный ответ, прикрепите фрагмент Вашего файла (можно с "липовыми" данными) и подробно опишите задачу.

[Hugo121]

Что-то как-то мутно... Пример дайте строк на 10.
Но раз у Вас 13500 строк, то быстрее будет работать с массивами ВБА а не с листом.
Например, вот это
For i = 1 To ilastrow
uniq1.Add Cells(i, 5), CStr(Cells(i, 5))
Next i
будет из массива выполняться за секунду.
Ну и вместо SumIf можно тоже перебор исходного массива проводить - не знаю, будет ли это медленнее, возможно и нет, но зато полный контроль над данными.

И кстати прогрессбар скорее всего не понадобится.

[Hugo121]

Кажется, Вам ведь надо выбрать уникальное сочетание номер-штрихкод и по нему просуммировать.
Т.е. сперва прогоняем один раз массив и получаем список уникальных пар, затем прогоняем один раз список и суммируем данные массива (цикл в цикле). Вроде так, или не то?

[Skif-F]

Как я понял, ты хочешь знать в каких строках выражение:

clval = WorksheetFunction.SumIfs(Range("G1:G" + Trim(Str(ilastrow))), Range("A1:A" + Trim(Str(ilastrow))), nDoc, Range("E1:E" + Trim(Str(ilastrow))), ShKod)

нашло нужные значения? Если да, то тебе надо избавиться от этого выражения и разработать что-то более сложное.

[doober]

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

подскажите плиз комрады что мне и как переделать

Выполнить пожелания

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

Чтобы получить более полный ответ, прикрепите фрагмент Вашего файла (можно с "липовыми" данными) и подробно опишите задачу.

Не самим же выдумывать ваш файл
И у вас будет как минимум два совершенно разных способа решения вашей задачи,а то и три

[sn00p]

для примера, Лист2
отвечу всем, но позже, прошу прощения, заняли меня пока другой работой..

[sn00p]

Сообщение от Skif-F

Как я понял, ты хочешь знать в каких строках выражение:

clval = WorksheetFunction.SumIfs(Range("G1:G" + Trim(Str(ilastrow))), Range("A1:A" + Trim(Str(ilastrow))), nDoc, Range("E1:E" + Trim(Str(ilastrow))), ShKod)

нашло нужные значения? Если да, то тебе надо избавиться от этого выражения и разработать что-то более сложное.

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

[sn00p]

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

Кажется, Вам ведь надо выбрать уникальное сочетание номер-штрихкод и по нему просуммировать.
Т.е. сперва прогоняем один раз массив и получаем список уникальных пар, затем прогоняем один раз список и суммируем данные массива (цикл в цикле). Вроде так, или не то?

собственно вы правы, вот этот кусок кода делает пару уникального значения, сперва идет перебор ШК потом номеров документов.

For i = 1 To uniq1.Count
For g = 1 To uniq2.Count

ShKod = Trim(Str(uniq1.Item(i)))
nDoc = Trim(Str(uniq2.Item(g)))

[sn00p]

еще помогите пожалуйста разобраться со следующей конструкцией:

For g = 1 To ilastrow
uniq2.Add Cells(g, 1), CStr(Cells(g, 1))
Next g

это единственное, что я заимствовал( и не могу нифига понять , ка работает, вернее, могу, по частям, но вот когда все сложить воедино - хрень какая то..
как я это понимаю
цикл от 1 до вычисленной или заданной переменной ilastrow заполняет массив uniq2 значениями из таблицы , адрес ячейки g строка, 1 столбец.
на выходе мы имеем фактически массив не повторяющихся значений.
и тут вопрос - если закоментить CStr(Cells(g, 1)), те , получить конструкцию

For g = 1 To ilastrow
uniq2.Add Cells(g, 1)
Next g

в массиве будут все значения и в том числе дублирующиеся.
какое отношение к этому имеет ф-ия CStr? она ведь возвращает текстовое значение переменной и все...какую роль она играет?