извлечь из ячейки первое слово до пробела

[KNatalia]

Всем привет!
Подскажите, пожалуйста!

Есть в ячейке предложение, нужно
1. Извлечь первое слово до первого пробела
2. Извлечь слова от первого пробела до точки
3. Извлечь оставшиеся слова после точки

Как это реализовать макросом.

Помогите написать конструкцию извлечения, какую функцию использовать

[Aiden]

1. Left(Range(), InStr(Range(), " ") - 1)
2. Right(Left(Range(), InStr(Range(), ".") - 1), Len(Left(Range(), InStr(Range(), ".") - 1)) - InStr(Range(), " "))

если точка не нужна. Если нужна убрать "- 1"
3. Right(Range(), Len(Range()) - InStr(Range(), ".") - 1)

В Range() внутри скобок укажи ячейку.

[KNatalia]

Спасибо!
А если название разбито на несколько строк, как быть?

[EducatedFool]

Есть в ячейке предложение, нужно
1. Извлечь первое слово до первого пробела

Sub test()
    txt = "строка с пробелами":
    ПервоеСлово = Split(txt, " ")(0)
    ВтороеСлово = Split(txt, " ")(1)
    ТретьеСлово = Split(txt, " ")(2)
    ' ...
End Sub

[Hugo121]

хмм... тогда надёжнее так:

Sub test()
    txt = "строка   с   пробелами":
    ПервоеСлово = Split(Application.Trim(txt), " ")(0)
    ВтороеСлово = Split(Application.Trim(txt), " ")(1)
    ТретьеСлово = Split(Application.Trim(txt), " ")(2)
    ' ...
End Sub

И если разбита - ничего не меняется, но перевод строки остаётся как слово:

Sub test()
Sub test()
    txt = "строка   с   " & vbNewLine & " пробелами": Debug.Print txt
    ПервоеСлово = Split(Application.Trim(txt), " ")(0)
    ВтороеСлово = Split(Application.Trim(txt), " ")(1)
    ТретьеСлово = Split(Application.Trim(txt), " ")(2)
    ' ...
End Sub