Быстрое удаление строк

[V@lentin]

Добрый день!
EXCEL 2003
Есть таблица с данными, которая стостоит из нескольких тысяч строк.
Проблема в том, что когда я удаляю около тысячи выделенных строк, то даный процес занимает несколько минут времени, т.е. довольно долго.
Скажите, можно ли написать макрос для мгновенного удаления выделенных строк?
Заранее благодарен.

[EducatedFool]

Так вы макросом ищете подходящие строки (судя по предыдущей теме), и потом по одной из удаляете?

Этот макрос пробовали?
http://excelvba.ru/code/ConditionalRowsDeleting

[Hugo121]

Тысячу несколько минут? Отключите пересчёт.
Ну и кроме Union можно ещё адреса собирать в строку и удалять полученный диапазон.
Только длину строки нужно контролировать.
Ссылка на тему: http://www.planetaexcel.ru/forum.php...llnum_forum=52
Ещё вариант - создать массив с пометками (параллельно в основном процессе), выгрузить массив в свободный столбец, фильтр по столбцу, видимые удалить. Будет "мгновенно".

[V@lentin]

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

Так вы макросом ищете подходящие строки (судя по предыдущей теме), и потом по одной из удаляете?

Этот макрос пробовали?
http://excelvba.ru/code/ConditionalRowsDeleting

Предыдущий мой вопрос никак не связан с данной темой. Для меня главное быстрота удаления строк. К примеру, из 5-ти тысяч строк, мне нужно выделить много строк (1000-1500) и удалить их все сразу. Этот процесс занимает у меня на компьютере (работаю в ЕКСЕЛЬ 2003) приблизительно 3-5 минут. Пробовал удалять макросом с отключением обновления экрана - выходит все равно долго.

[V@lentin]

Отключил автоматические вычисления - помоглось, удаляются практически мгновенно. У меня в каждой строке очень большие формулы, скорее всего это и не давало быстро удалить большое количество строк.
Всем спасибо, особенно Hugo121!

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

[Djeki]

Сообщение от V@lentin

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

Включите запись макроса и запишите. Получите готовый код.

[Hugo121]

Обычно делают так:

    With Application
        lCalc = .Calculation
        .ScreenUpdating = False: .Calculation = xlManual
    End With

  'работа

    With Application
         .ScreenUpdating = True: .Calculation = lCalc
    End With

[V@lentin]

Всем спасибо! Все работает, удаляет быстро.

Sub удаление()
With Application
        lCalc = .Calculation
        .ScreenUpdating = False: .Calculation = xlManual
    End With

Selection.Delete

    With Application
         .ScreenUpdating = True: .Calculation = lCalc
    End With
End Sub

[Hugo121]

Посмотрел критическим глазом - вероятно нужно сперва включить пересчёт (всё посчитается), потом сразу всё отобразить.
Можете замерить скорость одного и второго варианта:

Sub удаление()
    Dim tm!: tm = Timer
    Dim lCalc&

    With Application
        lCalc = .Calculation
        .ScreenUpdating = False: .Calculation = xlManual
    End With

    Selection.Delete

    With Application
       .Calculation = lCalc: .ScreenUpdating = True
    End With

    MsgBox "Удалено за " & Format((Timer - tm) / 24 / 60 / 60, "nn:ss") & " сек."

End Sub