Flash fill does not fully work in this case

[lezawang]

Hi
I tried to use Flash Fill (ctrl + E) but did not work. Any idea how to use Flash fill to separate numbers from text in this case? Please see the table below. Thank you very much

Book2
	A	B	C
1	abc123	abc	123
2	123abc	123	abc
3	111aaaa	1111	aaaa
4	222hhh888	222888	hhh
5	hhh1hhh
6	1ddddd
7	xyz123hello
8
Sheet1

 

[maabadi]

Go and See this Link
How To Separate Text And Numbers From One Cell Into Two Columns?

AND use this UDF at that Page:

Public Function SplitText(pWorkRng As Range, pIsNumber As Boolean) As String
'Updateby Extendoffice
Dim xLen As Long
Dim xStr As String
xLen = VBA.Len(pWorkRng.Value)
For i = 1 To xLen
    xStr = VBA.Mid(pWorkRng.Value, i, 1)
    If ((VBA.IsNumeric(xStr) And pIsNumber) Or (Not (VBA.IsNumeric(xStr)) And Not (pIsNumber))) Then
        SplitText = SplitText + xStr
    End If
Next
End Function

 

[maabadi]

For Extract Number Second argument is True & for Text is False
Also Add Dim i as long to first of code