разделение текста

[PetrovS]

с НГ всех!
у меня такая проблемка:
Пусть в ячейка A1 находится текст "Петров Сергей Владимирович".
Сотрудники , что б были они не ладны, забили это все в одну ячейку, а надо было в 3 : "Фамилия" "имя" "отчество".
т.е. посути нужно текст из одной ячейки разделить на 3.

[Volodshan]

Вариант: Данные - Текст по столбцам - Разделитель "пробел", текстовый, поместить - в следующее поле...

[Serge 007]

Или попроще :-) , формулами :

ФИО в ячейке А1

Фамилия =ЛЕВСИМВ(A1;ПОИСК(" ";A1;1)-1)
Имя =ЛЕВСИМВ(ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));НАЙТИ(" ";ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));2)-1)Отчество =ПСТР(ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));НАЙТИ(" ";ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));2);ДЛСТР(ПСТР(A1;ПОИСК (" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1))))

[EducatedFool]

Ну а ещё можно воспользоваться простейшим макросом
(который переберёт все заполненные ячейки в первом столбце, и разобъёт ФИО на отдельные слова, поместив их в столбцы B,C и D):

Sub test()
    Dim cell As Range: Application.ScreenUpdating = False
    For Each cell In Range([A1], Range("A" & Rows.Count).End(xlUp)).Cells
        cell.Next.Resize(, 3) = Split(cell, " ")
    Next cell
End Sub

[DV68]

Сообщение от Serge 007

Или попроще :-) , формулами :

ФИО в ячейке А1

Фамилия =ЛЕВСИМВ(A1;ПОИСК(" ";A1;1)-1)
Имя =ЛЕВСИМВ(ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));НАЙТИ(" ";ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));2)-1)Отчество =ПСТР(ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));НАЙТИ(" ";ПСТР(A1;ПОИСК(" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1));2);ДЛСТР(ПСТР(A1;ПОИСК (" ";A1;1);ДЛСТР(A1)+1-ПОИСК(" ";A1;1))))

Формулами можно и покороче
А1 - ФИО
В1 - Фамилия (формула короткая, норм)
С1 - Имя =ПСТР(A1;ПОИСК(" ";A1)+1;ПОИСК(" ";ПСТР(A1;ПОИСК(" ";A1)+1;33);1)-1)
D1 - Отчество =ЗАМЕНИТЬ(A1;1;ДЛСТР(B1)+ДЛСТР(C1)+ 2;"")

[Serge 007]

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

Формулами можно и покороче
А1 - ФИО
В1 - Фамилия (формула короткая, норм)
С1 - Имя =ПСТР(A1;ПОИСК(" ";A1)+1;ПОИСК(" ";ПСТР(A1;ПОИСК(" ";A1)+1;33);1)-1)
D1 - Отчество =ЗАМЕНИТЬ(A1;1;ДЛСТР(B1)+ДЛСТР(C1)+ 2;"")

Не вижу разницы
Кроме того что мои формулы не зависят друг от друга.

[The_Prist]

Вот тоже независящие друг от друга формулы, но покороче:
В А1 = Иванов Иван Иванович
Фамилия(трудно придумать формулу проще, так что без изменений)

=ПСТР(A1;1;ПОИСК(" ";A1)-1)

Имя

=ПСТР(A1;ПОИСК(" ";A1)+1;ПОИСК(" ";A1;ПОИСК(" ";A1)+1)-ПОИСК(" ";A1))

Отчество

=ПСТР(A1;ПОИСК(" ";A1;ПОИСК(" ";A1)+1);32000)