Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Как удалить строки по условию
 
#1
04.02.2013 11:40:49
Если а10 - пусто, то удалить строку 10
перейти в а11, если а11 пусто, то удалить строку 11
а вот если а10 и а11 не пусто, то ничего не делать, а просто проверять следующее
И так до а700


Опишите это на языке макроса пожалуйста. Заранее огромное спасибо!
 
 
 
#2
04.02.2013 11:58:28
как то так

Код
for i = 10 to 700
   if cells(i,1).value ="" then
      rows(i).delete
   end if
next i
 
 
 
#3
04.02.2013 12:04:08
Цитата
Dmitriy_81 пишет:
как то так
Dmitriy_81, ну хоть проверили бы...
такой "кактотак" может половину строк пропустить.
фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг
 
 
 
#4
04.02.2013 12:04:39
Описать то описали... Но не учли, что при удалении строки 10 на её место встанет строка 11. И когда Вы будете анализировать строку 11 - на самом деле это будет бывшая строка 12... :(
т.е. нужно или корректировать что смотрим, или (что проще) идти снизу вверх

for i = 700 to 10 step -1
 
 
 
#5
04.02.2013 12:11:00
Согласен, поторопился немного :(
 
 
 
#6
04.02.2013 12:13:19
А у меня в таком виде макрос не запускается.. =(
С исправлением от Hugo.
Видимо заголовок какой-то должен быть.

if cells(i,1).value ="" then    - горит красным.

Уж простите, новичок совсем.
 
 
 
#7
04.02.2013 12:33:41
Цитата
Sub vsjeravnokakoenazvanie()
Application.ScreenUpdating = False
   For i = 700 To 10 Step -1
       If Cells(i, 1).Value = "" Then
           Rows(i).Delete
       End If
   Next i
Application.ScreenUpdating = True
End Sub

Убрать в красных строках символ (квадрат скорее всего) перед Value - это косяк движка форума!
Ну и ещё полезно отключить обновление экрана - чтоб не мигало и быстрее работало.
На практике ещё может понадобиться отключать пересчёт и события... Ну это уже по ситуации.
 
 
 
#8
04.02.2013 14:32:28
Еще можно статью покурить: Как удалить строки по условию?
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#9
05.02.2013 15:10:06
На основании изученного сделал ещё один макрос. Проверьте пожалуйста, что-то не работает!
Цитата
Sub очистка()
Application.ScreenUpdating = False
For i = 700 To 10 Step -1
If Cells(i, 6).Value = "снеговик", "марковка"
Then Сell(i.6).Clear
End If
Next i
Application.ScreenUpdating = True
End Sub

Задача в столбце f или 6 очистить ячейку, если в ней присутствует слово снеговик или марковка.
Какие синтаксические ошибки я допустил? Спасибо!
 
 
 
#10
05.02.2013 15:15:35
1.If Cells(i, 6).Value = "снеговик", "марковка"
Then
так не пойдёт. Проверяйте сперва на одно значение, затем на второе. Способов много, например вложенные IF, или Select Case True
Ну и Then зачем перенесли?
1а - грамматику тоже нужно учитывать  :)
2. Then Сell(i.6).Clear - запятая!
10. Ну если не удаляете строку, а очищаете - нет необходимости идти снизу вверх.
Изменено: Hugo - 05.02.2013 15:24:14
 
 
 
#11
05.02.2013 15:37:11
Цитата
Sub очистка()
Application.ScreenUpdating = False
For i = 10 To 700
If Cells(i, 6).Value = "снеговик" Then
Сell(i, 6).Clear
End If
Next i
Application.ScreenUpdating = True
End Sub


Подправил! Вот только про "запятая" не соображу,
Ведь у вас после "Rows(i).Delete" запятых нет.
Ну и не работает! После запуска выскакивает окошко..
Run-time error 13.
Кстати, что оно означает? =)
Изменено: GacRux - 05.02.2013 15:38:37
 
 
 
#12
05.02.2013 15:41:22
Сell(i.6) - тут должна быть не точка, а запятая! Уже исправились правда....
Ну и "s" забыли - потому и Run-time error 13.
Изменено: Hugo - 05.02.2013 15:42:00
 
 
 
#13
05.02.2013 16:14:35
О чудо, действительно всё заработало!
Вот только один момент. Очищается как значение в ячейке, так и закрашенные границы. Возможно ли оставить закрашенные границы? Таблица разлинована.
 
 
 
#14
05.02.2013 16:34:21
Сells(i, 6).ClearContents
 
 
 
#15
05.02.2013 19:20:43
Всем спасибо! Со всеми проблемами справился!
 
 
 
#16
05.02.2013 20:12:51
off: но если кто-то напишет в ячейке не "мАрковка", а "мОрковка" то макрос это не обнаружит и ячейку не очистит.
 
 
 
Страницы: 1
Наверх