Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Как удалить каждую четную или нечетную строку?
 
#1
14.04.2008 12:54:19
Ребята помогите с удалением строк.В таблице много строк с ненужной информацией,на счастье такие строки по счету "нечетные" или "нечетные".Как их удалить?
 
 
 
#2
15.04.2008 16:16:42
Можно такой способ, немного длинный.  
Вводим колонку(например столбец А), с номерами строк.Затем пишем формулу  
=IF(MOD(A1;2)=1;1;0), протягиваем ее на все строки, отфильтровываем 0 или 1(нечетные или четные) и удаляем ненужное.
 
 
 
#3
15.04.2008 16:20:16
Сорри, можно, конечно, просто функцию mod
 
 
 
#4
29.05.2010 18:11:13
{quote}{login=Lelya}{date=15.04.2008 04:16}{thema=}{post}Можно такой способ, немного длинный.  
Вводим колонку(например столбец А), с номерами строк.Затем пишем формулу  
=IF(MOD(A1;2)=1;1;0), протягиваем ее на все строки, отфильтровываем 0 или 1(нечетные или четные) и удаляем ненужное.{/post}{/quote}  
 
А можно как-то потом автоматически выделить четные/нечетные строки?
 
 
 
#5
29.05.2010 18:16:13

http://www.planetaexcel.ru/tip.php?aid=43
 
 
 
#6
29.05.2010 18:24:31
{quote}{login=Dominique}{date=29.05.2010 06:11}{thema=Re: }{post}{quote}{login=Lelya}{date=15.04.2008 04:16}{thema=}{post}Можно такой способ, немного длинный.  
Вводим колонку(например столбец А), с номерами строк.Затем пишем формулу  
=IF(MOD(A1;2)=1;1;0), протягиваем ее на все строки, отфильтровываем 0 или 1(нечетные или четные) и удаляем ненужное.{/post}{/quote}  
 
А можно как-то потом автоматически выделить четные/нечетные строки?{/post}{/quote}  
можно и автоматически макросом    
но пример тоже нужно  
если без примера  
Sub test()  
   Range("2:2,4:4,6:6,8:8,10:10").Delete Shift:=xlUp  
   End Sub  
 
выбирает строки с 1 по 10 и удаляет четные  
если будет пример то можно циклом выбрать все четные или нечетные до конца диапазона и удалить
Спасибо
 
 
 
#7
29.05.2010 18:57:26
{quote}{login=Юрий М}{date=29.05.2010 06:16}{thema=}{post}

http://www.planetaexcel.ru/tip.php?aid=43

{/post}{/quote}  
 
Там только про форматирование, а мне удалить потом нужно...
 
 
 
#8
29.05.2010 18:58:29
{quote}{login=R Dmitry}{date=29.05.2010 06:24}{thema=Re: Re: }{post}{quote}{login=Dominique}{date=29.05.2010 06:11}{thema=Re: }{post}{quote}{login=Lelya}{date=15.04.2008 04:16}{thema=}{post}Можно такой способ, немного длинный.  
Вводим колонку(например столбец А), с номерами строк.Затем пишем формулу  
=IF(MOD(A1;2)=1;1;0), протягиваем ее на все строки, отфильтровываем 0 или 1(нечетные или четные) и удаляем ненужное.{/post}{/quote}  
 
А можно как-то потом автоматически выделить четные/нечетные строки?{/post}{/quote}  
можно и автоматически макросом    
но пример тоже нужно  
если без примера  
Sub test()  
   Range("2:2,4:4,6:6,8:8,10:10").Delete Shift:=xlUp  
   End Sub  
 
выбирает строки с 1 по 10 и удаляет четные  
если будет пример то можно циклом выбрать все четные или нечетные до конца диапазона и удалить{/post}{/quote}  
 
Спасибо. На досуге испробую. Надо прайс "причесать"
 
 
 
#9
29.05.2010 19:16:25
Public Sub qwe()  
Dim i As Integer  
For i = 320 To 1 Step -1 'вместо 320 последнюю строку Вашей таблицы.  
If i Mod 2 = 0 Then '0 - Для четных. Для нечетных 1  
Rows(i).Delete  
End If  
Next  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#10
29.05.2010 19:26:59

По поводу последней строки сюда: http://www.planetaexcel.ru/forum.php?thread_id=16434

Я сам - дурнее всякого примера! ...
 
 
 
#11
31.05.2010 22:58:15
{quote}{login=KuklP}{date=29.05.2010 07:16}{thema=}{post}Public Sub qwe()  
Dim i As Integer  
For i = 320 To 1 Step -1 'вместо 320 последнюю строку Вашей таблицы.  
If i Mod 2 = 0 Then '0 - Для четных. Для нечетных 1  
Rows(i).Delete  
End If  
Next  
End Sub{/post}{/quote}  
 
Попробовал. Стирает. Сильно! :-)))
 
 
 
Страницы: 1
Читают тему
Наверх