Friday, 8 November 2013

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

No comments:

Post a Comment

Follow Me by Email

ExcelKingdom-Popular Posts

ExcelKingdom-Random Posts