The fastest way to delete rows is provided by Excel's AutoFilter feature: : AutoFilter « Excel « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Excel
3. AutoFilter

The fastest way to delete rows is provided by Excel's AutoFilter feature:

 
     Sub DeleteRows3()
         Dim lLastRow As Long       'Last row
         Dim rng As range
         Dim rngDelete As range
         'Freeze screen
         Application.ScreenUpdating = False
         'Insert dummy row for dummy field name
         Rows(1).Insert
         'Insert dummy field name
         range("C1").value = "Temp"
         With ActiveSheet
             .UsedRange
             lLastRow = .cells.SpecialCells(xlCellTypeLastCell).row
             Set rng = range("C1", cells(lLastRow, "C"))
             rng.AutoFilter Field:=1, Criteria1:="Mangoes"
             Set rngDelete = rng.SpecialCells(xlCellTypeVisible)
             rng.AutoFilter
             rngDelete.EntireRow.delete
             .UsedRange
         End With
     End Sub

 

Related examples in the same category