Snasui Excel Forum

Code: Select all

Sub deletePS()

lastrow = Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row

For i = 2 To lastrow

If Rows(i).Find("PS") Then
Rows(i).Delete

End If

Next i

End Sub

Code: Select all

Sub deletePS()

lastrow = Sheets("Sheet1").Cells(Rows.Count, 1).End(xlUp).Row

For i = lastrow To 2 Step -1
    If Left(Range("A" & i).Value, 2) = "PS" Then
        Range("A" & i).EntireRow.Delete
    End If
Next i

End Sub