How would I modify the below to delete the rows in which the cells do not include 1? So if the cells contains "1,2,3" or "1" or "1,2" etc, I don't want the row deleted.
Code:
With wsNew
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
For i = lastRow To 2 Step -1
If .Cells(i, 5).Value <> "1" Then
Rows(i).Delete Shift:=xlUp
End If
Next i
End With