Удаление строк по значению ячеек диапазона

[kuklp]

У Вас там W2 пустая. Из-за этого. Так:

Sub test()
    With Range([W2], [W65536].End(xlUp))
        .Parent.UsedRange.Value = .Parent.UsedRange.Value
        .Replace "0", "", 1
        On Error Resume Next
        .SpecialCells(12).EntireRow.Delete
    End With
End Sub

[strannick]

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

У Вас там W2 пустая. Из-за этого. Так:

Sub test()
    With Range([W2], [W65536].End(xlUp))
        .Parent.UsedRange.Value = .Parent.UsedRange.Value
        .Replace "0", "", 1
        On Error Resume Next
        .SpecialCells(12).EntireRow.Delete
    End With
End Sub

А так он вообще все удалил, все строки. Только шапка осталась.

[kuklp]

Мой косяк. Надо:

.SpecialCells(4).EntireRow.Delete

[strannick]

Во, заработало. Спасибо большое!!!
Не подскажете, как добавить еще удаление строк, если в столбце Т время (часы) больше 0, и меньше 9? Если не трудно.

[kuklp]

Sub www()
    With ActiveSheet.UsedRange.Columns("T")
        .AutoFilter 1, ">=0", 1, "<=9", 0
        .Offset(1).SpecialCells(12).EntireRow.Delete
        .AutoFilter
    End With
End Sub

[strannick]

Сила!!! Легко и просто. Огромнейшее СПАСИБО!!!

[strannick]

И еще возник вопрос:
В столбце А даты по возрастанию. В определенных ячейках вручную задается диапазон дат, скажем ячейки "с I1 по K1".
Как модернизировать код:

Sub www()
With ActiveSheet.UsedRange.Columns("T")
.AutoFilter 1, ">=0", 1, "<=9", 0
.Offset(1).SpecialCells(12).EntireR ow.Delete
.AutoFilter
End With
End Sub

чтобы удалялись строки с датой, большей чем указана в ячейке K1? И применим ли он в этом варианте?
Да, не указал: даты в формате dd\mm\yyyy