Extract numbers from a string

[legendsaga]

Hi everyone

I want to extract all the numbers from a string and get them separated by columns or at least separated by comma

for example

the person left the cellphone 45213204456, job 3489334 house 9888234 mother 452103210, value to pay $25

result
[TABLE="width: 500"]
<tbody>[TR]
[TD]45213204456[/TD]
[TD]3489334[/TD]
[TD] 9888234[/TD]
[TD]452103210[/TD]
[TD]25[/TD]
[TD][/TD]
[/TR]
</tbody>[/TABLE]

or

45213204456,3489334,9888234,452103210,25

I would be really grateful for the help

 

[Rick Rothstein]

Assuming your data is in Column A starting at Row 1, give this macro a try...

[table="width: 500"]
[tr]
	[td]Sub ExtractNumber()
  Dim R As Long, X As Long, Arr As Variant
  Arr = Range("A1", Cells(Rows.Count, "A").End(xlUp))
  For R = 1 To UBound(Arr)
    For X = 1 To Len(Arr(R, 1))
      If Mid(Arr(R, 1), X, 1) Like "[!0-9]" Then Mid(Arr(R, 1), X) = " "
    Next
    Arr(R, 1) = Replace(Application.Trim(Arr(R, 1)), " ", ", ")
  Next
  Range("B1").Resize(UBound(Arr)) = Arr
End Sub[/td]
[/tr]
[/table]