Deleting contents from cell if text not a number

[vron1994]

Hi,

I am wanting some code which will loop through a column of text as such:

40
8
Lynton
8
22
Field
2
19B

<tbody>
</tbody>

deleting the cells which do not contain just numbers!

Any help would be appreciated!

Thanks

 

[Fluff]

Hi & welcome to MrExcel.
Do you want to delete the cells, or the entire row?

 

[Fluff]

If you want to delete the entire row & your numbers are real numbers try

Sub c()
Range("A:A").SpecialCells(xlConstants, xlTextValues).EntireRow.Delete
End Sub

Also, if you have blank cells this code will leave them

 

[vron1994]

If you want to delete the entire row & your numbers are real numbers try

Sub c()
Range("A:A").SpecialCells(xlConstants, xlTextValues).EntireRow.Delete
End Sub

Also, if you have blank cells this code will leave them

Hi, thanks for replying!

I am just looking to clear the contents of the cell, not actually delete anything

Also I am not sure what you mean by real numbers!

Thanks

 

[Fluff]

In that case try this on a copy of your data

Sub c()
Range("A:A").SpecialCells(xlConstants, xlTextValues).ClearContents
End Sub