Перенос последнего слова значения ячейки в другую ячейку

[Den]

Здравствуйте!
Прошу оказать помощь!
В столбце C имеется некий текст, заканчивающийся числом. Число от 1 до 4-х цифр отделено от текста пробелом (или несколькими). Необходимо число перенести (не копировать) в соседнюю ячейку. Как должно получиться, видно в строке 3 в файле.
Спасибо!

[vikttur]

Число:

Код (vb) Выделить Развернуть

=--ПРАВБ(СЖПРОБЕЛЫ(C1);5)
Удаляем число из текста:

Код (vb) Выделить Развернуть

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(C1;E1;))
Далее меняем формулы на значения и удаляем столбец с исходными данными

[Den]

Очень оперативно! Спасибо, что ответили!
Возникла проблема: если число меньше 4-х знаков, то происходит захват части текста перед числом и получается что-то вроде "l 340" или "ed 57". Как можно решить данную проблему?

[vikttur]

Пример для максимум 8-значного числа:
=--ПРАВБ(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(C1);" ";ПОВТОР(" ";20));8)

[Дмитрий Щербаков(The_Prist)]

Может  отсюда чего пригодится для определения слова: Как получить слово после последнего пробела

[Den]

Уважаемый, vikttur, подскажите, куда ставить формулу для удаления числа?

[vikttur]

В файле-примере видно

[Den]

Всем спасибо за помощь, за оперативность!

[sv2015]

 Den,вариант функции

Код (vb) Выделить Развернуть

Function yyy&(t$)
     With CreateObject("VBScript.RegExp"): .Global = True: .Pattern = "\d+"
         yyy = .Execute(t)(.Execute(t).Count - 1)
    End With
End Function