Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

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

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

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 24.02.2013, 11:45   #1
Артл
Пользователь
 
Регистрация: 16.08.2010
Сообщений: 66
По умолчанию удаление строк

Здравствуйте, подскажите пожалуйста, как в таблице удалить строки с конкретными значениями в ячейках
Артл вне форума Ответить с цитированием
Старый 24.02.2013, 12:12   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

А поискать в Гугле или Яндексе не пробовали?

http://excelvba.ru/code/ConditionalRowsDeleting
EducatedFool вне форума Ответить с цитированием
Старый 24.02.2013, 13:37   #3
SAS888
Старожил
 
Аватар для SAS888
 
Регистрация: 05.12.2007
Сообщений: 4,180
По умолчанию

Как частный, но достаточно распространенный случай, если требуется удалить строки, содержащие определенные значения в одном столбце, можно применить:
Код:
Sub DelRows()
    Dim x As Range, txt As String: Application.ScreenUpdating = False
    txt = "qq" 'значение, которое будем искать
    Set x = [A:A].Find(txt, , , 1)
    If x Is Nothing Then Exit Sub
    [A:A].ColumnDifferences(x).EntireRow.Hidden = True
    Cells.SpecialCells(xlCellTypeVisible).EntireRow.Delete
    Rows.Hidden = False
End Sub
Преимущество в отсутствии явных циклов. При желании, на основе данного кода, можно сделать поиск по нескольким столбцам нескольких значений, входящих полностью, либо частично.
Чем шире угол зрения, тем он тупее.
SAS888 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Удаление строк из БД katerina_lili C# (си шарп) 2 09.11.2012 17:08
Удаление из строк Михаил_444 Паскаль, Turbo Pascal, PascalABC.NET 1 14.11.2011 21:23
Удаление строк Trimbl Microsoft Office Excel 13 18.10.2010 13:19
перенос строк удаление ненужных строк HelperAwM Microsoft Office Excel 5 26.06.2010 18:42
Удаление строк из БД Danilka БД в Delphi 12 14.04.2010 21:27