For Each Loop to Delete row w/ value (Loop Backwards)?

[DougStroud]

I am just curious if a For Each loop can be instructed to loop starting the bottom of the range. I know that a For To Loop can handle looping from the bottom up, just wondering if this is possible?

Sub Filterout()
Dim c As Range
Dim rng As Range
Dim i As Long
Dim lrow As Long
Dim counter As Integer
lrow = Cells(Rows.Count, 3).End(xlUp).Row
Set rng = Range("c2:c36")

For Each c In rng
If Left(c.Value, 1) <> "~~" Then
c.EntireRow.Delete
End If
Next c

 

[Boller]

This does not involve a loop, but perhaps you would like to check the run-time using a different approach :-

Sub Filterout()
Dim rng As Range
[C:C].Insert
Set rng = [C2:C15500]
With rng
    .FormulaR1C1 = "=if(rc[1]<>""~~"",""d"",1)"
    .Value = .Value
    .EntireRow.Sort Key1:=[C1], Order1:=xlAscending, Header:=xlNo
    On Error Resume Next
    .SpecialCells(xlCellTypeConstants, 2).EntireRow.Delete
    On Error GoTo 0
    .EntireColumn.Delete
End With
End Sub

Try testing where every other line starts with ~~