open VBE (Visual Basic Editor) with ALT+F11. In the VBA Project Explorer right click and add a Module.
Copy and paste the below code and hit F5 to run the macro.
Option Explicit
Sub GetNumbers()
Dim uColumn As String
' if your data is in a different column then change A to some other letter(s)
uColumn = "A"
Dim i As Long, j As Long, r As Range
For i = 1 To Range(uColumn & Rows.Count).End(xlUp).Row
Set r = Range(uColumn & i)
Dim tmpStr As String
tmpStr = vbNullString
For j = 1 To Len®
If IsNumeric(Right(Left(r, j), 1)) Then tmpStr = tmpStr & Right(Left(r, j), 1)
Next j
r.NumberFormat = "@"
r = tmpStr
Next i
End Sub
There's a variable named uColumn. It has A currently assigned as the column. If your data sits in a different column then change from A to your column letter(s)
Hope this helps
source: https://superuser.com/questions/649475/extract-numbers-from-cells-containing-mixed-alpha-numeric-strings
εμενα μου επαιξε λιγο που δοκιμασα, αλλα το παραδειγμα μου ηταν απλο.