EXTRACT TEXT FROM ALPHANUMERIC STRING IN EXCEL WITH VBA

PRESS ALT+F11
CLICK INSERT
MODULE
THEN PASTE THIS CODE


FOR TEXT SEPRATION

Function TextOnly(rng As Range) As String

Dim intChrCnt As Integer
    For intChrCnt = 1 To Len(rng)
        If IsNumeric((Mid$(rng, intChrCnt, 1))) = False Then
            TextOnly = TextOnly & Mid$(rng, intChrCnt, 1)
        End If
    Next
End Function

Extract number from alphanumeric string in excel

PRESS ALT+F11
CLICK INSERT
MODULE
THEN PASTE THIS CODE



Function GetNumber(s As String)
    Dim j As Long
    While Not IsNumeric(Left(s, 1))
        If Len(s) <= 1 Then
            Exit Function
        Else
            s = Mid(s, 2)
        End If
    Wend
    GetNumber = Val(s)
End Function