Недостаток памяти

[27102014]

Доброго времени суток!
Столкнулся с проблемой при работе макроса - выходит ошибка "недостаточно оперативной памяти Excel". Пробовали запускать на трех ноутбуках - на двух подвисает, но все-таки работает (примерно 7 минут), на третьем, для которого написан макрос, и выходит эта ошибка. Установлен 10 офис, 32-разрядная версия, все лицензионное. Поискал в интернете - советуют поменять железо. Пробовал запустить макрос дома (комп мощный и 64-разрядная версия Excel), отчет формировался 20 минут.
Суть работы проблемной части макроса - имеется таблица с данными по ЗП сотрудников (4000 строк), эта таблица копируется и вставляется на 12 новых листов (12 филиалов) , далее с этих 12 листов удаляются лишние данные по другим филиалам.

Пробовал чистить буфер памяти - Application.CutCopyMode = False , не помогло

Возможно, кто-то уже сталкивался с такой проблемы и нашел решение, буду признателен за совет!

[Казанский]

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

Суть работы проблемной части макроса - имеется таблица с данными по ЗП сотрудников (4000 строк), эта таблица копируется и вставляется на 12 новых листов (12 филиалов) , далее с этих 12 листов удаляются лишние данные по другим филиалам.

Возможно, следует для каждого листа копировать и вставлять только то, что нужно. Чтобы не удалять лишнее.
20 минут для 4000 строк - это ненормально, алгоритм нуждается в оптимизации. Почитайте например
http://www.planetaexcel.ru/forum/ind...ITLE_SEO=55705

[27102014]

Спасибо за ответ!
Буду пробовать оптимизировать - это уже 4 вариант макроса

[EducatedFool]

Вы бы выложили файл, - тогда и советы были бы более конкретные

PS: для обработки 4 тыс строк, обычно более чем достаточно 1-2 секунд.
(если макрос правильно написан)

[27102014]

Файл, к сожалению выложить не могу, т.к. он содержит конфеденциальную информацию. И вопрос был не по оптимизации кода VBA, а по настройкам Excel.
Вообще вроде бы решил вопрос копированием только нужной мне части листа
' копирование данных
lLastRow = Worksheets("Выгрузка").Cells(Rows.C ount, 1).End(xlUp).Row ' Счетчик номера последней строки
Sheets("Выгрузка").Select
Range(Cells(1, 1), Cells(lLastRow, 25)).Select
Selection.Copy
' вставка на листы
For i = 3 To ThisWorkbook.Sheets.Count 'номер последнего листа в книге
Sheets(i).Select
Range("A1").Select
ActiveSheet.Paste

Next

[EducatedFool]

вопрос был не по оптимизации кода VBA, а по настройкам Excel

а причём тут настройки Excel ?

макрос тормозит по одной единственной причине, - он так написан
настройки Excel тут ни при чём
если нормально написать макрос (без использования слова Select, например), - макрос отработает за секунду, - и, разумеется, с нехваткой памяти никаких проблем не будет
(такому макросу надо очень мало памяти)

PS: проще переписать весь код «с нуля»

[Казанский]

Осталось селекты убрать

With Worksheets("Выгрузка")
  lLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row ' Счетчик номера последней строки
  Set r = .Range(.Cells(1, 1), .Cells(lLastRow, 25))
End With
' вставка на листы
For i = 3 To ThisWorkbook.Sheets.Count 'номер последнего листа в книге
  r.Copy ThisWorkbook.Sheets(i).Range("A1")
Next

[Hugo121]

А Rows.Count то может быть как 65536, так и миллион, как повезёт... Что может дать ошибку.

[SAS888]

Rows.Count - это константа, которая хранится в модуле класса. В зависимости от версии Excel она различна, но ошибки не будет.

[Hugo121]

Я сейчас проверить не могу (но помню что проверял ранее), но думаю что эта константа берётся от активного файла (или листа с кодом), а обрабатывать в этот момент можно файл другой версии.
Т.е. если активный будет xlsx, а обрабатывается xls - будет ошибка. Если наоборот - можно "не заметить" что и в 70к строках есть данные.

В примере Казанского думаю будет ошибка, если код будет в модуле листа одной версии, а Worksheets("Выгрузка") будет другой версии. Конечно маловероятно, но возможно. Точки там не хватает.