Number and text in cells - how to delete text?

[abberyfarm]

Hi there,

I have numbers and text in cells.

Would anybody know how I could delete the text in all the cells in the column?

Example

Excel Workbook
	G
2	100 kph
3	200 kph
Cross Reference

to this

Excel Workbook
	G
2	100
3	200
Cross Reference

thank you

 

[mathchick]

if it's always " kph" just do a search and replace on the column (or range)
ctrl+h and then " kph" w/o the quotes and replace with nothing.

 

[njimack]

Select the cells in question then run the below code...

Sub Delete_Text()
Dim c As Range
Dim i As Long
Dim x As String
Application.ScreenUpdating = False
For Each c In Selection
    For i = Len(c) To 1 Step -1
        x = Mid(c, i, 1)
            If Not x Like "#" Then c = Replace(c, x, "")
    Next i
Next c
    
Application.ScreenUpdating = True
End Sub