Taking out everything but the numbers

[mizunobill]

Is there a way to take all characters except numbers out of a string. Example:
47/21.25-16 LBT would convert to 47212516
af 4X10.5-4 // 18 would go to 4105418

Thanks for your help!

 

[MrKowz]

Try the following. It will take all data in column A, and place only the numbers within into column B.

Public Sub StripAlphaNumeric()
Dim str     As String, _
    iPos    As Long, _
    i       As Long, _
    LR      As Long
    
LR = Range("A" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To LR
    str = ""
    For iPos = 1 To Len(Range("A" & i).Value)
        If Mid$(Range("A" & i).Value, iPos, 1) Like "#" Then
            str = str & Mid$(Range("A" & i).Value, iPos, 1)
        End If
    Next iPos
    Range("B" & i).Value = str
Next i
Application.ScreenUpdating = True
End Sub