Separate text numbers and characters into coulmns

Special-K - just the same: ACS | 30 | X | 6

Thanks

Hi Tellm

With the strings in A1, down, try:

Sub SplitString()
Dim r As Range, rC As Range
Dim vArr As Variant

Set r = Range("A1", Range("A1").End(xlDown))
With CreateObject("VBScript.RegExp")
    .Pattern = "(\d+|[a-zA-Z]+|[^0-9a-zA-Z]+)"
    .Global = True
    For Each rC In r
        If rC.Text <> "" Then
            vArr = Split(Mid(.Replace(rC.Text, Chr(1) & "$1"), 2), Chr(1))
            rC.Offset(, 1).Resize(1, UBound(vArr) + 1) = vArr
        End If
    Next rC
End With
End Sub

The code splits the text displayed in the cells and writes the result in the cells to the right.

Lecxe - this is perfect, many many thanks.

You're welcome. Thanks for the feedback.