Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Перенести часть текста из середины в начало
 
#1
26.04.2017 18:02:48
Есть следующий кейс. Надо выцепить определенный текст из предложения в ячейке. Нужна формула, которая поможет это сделать.

Например.
В ячейку A1 копируем исходник: Иванов Иван (95% +2 пункта)
В ячейке B1 формула, которая выцепляет нужный текст и преобразует его следующим образом: 95% — Иванов Иван
Иванов Иван (95% +2 пункта) 95% — Иванов Иван
Петр Петров (82% +3 пункта) 82% — Петр Петров
Сидоров Сидор 75% - 10 пунктов) 75% — Сидоров Сидор
 
 
 
#2
26.04.2017 18:07:30
past25, и Вам не хворать.
Цитата
past25 написал:
Надо выцепить
А что мешает выцепить?
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#3
26.04.2017 18:07:56
А куда у Сидорова делась скобка (
 
 
 
#4
26.04.2017 18:10:19
Kuzmich, а это усложнение задачи лично от Сидорова :)  
Если в мире всё бессмысленно, — сказала Алиса, — что мешает выдумать какой-нибудь смысл? ©Льюис Кэрролл
 
 
 
#5
26.04.2017 18:15:14
UDF
Код
Function FIO(cell As String) As String
   FIO = Split(Split(cell, "(")(1), " ")(0) & " " & Split(cell, "(")(0)
End Function
У Сидорова думаю, что скобка есть
 
 
 
#6
26.04.2017 19:00:31
еще вариант функции в столбце B
Код
 Function vvv$(t$)
   Dim t1$
 With CreateObject("VBScript.RegExp"): .Pattern = "[а-яё]+ [а-яё]+": .IgnoreCase = True
    t1 = .Execute(t)(0): .Pattern = "\d+%": vvv = .Execute(t)(0) & " - " & t1
 End With
End Function
Изменено: sv2013 - 26.04.2017 19:00:46
 
 
 
Страницы: 1
Наверх