Sub x ()
Тусклое rFind как ряд
Application.ScreenUpdating = ложно
С листами («примирите»). Колонки (4)
Установите rFind =. Находите (: = " сигнал ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Если не rFind ничего после этого
Сделайте
rFind.EntireRow.Delete
Установите rFind =. Находите (: = " сигнал ", LookAt: =xlWhole, MatchCase: =False, SearchFormat: =False)
Закрепите петлеть до тех пор пока rFind не быть ничего
Закончитесь если
Закончитесь с
Application.ScreenUpdating = True
Подводная лодка конца
|