Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Главное меню

Удалить строки ниже определенной строки

Автор zavik, 23.11.2023, 13:45

« назад - далее »

zavik

Добрый день.
Где-то не хватает у меня знаний. Хочу удалить строки ниже ячейки, содержащей слово "Сумма:"
слово находится в столбце A
Строк в таблице не много - штук 50, соответственно сделал с запасом в поиске позиции. Поиск позиции выдает нужную цифру, а в выборе строки - нет.
Так сделал:

 Rows("ПОИСКПОЗ(""СУММА:"";A1:A500;0)" & ":" & "1000").Select
  Selection.Delete
   
Но не выбирает и не удаляет соответственно.

АП633

Обыкновенным последовательным просмотром строк найдите "Сумма".
Опуститесь на строку ниже и удаляйте строку в цикле пока  строка не окажется пустой 

Serge 007

Здравствуйте
Макрос удаляет 10 строк, начиная со строки под "Сумма:"
Sub zavik()
Dim RRow&
    RRow = Application.Match("Сумма:", Range("a1:a500"), 0) + 1
        Rows(RRow & ":" & RRow + 10).Select
        Selection.Delete Shift:=xlUp
End Sub
Бесплатная помощь: www.excelworld.ru
Платная помощь: sergeyizotov@excelworld.ru
Ю-money: 41001419691823 | WMR:126292472390

zavik