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

Вход

Регистрация

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

 

= Мир MS Excel/Удалить строки ниже определенной строки - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки ниже определенной строки (Макросы/Sub)
Удалить строки ниже определенной строки
zavikzavik Дата: Четверг, 23.11.2023, 13:44 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

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

Rows("ПОИСКПОЗ(""СУММА:"";A1:A500;0)" & ":" & "1000").Select
Selection.Delete

Но не выбирает и не удаляет соответственно.

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

Rows("ПОИСКПОЗ(""СУММА:"";A1:A500;0)" & ":" & "1000").Select
Selection.Delete

Но не выбирает и не удаляет соответственно.
Автор - zavikzavik
Дата добавления - 23.11.2023 в 13:44
WowGun Дата: Четверг, 23.11.2023, 13:48 | Сообщение № 2
Группа: Проверенные
Ранг: Новичок
Сообщений: 27
Репутация: 3 ±
Замечаний: 0% ±

Будет продуктивнее, если вы приложите обезличенный файл-пример.
Не нужно будет гадать где что находится и почему что-то не работает.
 
Ответить
СообщениеБудет продуктивнее, если вы приложите обезличенный файл-пример.
Не нужно будет гадать где что находится и почему что-то не работает.
Автор - WowGun
Дата добавления - 23.11.2023 в 13:48
zavikzavik Дата: Четверг, 23.11.2023, 13:53 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

365
файл
в макросе 4-я строка снизу - все верхние отрабатывают
К сообщению приложен файл: 0587581.xlsm (23.9 Kb)

zavik

Сообщение отредактировал zavikzavik - Четверг, 23.11.2023, 13:55
 
Ответить
Сообщениефайл
в макросе 4-я строка снизу - все верхние отрабатывают
Автор - zavikzavik
Дата добавления - 23.11.2023 в 13:53
Nic70y Дата: Четверг, 23.11.2023, 14:01 | Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 8783
Репутация: 2281 ±
Замечаний: 0% ±

Excel 2010
[vba]
Код
Rows(Application.Match("СУММА:", Range("A1:A500"), 0) + 1 & ":1000").Delete
[/vba]соот[vba]
Код
Selection.Delete
[/vba]убрать

ЮMoney 41001841029809

Сообщение отредактировал Nic70y - Четверг, 23.11.2023, 14:02
 
Ответить
Сообщение[vba]
Код
Rows(Application.Match("СУММА:", Range("A1:A500"), 0) + 1 & ":1000").Delete
[/vba]соот[vba]
Код
Selection.Delete
[/vba]убрать
Автор - Nic70y
Дата добавления - 23.11.2023 в 14:01
zavikzavik Дата: Четверг, 23.11.2023, 16:04 | Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

365
спасибо :)

zavik
 
Ответить
Сообщениеспасибо :)
Автор - zavikzavik
Дата добавления - 23.11.2023 в 16:04
Serge_007 Дата: Пятница, 24.11.2023, 13:40 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16475
Репутация: 2749 ±
Замечаний: ±

Excel 2016
Ответил здесь: https://forum.msexcel.ru/index.php?topic=12296.0

ЮMoney:41001419691823 | WMR:126292472390
 
Ответить
СообщениеОтветил здесь: https://forum.msexcel.ru/index.php?topic=12296.0
Автор - Serge_007
Дата добавления - 24.11.2023 в 13:40
zavikzavik Дата: Четверг, 30.11.2023, 15:05 | Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация: 0 ±
Замечаний: 0% ±

365
Serge_007, спасибо !!!

zavik
 
Ответить
СообщениеSerge_007, спасибо !!!
Автор - zavikzavik
Дата добавления - 30.11.2023 в 15:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удалить строки ниже определенной строки (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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