Выбор / удаление определенных строк в зависимости от значения

Question

Я написал этот скрипт для удаления строк, которые содержат значение в столбце C, отличное от «201103». Когда я использую его для жирный , он работает, но когда я использую его с .Delete, он ведет себя странно и не работает должным образом.

Я пытался получить выделенные строки, а затем использовал UNION для его объединения и использовал .SELECT (несколько), чтобы я мог удалить его вручную, но не уверен, как это сделать.

Sub test()

   Dim Cell As Range

   For Each Cell In Range("C2:C2308").Cells
       If (Cell.Value <> "201103" And Cell.Value <> "") Then
           Cell.EntireRow.Font.Bold = True
           'Cell.EntireRow.Delete
       End If
   Next Cell

End Sub

Кто-нибудь знает, как это исправить, чтобы он нормально работал?

Answer 1

Попробуйте это:

Sub test()
'

With ActiveSheet
    .AutoFilterMode = False
    With Range("C2", Range("C" & Rows.Count).End(xlUp))
        .AutoFilter 1, "<>201103"
        On Error Resume Next
        .Offset(1).SpecialCells(12).EntireRow.Delete
    End With
    .AutoFilterMode = False
End With
End Sub