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:

[TABLE="width: 81"]
<tbody>[TR]
[TD="align: right"]40[/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD]Lynton[/TD]
[/TR]
[TR]
[TD="align: right"]8[/TD]
[/TR]
[TR]
[TD="align: right"]22[/TD]
[/TR]
[TR]
[TD]Field[/TD]
[/TR]
[TR]
[TD="align: right"]2[/TD]
[/TR]
[TR]
[TD]19B
[/TD]
[/TR]
</tbody>[/TABLE]
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