Вечер добрый, подскажите пожалуйста: есть макрос удаления строк по листам после строки с текстом "ВСЕГО"...требуется подправить чтоб удалял все строки до строки с текстом "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]
Вечер добрый, подскажите пожалуйста: есть макрос удаления строк по листам после строки с текстом "ВСЕГО"...требуется подправить чтоб удалял все строки до строки с текстом "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