How to Extract Numbers from Alphanumeric Strings from a Range or Cell Value

Excel VBA Macro to Extract Only Numbers From Text String from a Range or Cell Value

Sub ExtractNumbers()

Dim i As Integer

Dim j As Integer

On Error Resume Next

For i = 2 To 10                       'Rows Having Alpha Numeric Strings

If Cells(i, 1) = "" Then Exit For

For j = 1 To Len(Cells(i, 1))

If WorksheetFunction.IsNumber(Mid(Cells(i, 1), j, 1) + 0) = False 
Then GoTo Jnext:

Cells(i, 2) = Cells(i, 2) & Mid(Cells(i, 1), j, 1)

Jnext:

Next j

Next i

End Sub

Output :

String	Extracted Numbers
A1E5I9O15U	15915

Thanks, Tamatam