Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Удаление строк по нескольким условиям - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Удаление строк по нескольким условиям
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]


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

Автор - Gjlhzl
Дата добавления - 04.10.2023 в 21:01
and_evg Дата: Четверг, 05.10.2023, 06:44 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 460
Репутация: 77 ±
Замечаний: 0% ±

Excel 2007
МОЖНО ВСЕ В ОДИН МАКРОС ВМЕСТИТЬ

Можно. Только при наличии файла.
 
Ответить
Сообщение
МОЖНО ВСЕ В ОДИН МАКРОС ВМЕСТИТЬ

Можно. Только при наличии файла.

Автор - and_evg
Дата добавления - 05.10.2023 в 06:44
Gjlhzl Дата: Четверг, 05.10.2023, 09:57 | Сообщение № 3
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 138
Репутация: 0 ±
Замечаний: 0% ±

and_evg, пример прикладываю
К сообщению приложен файл: primer.xlsb (44.1 Kb)
 
Ответить
Сообщениеand_evg, пример прикладываю

Автор - Gjlhzl
Дата добавления - 05.10.2023 в 09:57
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!