Копирование и добавления строк в зависимости от числа в ячейке.

[RAN]

Код (vb) Выделить Развернуть

arr = Cells.Value
выдает <Out of memory>
ни разу не удивлюсь, если окажется, что UsedRange это весь лист (или близко к тому).

[iceggg]

Пока некогда читать извините завтра вечером прочту и отвечу.

[iceggg]

Таблица на листе одна. S=14184 Arr и MiArr не пишет значение когда наводишь.

[iceggg]

А нет это в первой таблице s=14184 перепутал. Во второй S=1488931827 Arr и MiArr = <Subscript out of range>.
Еще заметил если в одном из столбцов есть пустые ячейки то выходит ошибка <Subscript out of range>.

[Михаил С.]

Во второй S=1 488 931 827

S - это количество строк; на листе всего 1 048 576 строк, куда вы столько поместите (полтора миллиарда)?

Еще заметил если в одном из столбцов есть пустые ячейки то выходит ошибка <Subscript out of range>.

Здесь непонятно. весь столбец пустой? или отдельные ячейки пустые? в принципе, не пустые. не нулевые ячейки в 13 столбце не мешают - просто эти строки не переносятся.
В других столбцах вообще роли нет.

[iceggg]

Пустые строки не заполненые в любых столбцах останавливают макрос с ошибкой <Subscript out of range>.
Ну предыдущими варинтами строки все обрабатываются и помещаются и их выходит не так много.
Там выходит 18508 строк всего после обработки.

[Михаил С.]

Пример можете показать, с пустыми строками, с ошибкой <Subscript out of range>.?

[iceggg]

Вот.

[Михаил С.]

Понятно. Ошибка  в строке вычисления S Должно быть:
 

Код (vb) Выделить Развернуть

S = WorksheetFunction.Sum(.Range(.Cells(2, 13), .Cells(.Rows.Count, 13).End(xlUp)))

зы. но если в файле есть скрытые строки (последние) или числа в тестовом формате - то нужен дрeгой алгоритм подсчета S

[iceggg]

Скрытого ничего нет формат ячеек общий.

[Михаил С.]

Вы проверили с исправлениями?

[iceggg]

Да проверил все работает. Спасибо.

[iceggg]

Появился еще вопрос а как сюда добавить условие что бы он 10 столбец проверял и если там стоит 0 то оставлял строку как есть ? Ото я как то не так его вписал и он просто не переносит строки в новый массив.

[A-Michael]

Слушайте, по-моему пора его отправить в платную ветку. Ведь скоро ему готовую программу отдадут...

[Михаил С.]

iceggg, давайте подробнее, что у вас не получается, и с примером - что есть, что надо.