Remove rows that contain numbers

[fari1]

hi, i've in column data that contain text and numbers together, i want to delete those cells that contain numbers as well alongwith text, i just want to keep those cells that contain text.
would appreciate any help

 

[Rick Rothstein]

Give this code a try...

StartRow = 2
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For X = LastRow To StartRow Step -1
  If Cells(X, "A").Value Like "*#*" Then Cells(X, "A").EntireRow.Delete
Next

Note that StartRow (where your data starts in Column A) and LastRow should be Dim'med as Long.

 

[fari1]

hi rick,its working, but taking too long, can't get some quick code?

 

[Rick Rothstein]

hi rick,its working, but taking too long, can't get some quick code?

Does this change help any...

StartRow = 2
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
With Application
  CurrentScreenUpdating = .ScreenUpdating
  CurrentCalculate = .Calculation
  CurrentEnableEvents = .EnableEvents
  .ScreenUpdating = False
  .Calculation = xlCalculationManual
  .EnableEvents = False
End With
For X = LastRow To StartRow Step -1
  If Cells(X, "A").Value Like "*#*" Then Cells(X, "A").EntireRow.Delete
Next
With Application
  .ScreenUpdating = CurrentScreenUpdating
  .Calculation = CurrentCalculate
  .EnableEvents = CurrentEnableEvents
End With

The CurrentScreenUpdating, CurrentCalculate and CurrentEnableEvents should also be Dim'med as Long.

 

[fari1]

yes, its working way fast, thanks so much