Скопировать данные в новую книгу, согласно критерию

[Iskin]

Заменил, все работает. Но есть одно большое "НО". Ввиду того что лист "итог" содержит более 3000 строк с данными и функциями, макрос отрабатывается более 10 минут. На не больших примерах все происходит гораздо быстрее.

[EducatedFool]

Странно...
На моём компьютере обработка происходит гораздо быстрее (Celeron 1300, RAM 256 Mb).
Да и компьютер у Вас, наверняка, гораздо мощнее...

Изначально я не оптимизировал код - так как не знал, что строк будет так много.

Вот результаты работы прежнего кода для 10 000 строк - всего 10 секунд
=================================== ====
01.12.2008 14:36:28 start processing file
01.12.2008 14:36:29 BeforeHidingRows
Rows.Count = 10295
01.12.2008 14:36:39 AfterHidingRows - saving file
01.12.2008 14:36:40 file already saved
01.12.2008 14:36:40 file closed


Пытался оптимизировать код, но результата лучше 3 секунд добиться не удалось... (в варианте CopySheet2, который сейчас включен по умолчанию)

=================================== ====
01.12.2008 16:14:30 start processing file
01.12.2008 16:14:30 BeforeHidingRows
Rows.Count = 10295
01.12.2008 16:14:32 Rows already hidden - saving file
01.12.2008 16:14:33 file already saved
01.12.2008 16:14:33 file closed

Сам цикл (пустой) отрабатывает моментально:

For i = LBound(arr) To UBound(arr)
If arr(i, 1) <> Nomer Then
' здесь пишем код для скрытия строки
End If
Next

А вот время работы кода (для разных способов скрытия строк):

.Rows(i + 2).RowHeight = 0 - за 9 секунд

.Rows(i + 2).Hidden = True - за 6 секунд

Set rowsArr = Union(rowsArr, .Rows(i + 2)) - около 95 секунд
(сначала формируем диапазон строк для скрытия, а после цикла скрываем их)

r = A$ & CStr(i + 2): addr = addr & b$ & r & c$ & r - за 1 секунду
(формируем в теле цикла адрес диапазона для скрытия)



Для запуска разных вариантов измените в обработчике

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Address = [g1].Address Then Cancel = True: CopySheet2
End Sub

команду CopySheet2 на CopySheet1 или CopySheet3


Теперь значения, которые Вам нужно изменять, вынесены в начало модуля:

Const ЯчейкаСНомером = "G1"
Const СтолбецПоКоторомуОпределяемПоследню юЗаполненнуюСтроку = "A"
Const СтолбецСНомеромИзделия = "E"

При выполнении макроса смотрите на строку состояния Excel - туда выводится номер обрабатываемой строки.

Если надо, чтобы при перезаписи существующего файла выдавался запрос, уберите строку Application.DisplayAlerts = False

[Iskin]

оказалось, что дело в Office 2007 или Висте... попробывал вариант # 10 на другом компе с офисом 2003 там все быстро отработало.