VBA_макрос: удалить всю строку в таблице, если в ней есть слово "удалить"

[макарошка]

Помогите, пожалуйста, написать такой макрос:
нужно удалить всю строку в таблице, если в ней есть слово "удалить" в столбце L.
таблица большая, и таких строк встречается много...
уже не знаю что делать

[EducatedFool]

Попробуйте так:

Sub test()
    Application.ScreenUpdating = False: On Error Resume Next
    Do
        Range("L:L").Find("удалить", , , xlPart).EntireRow.Delete
    Loop Until Err
End Sub

[макарошка]

попробовала, работает почему-то неправильно((

[EducatedFool]

попробовал, работает почему-то правильно )

где пример файла?

[макарошка]

вот пример файла

[макарошка]

да, точно он работает правильно
Но у меня слово "удалить" вписано в формулу, видимо поэтому этот макрос удаляет все строки с такой формулой.

[макарошка]

кто-нибудь!! подскажите! предложенный вариант макроса не подходит...((

[Hugo121]

Там надо Find по Value производить, найденное набирать в Union и затем сразу весь Union и удалять.
Или сперва переводить формулы в значения, тогда и этот код сработает, но так ведь не подойдёт?
Писать код некогда...

[макарошка]

Т.е. как?
Я не знаю как всё это записывается. Извините, что туплю ...ну в общем-то потому и спрашиваю

[Hugo121]

Вот такая переработка кода EducatedFool

Option Explicit

Sub test()
Dim oRNG As Range, X As Range, iFirstAddress As String

Application.ScreenUpdating = False
    
Set X = Range("L:L").Find(what:="удалить", LookIn:=xlValues, LookAt:=xlPart)

If Not X Is Nothing Then
    iFirstAddress = X.Address
    Do
        Set X = Range("L:L").FindNext(X)
            If oRNG Is Nothing Then Set oRNG = X Else Set oRNG = Union(oRNG, X)
    Loop While Not X Is Nothing And X.Address <> iFirstAddress
End If

oRNG.EntireRow.Delete

Application.ScreenUpdating = True
End Sub