How to Extract Text Characters from Alphanumeric Strings in a Range or Cell Value

Excel VBA Macro to Extract Text from Alphanumeric Strings in a Range or Cell

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.IsText(Mid(Cells(i, 1), j, 1) + 0) = True Then
Cells(i, 2) = Cells(i, 2) & Mid(Cells(i, 1), j, 1)
End If
Next j

Next i
End Sub

Output :

String	Extracted Text
A1E5I9O15U	AEIOU

--------------------------------------------------------------------------------------------------------
Thanks, TAMATAM ; Business Intelligence & Analytics Professional
--------------------------------------------------------------------------------------------------------