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

[The_Prist]

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

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

Согласен. Если Worksheets("Выгрузка") будет в книге .xls, в то время как сам код со строкой

lLastRow = .Cells(Rows.Count, 1).End(xlUp).Row

будет в модуле листа/книги файла .xlsm или иного файла старшего формата - ошибка.
Т.к. Rows является диапазоном, а диапазон без явного указания родительского объекта будет сопоставлен и отнесен к тому объекту, в котором код, то будет следующее:
Rows.Count = 1048576
И .Cells листа .xls просто не пример значение 1048576 и выдаст ошибку.
Но в данном случае, полагаю, этого не будет. Но я лично по привычке часто ставлю точку перед Rows(если использую ссылку With). Не ставлю только если 100% уверен в невозможности описанной выше ситуации.

Кстати, ситуация обратная(код в модуле листа .xls, а активен лист .xlsm) - это еще более критичная ошибка. Т.к. ошибку VBE не получим, но если строк больше 65536 - то последняя строка будет определена неверно...Что повлечет ошибки внутри логики кода - данные будут обработаны не все.

[27102014]

Код от Казанского отработал на отлично! Огромное спасибо!!!
В моем случае объем исходной таблицы никогда не будет более 5000 строк.
Макрос запускается из .xlsb и формирует два документа .xls., которые по окончании работы макроса вкладываются в письмо Outlook
Подумал, что формат исходной таблицы слишком много весит и добавил код на преобразования текста в число
Время на работу макроса сократилось до 1 минуты
В итоге получилось следующее

[Sheets("Выгрузка").Select
'преобразование текста в число
For u = 1 To 12
Columns(u).Select
Selection.TextToColumns Destination:=Cells(1, u), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True
Next



' очистка листов
For i = 3 To ThisWorkbook.Sheets.Count
Sheets(i).Select
Rows("1:1").AutoFilter 'снятие фильтра
Cells.Clear 'очищение
Next


' Копирование данных
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][/CODE]

[Казанский]

Hugo121, The_Prist,
да, упустил точку, уже исправил.

[Казанский]

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

' очистка листов

Наверно, быстрее будет удалить листы и создать снова, с теми же именами:

Dim n
n = ThisWorkbook.Sheets.Count
ReDim shNames(3 To n)
For n = 3 To UBound(shNames)
  shNames(n) = ThisWorkbook.Sheets(n).Name
Next
Application.DisplayAlerts = False
Sheets(shNames).Delete
Application.DisplayAlerts = True
Sheets.Add after:=Sheets(2), Count:=n - 3
For n = 3 To UBound(shNames)
  Sheets(n).Name = shNames(n)
Next

[27102014]

Уважаемый Казанский, еще раз огромное Вам спасибо за код по копированию данных, реально выручили!

По поводу очистки листов - быстрее работает с моим кодом - 34 с, если удалять листы, как предложили Вы, то 1 мин 6 с.

[timpust]

Прочитайте про причины переполнения оперативной памяти в Excel

http://www.timpust.ru/vba/memory/

Excel имеет следующие ограничения по оперативной памяти:
Для 64-разрядной версии Excel 2010 не действует ограничение в 2 Gb
Microsoft Excel 2007 2Gb
Microsoft Excel 2003 1Gb
Microsoft Excel 2002 128Mb
Microsoft Excel 2000 64Mb

Лекарство:
в конце кода чистим переменные из памяти
tmpDim = Empty 'Опустошаем переменную
Erase tmpArr 'Стираем массив
Set tmpObject = Nothing 'Стираем объект