Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
VBA удаление строк по значению столбца
 
#1
18.03.2016 15:11:43
Почему-то удаляет не все строки с ненужными значениями. Строки с нужным значением "Текст" должен оставлять все, а некоторые почему-то удаляются.
Код
For iRow = 2 To 100
    If Cells(iRow, "C") <> "Текст" Then
           Rows(iRow).Delete Shift:=xlUp
    End If
 Next iRow


кнопка оформления кода в сообщении - <...> [МОДЕРАТОР]
 
 
 
#2
18.03.2016 15:15:03
Ну вообще цикл в этом случае надо делать снизу
Код
For iRow = 100 To 2 Step -1
Плюс есть готовые коды - можете подстроить под себя: Как удалить строки по условию?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#3
18.03.2016 15:39:47
Спасибо. А какая разница, сверху или снизу?
Код
For iRow = 32 To 2 Step -1
    If Cells(iRow, "C") <> "Текст1" Or Cells(iRow, "C") <> "Текст2" Then
          Cells(iRow, "C").Select
          Rows(iRow).Delete Shift:=xlUp
    End If
 Next iRow

Когда условие не выполняется, программа в него все равно заходит и удаляет строку  (Cells(iRow, "C") = "Текст1"). В результате удалены все строки, кроме первой.
Изменено: Проводка - 18.03.2016 15:49:33
 
 
 
#4
18.03.2016 15:44:02
Код
For iRow = 32 To 2 Step -1 
    If Cells(iRow, "C") <> "Текст1" Or Cells(iRow, "C") <> "Текст2" Then 
          Cells(iRow, "C").Select 
          Rows(iRow).Delete Shift:=xlUp 
    End If 
 Next iRow
 
 
 
#5
18.03.2016 15:47:06
Зачем сообщение #4? Исправьте оформление в третьем.
По вопросу: при удалении меняется номер текущей строки и цикл "перескакивает".
 
 
 
Страницы: 1
Наверх