Delete Rows Where Column A Does Not Equal a Number or Numeric Value

[ExcelBean]

I thought I would be able to find a macro for this but could not.

Pretty straight forward. "Delete Rows Where Column A Does Not Equal a Number or Numeric Value"

Anyone have a solution?

Thanks!

 

[kweaver]

How about:

Sub DelNonNums()
Dim LR As Long, i As Integer
LR = Cells(Rows.Count, 1).End(xlUp).Row
For i = LR To 1 Step -1
 If Not (IsNumeric(Cells(i, 1))) Then
 Rows(i).EntireRow.Delete
 End If
Next i
End Sub

 

[Rick Rothstein]

This might work the way you want...

Sub DeleteNonNumber()
  On Error Resume Next
  Columns("A").SpecialCells(xlConstants, xlTextValues).EntireRow.Delete
  On Error GoTo 0
End Sub