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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строк по меняющимся данным - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по меняющимся данным (Макросы/Sub)
Удаление строк по меняющимся данным
Elvira66 Дата: Четверг, 25.04.2019, 09:16 | Сообщение № 1
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день! Помогите написать код, удаления всех строчек, в ячейках которых колонки А есть названия "страница " с номером, который может меняться. Файл с примером приложила.
К сообщению приложен файл: _17.xlsx (8.8 Kb)
 
Ответить
СообщениеДобрый день! Помогите написать код, удаления всех строчек, в ячейках которых колонки А есть названия "страница " с номером, который может меняться. Файл с примером приложила.
Автор - Elvira66
Дата добавления - 25.04.2019 в 09:16
Elvira66 Дата: Четверг, 25.04.2019, 09:35 | Сообщение № 2
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
У меня получается только если перечислять страницы в коде, файл приложила.
К сообщению приложен файл: _17.xlsm (13.6 Kb)
 
Ответить
СообщениеУ меня получается только если перечислять страницы в коде, файл приложила.
Автор - Elvira66
Дата добавления - 25.04.2019 в 09:35
K-SerJC Дата: Четверг, 25.04.2019, 10:38 | Сообщение № 3
Группа: Проверенные
Ранг: Обитатель
Сообщений: 487
Репутация: 86 ±
Замечаний: 0% ±

Excel 2013
так?
[vba]
Код
Sub opa()
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For f = lr To 1 Step -1
If Mid(ActiveSheet.Cells(f, 1).Text, 1, 9) = "страница " Then ActiveSheet.Rows(f).Delete shift:=xlUp
Next f
End Sub
[/vba]
К сообщению приложен файл: elvira66-3.xlsm (14.6 Kb)

Благими намерениями выстелена дорога в АД.

Сообщение отредактировал K-SerJC - Четверг, 25.04.2019, 10:39
 
Ответить
Сообщениетак?
[vba]
Код
Sub opa()
lr = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For f = lr To 1 Step -1
If Mid(ActiveSheet.Cells(f, 1).Text, 1, 9) = "страница " Then ActiveSheet.Rows(f).Delete shift:=xlUp
Next f
End Sub
[/vba]
Автор - K-SerJC
Дата добавления - 25.04.2019 в 10:38
Elvira66 Дата: Четверг, 25.04.2019, 11:30 | Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 117
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Это то что нужно! Спасибо!) :)
 
Ответить
СообщениеЭто то что нужно! Спасибо!) :)
Автор - Elvira66
Дата добавления - 25.04.2019 в 11:30
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по меняющимся данным (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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