Удаление строк по нескольким условиям

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Удаление строк по нескольким условиям (Макросы/Sub)

Gjlhzl

Дата: Среда, 04.10.2023, 21:01 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 138

Репутация: 0 ±

Замечаний: 0% ±

Вечер добрый, подскажите пожалуйста:
есть макрос удаления строк по листам после строки с текстом "ВСЕГО"...требуется подправить чтоб удалял все строки до строки с текстом "1"
И СТРОКИ ГДЕ В СТОЛБЦЕ "с" ЕСТЬ ТЕКСТ "ИТОГО" И "охр" МОЖНО ВСЕ В ОДИН МАКРОС ВМЕСТИТЬ?
Спасибо заранее
[vba]

Код

Sub DeleteRows()
Dim i As Long, Rng As Range, LastRow As Long
    For i = 1 To Sheets.Count
        With Sheets(i)
            LastRow = .Cells.Find(What:="", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
            Set Rng = .Cells.Find(What:="ВСЕГО", LookIn:=xlValues, Lookat:=xlWhole, SearchDirection:=xlPrevious)
            If Not Rng Is Nothing Then
                Range(.Cells(Rng.Row + 1, 1), .Cells(LastRow, 1)).EntireRow.Delete
            End If
        End With
    Next
End Sub

[/vba]