Delete Rows Starting With Specified Number

[ashah]

I have found this code from another thread on this forum for deleting the row that contains a cell (in column B) that begins with a specific letter. I would like to perform the same task for numbers. Simply replacing the C* with 2* has not worked.

Any help is greatly appreciated.

Sub DeleteRows()
Dim i As Long
i = Range("B" & Rows.Count).End(xlUp).Row
With Range("B1:B" & i)
If Application.WorksheetFunction.CountIf(Columns(2), "C*") > 0 Then
.AutoFilter field:=1, Criteria1:="C*"
.Offset(1).Resize(.Rows.Count - 1, 1).EntireRow.Delete
.AutoFilter
End If
End With
End Sub

 

[taurean]

Not thoroughly tested:

Sub DelRows()
With Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    .Replace "2*", vbNullString, xlWhole, xlByRows, False
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
End With
End Sub

 

[ashah]

Not thoroughly tested:

Sub DelRows()
With Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row)
    .Replace "2*", vbNullString, xlWhole, xlByRows, False
    On Error Resume Next
    .SpecialCells(xlCellTypeBlanks).EntireRow.Delete
    On Error GoTo 0
End With
End Sub

Works perfectly, thanks!