Deleting rows based on the cell length

[etrader58]

I have a one-column excel spreadsheet (but with many rows). I need a macro to delete the entire row (not just making it empty) if the cell content is shorter than 5 or longer than 40 characters.

Thanks for your help

 

[VoG]

Try

Sub DelRw()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    With Range("A" & i)
        If Len(.Value) < 5 Or Len(.Value) > 40 Then .Delete shift:=xlShiftUp
    End With
Next i
Application.ScreenUpdating = True
End Sub

 

[crimson_b1ade]

you can also use a helper column using the =LEN(A1) function. Then sort the results then delete accordingly.