Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Вытянуть последнее слово из текстовой строки
 
#1
05.04.2017 10:46:21
В столбце B3:B таблицы есть текстовые значения, необходимо в столбец C3:C вытянуть постфикс, тоесть SFE, MATBA, BSE и т.д.
SPI 200 Index (AP) - SFE
Wheat/Trigo Quequen (WU) - MATBA
BSE Feed Wheat - BSE
Tocom Silver - TOCOM
MSCI Hong Kong Index - SIMEX
Alum. HG Cash Off - LME
SAFEX White Maize - SAFEX
Corn Calendar Swap (CCS) - CBOT
Nonfat Dry Milk (GNF) - CME
Stoxx Europe Mid 200 Index (FMCP) - EUREX
10-Year Commonwealth Treasury   Bond Futures (XT) - SFE
Изменено: MOTO - 05.04.2017 11:05:51
 
 
 
#2
05.04.2017 10:47:48
Данные в файл вставить вместо Вас?
 
 
 
#3
05.04.2017 10:54:25
Можно формулой, могу и сам протянуть
 
 
 
#4
05.04.2017 10:54:59
=ПРАВСИМВ(B3;ДЛСТР(B3)-НАЙТИ(" - ";B3;1)-1)
Если автоматизировать бардак, то получится автоматизированный бардак.
 
 
 
#5
05.04.2017 10:55:35
А формулу на коленке писать?
Связка ПСТР и НАЙТИ Вам поможет решить вопрос.
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#6
05.04.2017 11:00:37
=ПРАВСИМВ(B3;ДЛСТР(B3)-НАЙТИ(" - ";B3;1)-1) не корректно подтягивает, файл пример прикрепил
 
 
 
#7
05.04.2017 11:12:07
Попробуйте так;
=ПСТР(B3;ПОИСК("@";ПОДСТАВИТЬ(B3;"-";"@";ДЛСТР(B3)-ДЛСТР(ПОДСТАВИТЬ(B3;"-";""))))+2;999)
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#8
05.04.2017 11:18:09
=СЖПРОБЕЛЫ(ПРАВБ(ПОДСТАВИТЬ(B3;" ";ПОВТОР(" ";50));50))
 
 
 
#9
05.04.2017 11:28:09
в проект добавляете модуль, в модуль эту функцию
Код
Function LastWord(rg As Range)
  LastWord = Split(rg)(UBound(Split(rg)))
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
 
 
#10
05.04.2017 11:41:33
ctrl+h найти "* " заменить на пусто.
Я сам - дурнее всякого примера! ...
 
 
 
#11
05.04.2017 12:32:27
TY всем, решено
 
 
 
#12
05.04.2017 14:06:50
Ігор Гончаренко, не могли бы добавить к Вашей функции выбор по счету, как здесь:
Код
СЛОВО2 = Split(x)(1)
то есть Ваша функция дает последнее слово, а как получить предпоследнее, предпредпоследнее? второе с конца, третье...  
Изменено: copper-top - 05.04.2017 14:23:07
 
 
 
#13
05.04.2017 15:28:30
...(Ubound()-1) - предпоследнее.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#14
05.04.2017 15:45:19
еще вариант функций vvv или uuu
Код
Function vvv$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\S+$"
    vvv = .Execute(t)(0)
 End With
End Function
Код
 Function uuu$(t$)
 With CreateObject("VBScript.RegExp"): .Pattern = "\w+": .Global = True: .IgnoreCase = True
    uuu = .Execute(t)(.Execute(t).Count - 1)
 End With
End Function
Изменено: sv2013 - 05.04.2017 17:13:47
 
 
 
#15
05.04.2017 17:36:34
Владимир, пробовал методом тыка приладить ...(Ubound()-1) к функциям из #9 и #12 и у меня нече не вышло. если Вас не затруднит, пропишите, пожалуйста, код функции полностью.
 
 
 
#16
05.04.2017 17:59:01
Там разбиение идёт относительно пробелов.
Код
LastWord = Split(rg)(UBound(Split(rg)) - 2)  ="(WU)"
LastWord = Split(rg)(UBound(Split(rg)) - 1)  = "-"
LastWord = Split(rg)(UBound(Split(rg)) - 3) = "Quequen"
и т.д.
"..Сладку ягоду рвали вместе, горьку ягоду я одна."
 
 
 
#17
05.04.2017 18:10:22
Владимир,спасибо. работает. ложу в копилку.
 
 
 
#18
05.04.2017 18:24:05
Хотел этими методами числа повытягивать после тире, не получилось . Подскажите пожалуйста для числа.
 
 
 
#19
05.04.2017 18:38:17
Код
Function iDigits(cell As String) As Double
  iDigits = Split(cell, "-")(1)
End Function
 
 
 
#20
05.04.2017 18:53:51
Kuzmich, СПАСИБО! :) Супер!
 
 
 
#21
05.04.2017 19:33:32
Цитата
copper-top написал:
а как получить предпоследнее, предпредпоследнее? второе с конца, третье
Это можно сделать так же функциями, кстати: Как получить слово после последнего пробела
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
 
 
 
#22
05.04.2017 20:20:43
The_Prist, спасибо за вариант.
 
 
 
Страницы: 1
Наверх