Sub RemoveNotNum()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId ="KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
xOut =""
For i =1 To Len(Rng.Value)
xTemp =Mid(Rng.Value, i,1)
If xTemp Like "[0-9.]" Then
xStr = xTemp
Else
xStr =""
End If
xOut = xOut & xStr
Next i
Rng.Value = xOut
Next
End Sub