Excel VBA Макросы: Поиск и удаление строки по заданной фразе.

[Blacit]

Нужно найти строку в таблице с названием "Дата операции" и полностью удалить её, а также всё, что над ней.

[вложение удалено администратором]

[Администратор]

Макрос

Sub макрос()

    Dim r As Long
   
   
    '1. Поиск в столбце A текста "Дата операции".
    r = WorksheetFunction.Match("Дата операции", Columns("A"), 0)
   
    '2. Корректировка с учётом объединённых ячеек.
    r = r + Cells(r, "A").MergeArea.Rows.Count - 1
   
    '3. Удаление найденной строки и других строк, которые над этой строкой.
    Rows("1:" & r).Delete

End Sub

[свернуть]

[Blacit]

спасибо