Как сократить время? МАКРОС!

[jungo]

Привет!

Очень большой список где-то 61000 строк. нужно стереть полностью строки где во второй строке (В) есть цифра 2 (их большинство). Использую код:

Set ws = ActiveSheet
    For i = ws.UsedRange.Rows.Count To 1 Step -1
        If Cells(i, "B") = "2" Then ws.Rows(i).Delete
    Next i
End Sub

Оооочень долго! Как сделать быстрей?

[SAS888]

А перед Вашим кодом есть строка, запрещающая обновление экрана?

Application.ScreenUpdating = False

[jungo]

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

А перед Вашим кодом есть строка, запрещающая обновление экрана?

Нет. Я помню что это обсуждалось, но экономит ли это время?

[SAS888]

В Вашем случае - значительно.
Можно еще попробовать "накопить" нужные строки при помощи оператора Union. Затем сделать Union.Delete. Но позволит ли данный оператор столько аргументов - не пробовал (хотя пишут, что не ограничено). Будет ли это быстрее - нужно пробовать. При таком подходе - нет непосредственной работы со строками листа в цикле.
Я так думаю, что результат будет таким же, как и при запрете на обновление.

[jungo]

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

В Вашем случае - значительно.
Можно еще попробовать "накопить" нужные строки при помощи оператора Union. Затем сделать Union.Delete. Но позволит ли данный оператор столько аргументов - не пробовал (хотя пишут, что не ограничено). Будет ли это быстрее - нужно пробовать. При таком подходе - нет непосредственной работы со строками листа в цикле.
Я так думаю, что результат будет таким же, как и при запрете на обновление.

Вариант с запретом обновления экрана не удался...
6000 строк за 15 минут.
Можно поподробней о варианте "попробовать "накопить" нужные строки при помощи оператора Union"?

[IgorGO]

Можно вручную отключить режим автоматического пересчета проверить эффект, а потом внедрить в процедуру.
Application.Calculation = xlManual.

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

Отключение автопересчета и запрет на обновление экрана у меня всегда давали существенный прирост в скорости выполнения аналогичных процедур для больших массивов, когда данные правились непосредственно на листе. Все работало быстрее не на 20-30%, а в 10, 20, 50 раз быстрее.

[SAS888]

Предлагаю вариант (упомянутый выше), который на протяжении всей работы макроса вообще не "трогает" строки листа. Поиск и накопление номеров строк, удовлетворяющих заданному условию, происходит в памяти, а затем на листе выполняется единственная команда Delete.
Для теста, создал на листе два столбца значений в 6000 строк, где в столбце "B" было несколько тысяч значений "2". Время выполнения макроса составило менее 2 сек. Конечно, нужно заметить, что нет ни ссылок, ни формул, но попробуйте.

Sub Udalenie()

    Dim AllRows As Object, FirstCell As Object, FoundCell As Object
    Application.ScreenUpdating = False
    
    Set FirstCell = ActiveSheet.Columns("B").Find(What:=2, LookAt:=xlWhole)
    If FirstCell Is Nothing Then Exit Sub
    
    Set AllRows = Rows(FirstCell.Row)
    Set FoundCell = FirstCell
    
    Do
        Set FoundCell = ActiveSheet.Columns("B").FindNext(After:=FoundCell)
        Set AllRows = Union(Rows(FoundCell.Row), AllRows)
        If FoundCell.Address = FirstCell.Address Then Exit Do
    Loop

    AllRows.Delete

End Sub

[jungo]

SAS888
Большое спасибо за помощь!
Протестировал, и что получилось:

61000 строк - Не дождался, больше 10-ти минут ждал.
40000 строк - Тоже не дожидался хотя не ждал больше 5-ти минут.
27000 строк - ЗАРАБОТАЛО!!! но только через 2-3 минуты.
2-3 минуты на пол массива значит 4-6 минут на массив, но этого не произошло что говорит о том, что на такое количество строк этот вариант не годен.
Ещё раз огромное спасибо!

IgorGO
Можешь подробней насчёт своей идеи?

[SAS888]

Странно! Протестировал на 65536 строк (у меня Excel 2003). Все работает. Время выполнения около 7 сек. (Зависит от быстродействия комп.). Посмотрите вложение. Здесь макрос "Zapolnenie" - вставляет значение 2 во все ячейки столбца "B". Макрос "Udalenie" - собственно, рабочий макрос.
Просьба к участникам форума: протестируйте, пожалуйста.

[jungo]

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

Странно! Протестировал на 65536 строк (у меня Excel 2003). Все работает. Время выполнения около 7 сек. (Зависит от быстродействия комп.). Посмотрите вложение. Здесь макрос "Zapolnenie" - вставляет значение 2 во все ячейки столбца "B". Макрос "Udalenie" - собственно, рабочий макрос.
Просьба к участникам форума: протестируйте, пожалуйста.

Привет!

Извиняюсь что долго не отвечал, был на отдыхе.

Ты прав что-то в моём массиве тормозит... Но что???
Формул нет. Что может ещё тормозить?