Hi Paul,

If there is no decimal

Function TXT(cel As Range)
Dim x As String, i As Integer, n
For i = 1 To Len(cel)
x = Asc(StrConv(Mid(cel, i, 1), vbLowerCase))
If x = 97 And x <= 122 Then
t = t & Mid(cel, i, 1)
End If
Next
TXT = t
End Function

Function NUMBER(cel As Range)
Dim x As String, i As Integer, n
For i = 1 To Len(cel)
x = Asc(StrConv(Mid(cel, i, 1), vbLowerCase))
If x = 49 And x <= 57 Then
n = n & Mid(cel, i, 1)
End If
Next
NUMBER = n * 1
End Function

isabelle

Le 2017-02-20 Ã* 18:23, Paul Doucette a écrit :
If I have sv14 in a cell, is there a formula I can use to copy the text
characters into one column and the number into another? The number of text
characters and number of numerical digits could vary. (however it is a
limited list of text characters that would proceed the digits. It would
always start with one of the following: b v h s d db e s sv sh c cv ch f pb
pk po code (yes "code" is one of the text strings) Thank you in advance!
Paul