Страницы: 1
RSS
Выдернуть часть текста из ячейки, Прошу помочь выдернуть часть текста из ячейки
 
CE.U0.RPR.0120.00UYH.0.AR.LC0002-ST02
CE.U0.RPR.0120.00UYH.0.AR.LC0004-ST00
CE.U0.RPR.0120.00UYH.0.EM.MB0001-ST00
CE.U0.RPR.0120.01UGF.SGA.TM.TB0001-ST01
CE.U0.RPR.0120.01UGF.SGA.TM.TB0001-ST02
нужно вытащить только 00UYH и 01UGF
если можно несколько примеров
 
T Kur,
Цитата
T Kur написал:
если можно несколько примеров
от вас бы пример бы увидеть сначала с исходными данными (несколько вариантов) и рядом желаемый результат  его логика
Не бойтесь совершенства. Вам его не достичь.
 
Код
Function DDABC$(S$)
  Dim re, ms, m
  Set re = CreateObject("VBScript.RegExp")
  re.Global = True: re.Pattern = "\d{2}[A-Z]{3}"
  Set ms = re.Execute(S)
  For Each m In ms
    DDABC = DDABC & ", " & m
  Next
  If DDABC <> "" Then DDABC = Right(DDABC, Len(DDABC) - 2)
End Function
Программисты - это люди, решающие проблемы, о существовании которых Вы не подозревали, методами, которых Вы не понимаете!
 
Вариант.
Код
=TRIM(MID(SUBSTITUTE(A2," ",REPT(" ",99)),MAX(IFERROR(SEARCH({"00UYH";"01UGF"},SUBSTITUTE(A2," ",REPT(" ",99))),0)),5))
 
Цитата
memo написал:
IFERROR(SEARCH({"00UYH";"01UGF"}
это типа написано только это вытащить, это и вытащили :)
но тогда сложновато.  :)
If(isnumber(SEARCH("00UYH";a2));"00UYH";If(isnumber(SEARCH("01UGF";a2));"01UGF";""))
По вопросам из тем форума, личку не читаю.
 
К копии столбца применить текст по столбцам, лишнее в процессе исключить.
 
Цитата
БМВ написал:
написано только это вытащить
Что приказали, то и вытащили  :D
Страницы: 1
Наверх