Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel (архив)
Страницы: 1
RSS
Удалить каждую 2,3,4,5 - строки в массиве
 
#1
07.03.2011 11:58:39
Есть такая структура данных.  
 
1 строка  
2 не нужна  
3 не нужна  
4 не нужна  
5 не нужна  
6 строка  
7 не нужна  
8 не нужна  
9 не нужна  
10 не нужна    
 
Нужно последовательно удалить каждую 2,3,4,5 - строки  
Как такое сделать?  
 
Спасибо
 
 
 
#2
07.03.2011 12:18:57
2 - это количество блоков. Можно вероятно высчитать от общего количества строк, но нужно видеть файл.  
 
 
Sub tt()  
Dim i As Byte, x As Byte  
For i = 1 To 2  
For x = 1 To 4  
Rows(i + 1).Delete  
Next x, i  
End Sub
 
 
 
#3
07.03.2011 12:23:41
Вариант:  
Public Sub www()  
   Dim i&, r As Range  
   Set r = Rows(2)  
   For i = 3 To [a65536].End(xlUp).Row + 5
       If i Mod 5 <> 0 Then Set r = Union(r, Rows(i))  
   Next  
   r.Delete  
End Sub
Я сам - дурнее всякого примера! ...
 
 
 
#4
07.03.2011 13:07:04
баз VBA
 
 
 
#5
07.03.2011 21:26:06
Без VBA удалить не получится :-)
 
 
 
#6
08.03.2011 07:51:03
В данном случае не удаление, а выделение того, что нужно. После этого можно заменить данные.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#7
08.03.2011 12:58:47
вот в этой теме http://www.planetaexcel.ru/forum.php?thread_id=8127  
файл http://www.planetaexcel.ru/docs/forum_upload/post_47379.xls
 
 
 
#8
09.03.2011 10:51:29
=ОСТАТ(СТРОКА(1:1)-1;5)
 
 
 
#9
09.03.2011 11:33:46
Sub del2_5()  
Dim i  
For i = 2 To Cells(Rows.Count, 1).End(xlUp) \ 5 + 2  
   Range(Cells(i, 1), Cells(i + 3, 1)).EntireRow.Delete  
Next  
End Sub
Живи и дай жить..
 
 
 
#10
09.03.2011 19:40:30
Sub delrows()  
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row\4  
Rows(i + 1 & ":" & i + 4).Delete  
Next  
End Sub
 
 
 
#11
09.03.2011 20:17:57
Братья по маразму... Писюнами меряемся:-) И правда, оно того стоит. Каждый новый пост лучше(ну уж короче, это точно) предыдущего. С уважением, ребят! Правда, красиво!
Я сам - дурнее всякого примера! ...
 
 
 
Страницы: 1
Читают тему
Наверх