Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме 15-35 тыс рублей в месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 21.11.2021, 17:40   #1
Yukihiro
Новичок
Джуниор
 
Регистрация: 16.02.2017
Сообщений: 1
По умолчанию Удаление строк в таблице

Есть код который удаляет текст по условию из столбца А, но нужно чтобы удалялся весь текст который не подходит условию. Не знаю пробовал изменить, но не получается
Dim ra As Range, delra As Range
Application.ScreenUpdating = False
Удалить = Array("Астрахань*", "Волгоград*", "Рязань_*", "Саранск_*", "Итого*")
For Each ra In ActiveSheet.UsedRange.Rows
For Each word In Удалить
If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
End If
Next word
Next
If Not delra Is Nothing Then delra.EntireRow.Delete
Yukihiro вне форума Ответить с цитированием
Старый 22.11.2021, 09:07   #2
Aleksandr H.
2 the Nation Glory
Старожил
 
Аватар для Aleksandr H.
 
Регистрация: 27.05.2014
Сообщений: 3,226
По умолчанию

Код:
If Not ra.Find(word, , xlValues, xlPart) Is Nothing Then
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы.
Aleksandr H. вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление строк в таблице Word jus_de C# (си шарп) 0 17.11.2014 11:11
Добавление (удаление) строк в таблице inside9 Microsoft Office Excel 29 01.01.2012 21:31
Удаление строк в таблице excel Grghmelick Microsoft Office Excel 15 22.07.2011 18:11
Удаление строк в таблице maksim_serg Microsoft Office Word 5 30.04.2010 12:18
Удаление пустых строк в таблице Semen90 Microsoft Office Word 23 05.11.2009 20:51

Реклама для незарегистрированных, регистрация на форуме