Макрос для удаления строки

[bin_2]

Доброго времени суток!
Помогите написать макрос. Задача стоит следующая. Есть таблица с несколько сот тысяч строками. Первая колонка - значение ID строки. Нужно удалить строки в определенных интервалах. Например нужно удалить строки с 28481 по 29163, далее с 30638 по 31320 и т.д. Вроде бы ничего сложного, но никак у меня не хочет работать.

Заранее спасибо

[Hugo121]

Вариант чтоб не сильно думать и не много писать - цикл по строкам снизу вверх, проверяете ID по условию select case - если есть в диапазоне, то строка удаляется.

Sub tt()
    Dim i&
    Application.ScreenUpdating = False
    For i = [a1].CurrentRegion.Rows.Count To 1 Step -1
        Select Case Cells(i, 1).Value
        Case 28481 To 29163, 30638 To 31320
            Rows(i).Delete
        End Select
    Next
    Application.ScreenUpdating = True
End Sub

Если напрягает скорость - цикл по массиву из диапазона (не по диапазону!), ставим единички в созданный массив аналогичной высоты, выгружаем его рядом в свободный столбец, с помощью columndifferences удаляем сразу всё.
Вот как тут (см. в конце пост SAS888, хотя и ZVI тоже делал по такому алгоритму): http://www.programmersforum.ru/showthread.php?t=145071

[Deliriousss]

Ребята, очень нужна ваша помощь, никак не получается самой справиться.
Нужно написать макрос, который будет очищать строку, в одной из ячеек которой стоит курсор. Строка, естественно, может быть абсолютно любая.
Помогите пожалуйста. Заранее благодарна.

[IgorGO]

sub ClearRow
  activecell.entirerow.clearcontents
end sub

и традиционно:
тема: макрос для удаление произвольной строки
в тексте
макрос, который будет очищать строку

видимо, Вам по-барабану удалять строку или очищать строку. я предложил макрос, который будет очищать строку.

[Deliriousss]

Сообщение от IgorGO

sub ClearRow
  activecell.entirerow.clearcontents
end sub

и традиционно:
тема: макрос для удаление произвольной строки
в тексте
макрос, который будет очищать строку

видимо, Вам по-барабану удалять строку или очищать строку. я предложил макрос, который будет очищать строку.

нет-нет, мне нужно именно очистить. описалась.

[IgorGO]

да, извините, тема не Ваша, будем считать, что я угадал с макросом.

работает?

[g4all]

Есть макрос

PHP код:

Sub Udalenie_Pustyh_Strok()  
Dim r As Long, FirstRow As Long, LastRow As Long  
FirstRow = ActiveSheet.UsedRange.Row  
LastRow = ActiveSheet.UsedRange.Rows.Count - 1 + ActiveSheet.UsedRange.Row  
For r = LastRow To FirstRow Step -1  
If Application.CountA(Rows(r)) = 0 Then  
Rows(r).Delete  
End If  
Next r  
End Sub 


Нужно в него еще дописать формулу =ЕСЛИ(V12="";"";AB12-V12) на весь столбец AL, формат ячейки "время"
И чтобы высота рядков была 14.

Помигите пожалуйста.
Спасибо.

[Hugo121]

Включите рекордер, добавьте формулу и "высоту рядков", выключите рекордер.
Добавьте полученные строки в этот макрос. Вероятно нужно будет использовать FirstRow и LastRow.
А как конкретно должна выглядеть формула - непонятно. Неужели именно так, как написано?

[IgorGO]

application.intersect(ActiveSheet.UsedRange, [al12:al55555]).formular1c1 = "=if(rc22="""","""",rc28-rc22)"