Проблема с низким быстродействием макроса.

[Lord-of-Hedgehogs]

Здравствуйте, товарищи.
Возник следующий вопрос, ответ на который, увы, не могу найти самостоятельно. Мной написан макрос, реализующий выбор необходимых значений из нескольких таблиц и запись этих значений в новую таблицу. Так как во входных таблицах нет единообразия ("кривые" они, короче говоря), максимальный диапазон, которым я могу оперировать - ячейка. А поскольку входные таблицы довольно большие (70000*100 ячеек), "поячеечная" вставка значений из одной таблицы в другую типа:

Workbooks(name1).worksheets(1).cells(i, j) = Workbooks(name2).worksheets(1).cells(m, k)

отнимает много времени.

Не подскажете, как можно ускорить передачу значений из одной ячейки в другю?

[IgorGO]

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

в результате все выглядит обычно так:

Dim apee as boolean, apsu as boolean, apcm as integer

Sub Main()
  ExlDead
  on error goto Live
...
тут тело макроса, который выполняет полезные действия.
...
Live:  exlLive
end sub

Sub ExlDead() 
  apee = Application.EnableEvents: Application.EnableEvents = False
  apcm = Application.Calculation: Application.Calculation = xlCalculationManual
  apsu = Application.ScreenUpdating: Application.ScreenUpdating = False
End Sub

Sub ExlLive() 
  Application.EnableEvents = apee
  Application.Calculation = apcm
  Application.ScreenUpdating = apsu
End Sub

on error goto Live - гарантирует, что даже если произошла исключительная ситуация, эксель продолжит работу в прежнем режиме.

[EducatedFool]

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

Есть несколько вариантов:

1) Скопировать лист с "кривой" таблицей, на копии листа выправить таблицу, и копировать данные уже с этого "исправленного" листа, причём не по одной ячейке, а блоками.

2) Заменить часть макроса формулами.
Пусть даже записать при помощи макроса в ячейки нужные формулы, а потом преобразовать формулы в значения.

3) (самый быстрый, но и наиболее трудоёмкий в плане кода, способ)
Считать диапазон 70000*100 ячеек в массив (одной строкой, типа arr=[a4:ab70000].value), поиск значений производить в массиве, программно сформировать новый массив, и записать этот массив на Workbooks(name1).worksheets(1)


Есть и другие способы оптимизации кода.
Не увидев код Вашего макроса полностью, сложно посоветовать что-то конкретное.