Как получить второе слово с конца в ячейке?

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

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

15.04.2018 18:37:10

Продолжаю работать над своей задачей, пользовался поиском, нашёл тут же замечательную тему, которая очень похожа на мою задачу.
Но мне надо получить второе слово с конца.
У меня есть ячейка ETIMAT 6 1p+N C63, формула должна вернуть 1p+N
Можно ли такое сделать?

wowick

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

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

15.04.2018 18:48:29

Конечно можно, только не у всех есть

Цитата
igorasas написал: меня есть ячейка ETIMAT 6 1p+N C63

а без этого сложно

Цитата
igorasas написал: формула должна вернуть 1p+N

Если автоматизировать бардак, то получится автоматизированный бардак.

Bema

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

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

15.04.2018 18:49:18

=СЖПРОБЕЛЫ(ПРАВСИМВ(ПОДСТАВИТЬ(ЛЕВСИМВ(A1;ПОИСК("@";ПОДСТАВИТЬ(A1;" ";"@";ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1;" ";""))))-1);" ";ПОВТОР(" ";100));100))

Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл

кузя1972

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

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

15.04.2018 19:01:40

вариант функций, в D1 uuu

Код

 Function uuu$(t$)
    Dim O As Object
   With CreateObject("VBScript.RegExp"): .Pattern = "[\S]+": .Global = True : Set O=.Execute(t)
     uuu = O(O.Count - 2)
  End With
 End Function

Function vvv$(t$)
  vvv = StrReverse(Split(StrReverse(t), " ", 3)(1))
End Function

Прикрепленные файлы

example_15_04_2018_pl_second word_Кузя2.xls (37.5 КБ)

Изменено: кузя1972 - 15.04.2018 19:14:14

vikttur

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

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

15.04.2018 19:26:00

=СЖПРОБЕЛЫ(ЛЕВБ(ПРАВБ(ПОДСТАВИТЬ(A1;" ";ПОВТОР(" ";50));99);50))
UDF

Код
Function ToWord(sStr As String, Optional Delim As String = " ") As String ToWord = StrReverse(Split(StrReverse(Trim$(sStr)), Delim)(1)) End Function

P.S.
Не досмотрел, есь уже такая UDF. Но у меня с изменяемым разделителем. Пусть остается.

БМВ Модератор Сообщений: 24000 Регистрация: 28.12.2016 Excel 2013, 2016	#6 15.04.2018 19:29:17 =TRIM(MID(SUBSTITUTE(" " & A2;" ";REPT(" ";LEN(A2)));(LEN(A2)-LEN(SUBSTITUTE(A2;" ";"")))LEN(A2);2LEN(A2))) и попроще с надеждой что строка не слишком длинная=TRIM(MID(SUBSTITUTE(" " & A2;" ";REPT(" ";99));(LEN(A2)-LEN(SUBSTITUTE(A2;" ";"")))99;299)) Хотя переворот от Victur снова превосходен. Изменено: БМВ - 15.04.2018 20:04:25 По вопросам из тем форума, личку не читаю.