Новости:

К первому сообщению темы должен быть прикреплен файл примера в формате xls*.
Приложив пример, Вы избавите себя и других от вопросов типа "А какой критерий?", "А куда выводить результат?", "А сколько строк?" и все тех же просьб выложить файл. Рисовать за Вас Ваши же таблички с заданиями, а затем и решение к ним, никто желанием не горит. Да и, как показывает практика, в большинстве случаев без файла решения не найти.

Главное меню

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

Автор 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