разделение данных в ячейках

[Viper_FMX]

Здравствуйте.

Может где-то и есть такая тема - не успел все просмотреть...
Но вопрос в следующем:
В одной ячейке в 2007 екселе есть такое наполнение :
of anodic coatings 492, 992, 994 или Acidified salt spray test 1037.
Подобные значения в столбце A. Необходимо разделить цифры и слова так, чтобы в столбце А остались только слова, а в столбце B - только цифры. Т.е. осуществить разделение.

Подскажите - как это сделать, т.к. значений таких чрезвычайно много.

[Hugo121]

Не знаю, как стандартными функциями, но с помощью UDF можно.
Вторую функцию можно немного поменять под себя, например убрать запятые.

Public Function ExtractNumber(S As String)
Dim i As Integer, str As String
For i = 1 To Len(S)
If InStr(1, "1234567890,", Mid(S, i, 1)) <> 0 Then str = str & Mid(S, i, 1)
Next
ExtractNumber = str
End Function

Public Function ExtractString(S As String)
Dim i As Integer, str As String
For i = 1 To Len(S)
If InStr(1, "QWERTYUIOPASDFGHJKLZXCVBNM,.-<>=*/ ", UCase(Mid(S, i, 1))) <> 0 Then str = str & Mid(S, i, 1)
Next
ExtractString = Application.Trim(str)
End Function

[vikttur]

Для первой ячейки (текста) формула массива:
{=ЛЕВСИМВ(A1;МИН(ЕСЛИ(ЕЧИСЛО(--ПСТР(A1;СТРОКА($1:$100);1));СТРОКА( $1:$100)))-2)}
Для второй ячейки (чисел) попроще:
=ПСТР(A1;ДЛСТР(E1)+1;100)
где E1 - извлеченный текст.
С определением длины строки не заморачивался.