Как поменять местами слова в ячейке

Пользователь

Сообщений: 2 Регистрация: 01.01.1970

19.11.2010 12:02:30

Добрый день, уважаемы знатоки excell!

Подскажите, пожалуйста, каким образом можно поменять местами слова в ячейке?

Пример:
в ячейке А1 текст "Вася Пупкин"
нужно сделать - в ячейке В1 текст "Пупкин Вася"

Заранее благодарю!

The_Prist Пользователь Сообщений: 15475 Регистрация: 15.09.2012 Профессиональная разработка приложений для MS Office	#2 19.11.2010 12:15:06 =ПСТР(A1;ПОИСК(" ";A1)+1;300)&" "&ПСТР(A1;1;ПОИСК(" ";A1)) Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...

GIG_ant Пользователь Сообщений: 3102 Регистрация: 24.12.2012	#3 19.11.2010 12:25:08 За вами не угонишся ) Редко но метко ...

Guest Гость	#4 19.11.2010 12:43:51 {quote}{login=The_Prist}{date=19.11.2010 12:15}{thema=}{post}=ПСТР(A1;ПОИСК(" ";A1)+1;300)&" "&ПСТР(A1;1;ПОИСК(" ";A1)){/post}{/quote} Спасибо огромное! Работает! Правда я не понимаю как, но работает! =)

Guest Гость	#5 19.11.2010 13:31:41 =ПСТР(A1&" "&A1;1+ПОИСК(" ";A1);ДЛСТР(A1))

слэн Пользователь Сообщений: 5192 Регистрация: 16.01.2013	#6 19.11.2010 14:14:55 классно :) Живи и дай жить..

ФЯ

Гость

27.06.2012 17:11:05

Дорогие гуру!
А можете подсказать формулу что то на подобе этого же только надо поменять 3 слова,

тоесть в одной ечейке А1 типа товары :

Вася Пупкин Вася Пупкин Вася Пупкин

поменять местами в В1 3 раза или 3 слова чтоб вышло так:

Пупкин Вася Пупкин Вася Пупкин Вася

Заранее благодарен если это возможно!!!

ShAM Пользователь Сообщений: 469 Регистрация: 05.01.2013	#8 27.06.2012 17:30:48 Если "Вася Пупкин" повторяется 3 раза (а не, например, "Вася Пупкин Ваня Нупкин Яша Лункин"), то формула от 19.11.2010, 13:31 выполняет то, что вы хотите.

ФЯ

Гость

27.06.2012 17:43:03

Нет эта Формула
=ПСТР(A1&" "&A1;1+ПОИСК(" ";A1);ДЛСТР(A1))
просто смещает
ориг. Вася Пупкин Ваня Нупкин Яша Лункин
результат Пупкин Ваня Нупкин Яша Лункин Вася
а хотелось бы
Пупкин Вася Нупкин Ваня Лункин Яша
если возможно

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#10 27.06.2012 17:53:01 UDF. Попробуйте с разным числом слов, в т.ч. нечетным. Function ФЯ(txt As String) As String Dim s$(), i& s = Split(txt) For i = 1 To UBound(s) Step 2 ФЯ = ФЯ & " " & s(i) & " " & s(i - 1) Next If i = UBound(s) + 1 Then ФЯ = ФЯ & " " & s(i - 1) ФЯ = Mid$(ФЯ, 2) End Function

ФЯ Гость	#11 27.06.2012 19:35:40 Спасибо Казанский за вариант , но с макросами как то редко работал и с ними не дружу.. мне б вариат из формулы кто нибудь подсказал бы... буду очень признателен

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#12 27.06.2012 19:42:49 Давайте Ваш пример (что есть - что надо), но, имхо, - формулами это дело сложно... Скорее всего придется использовать несколько доп. ячеек.

ФЯ Гость	#13 27.06.2012 19:49:44 Михаил С. Вася Пупкин Ваня Нупкин Яша Лункин Пупкин Вася Нупкин Ваня Лункин Яша т.е. 1 слово со словом 2, 3 слово со словом 4, 5 слово со словом 6 менялись местами ...

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#14 27.06.2012 19:56:30 если слов ВСЕГДА шесть и нет знаков препинания, и нужно поменять попарно - то можно одной формулой.

ФЯ Гость	#15 27.06.2012 20:02:11 слов не всегда шесть, и бываю знаки но редко знаки припинания.

Z Гость	#16 27.06.2012 20:05:47 {quote}{login=ФЯ}{date=27.06.2012 08:02}{thema=}{post}... и бываю ...{/post}{/quote} Повторение - мать учения, у вас незачет по Правилам - см. скрин... ;) -92988- Прикрепленные файлы post_343399.jpg (41 КБ)

Михаил С.

Пользователь

Сообщений: 10514 Регистрация: 21.12.2012

#17

27.06.2012 20:19:25

{quote}{login=ФЯ}{date=27.06.2012 08:02}{thema=}{post}слов не всегда шесть, и бываю знаки но редко знаки припинания.{/post}{/quote}Одна формула с этим делом не справится.

И в любом случае нужен пример с различными вариантами - не мне же за Вас их выдумывать.

ФЯ Гость	#18 27.06.2012 20:48:10 1 слово со словом 2, 3 слово со словом 4, 5 слово со словом 6 менялись местами Прикрепленные файлы post_343408.xls (13.5 КБ)

Михаил С. Пользователь Сообщений: 10514 Регистрация: 21.12.2012	#19 27.06.2012 21:12:08 И где конечный результат? Зы. из такого примера возникает ощущение бессмысленной работы.

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#20 27.06.2012 21:21:34 > но с макросами как то редко работал и с ними не дружу.. Вот так это выглядит в вашем файле. ИМХО ничего сложного. Прикрепленные файлы post_343427.xls (22 КБ)

ФЯ

Гость

#21

01.07.2012 17:20:12

Казанский,

Благодарю, за помощь, начинают нравится работа с макросами благодаря Вам.

Можно у Вас еще спросить , как сделать так чтобы не все менялось если длинное предложение, а только 6 слов первых, если это возможно...

Казанский Пользователь Сообщений: 8839 Регистрация: 11.01.2013	#22 01.07.2012 17:27:18 Всего лишь параметр дописать :) s = Split(txt, , 7)

Читают тему