Последнее слово

Алекс511

Гость

12.12.2012 18:01:58

Найти последнее слово предложения, размещенного в одной ячейке.
Например, в предложении: "Съешь ещё этих мягких французских булок, да выпей чаю" правильным ответом будет "чаю".
Делителем, вероятно, будет последний пробел.

ikki

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

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

12.12.2012 18:12:33

{quote}{login=Алекс511}{date=12.12.2012 06:01}{thema=Последнее слово}{post}Делителем, вероятно, будет последний пробел.{/post}{/quote}
сам придумал?

фрилансер Excel, VBA - контакты в профиле
"Совершенствоваться не обязательно. Выживание — дело добровольное." Э.Деминг

KuklP

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

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

E-mail и реквизиты в профиле.

12.12.2012 18:21:02

Саш, спокойней:-)
Алекс511, это кому Вы даете указания? Представьте, что Вы зашли в любое учреждение с такой речью. Если по зубам сразу не дадут - вы счастливчик:-)
По теме: ctrl+h - найти "* "(звездочка, пробел) - заменить на ничего.

Я сам - дурнее всякого примера! ...

Владимир Пользователь Сообщений: 8196 Регистрация: 21.12.2012	#4 12.12.2012 18:22:31 Поиск по "извлечь последнее слово" .. "..Сладку ягоду рвали вместе, горьку ягоду я одна."

Guest Гость	#5 12.12.2012 18:24:23 ______________ Прикрепленные файлы post_384853.xls (13.5 КБ)

Hugo Пользователь Сообщений: 23799 Регистрация: 22.12.2012	#6 12.12.2012 18:32:44 Т.е. анонимово =TRIM(MID(SUBSTITUTE(A1," ",REPT(" ",LEN(A1))),LEN(A1)*(LEN(A2)-LEN(SUBSTITUTE(A2," ","")))+1,LEN(A1))) То же на VBA: Function lastword(s$): lastword = Split(s)(UBound(Split(s))): End Function Короче :) Или чуть длиннее: Function lstwrd(s$): lstwrd = StrReverse(Split(StrReverse(s))(0)): End Function

MCH Пользователь Сообщений: 3906 Регистрация: 22.12.2012	#7 12.12.2012 19:33:38 Function lstwrd$(s$) lstwrd = Mid$(s, InStrRev(s, " ") + 1) End Function

MCH Пользователь Сообщений: 3906 Регистрация: 22.12.2012	#8 12.12.2012 19:38:37 формульный вариант: =СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";ДЛСТР(A1)));ДЛСТР(A1))) или чить короче, если слова не более 99 символов: =СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";99));99))