разделить значение ячейки на две переменные

[gramp]

Сообщение от kuklp

Вить, а если ширина не фиксированная?

сделал круто, спасибо
а мог бы расписать кратенько словами, как работает этот код?
а то мне это понять хочется
например, почему 1234567890, написаны подряд, а работает определение цифр для любой цифры

[kuklp]

Формула в цикле перебирает каждый символ из ячейки и проверяет нет ли такого символа в строке "1234567890". Если есть, значит этот символ - цифра, добавляем его в строку-результат. И так до конца строки из ячейки.

[SAS888]

Ну, я тоже предложу свой вариант.
Предлагаемая функция работает с любым символом разделения (а также, без него), не зависит от количества символов и не имеет никаких циклов. Функция имеет 2 аргумента. 1-й - ячейка с исходными данными, 2-й - True для цифр, или False для букв.

Function Analiz(rng As Range, Num As Boolean)
    Dim objRegExp: Set objRegExp = CreateObject("VBScript.RegExp")
    objRegExp.Pattern = IIf(Num, "[\d]{1,100}", "[А-Яа-я]{1,100}"): objRegExp.Global = True
    Analiz = Trim(objRegExp.Execute(rng).Item(0))
End Function

Пример во вложении.

[Hugo121]

SAS888, может пробел добавить?
[А-Яа-я ]
А то только первое слово выбирает.

[SAS888]

может пробел добавить?

Ну, кто ж не дает? Если автор вопроса обозначит все требуемые варианты выбора, то все можно очень просто добавить. В данной задаче, ИМХО, применение объекта RegExp очень кстати. все остальное - дело техники...