Страницы: 1
RSS
Удалить все символы и буквы до И.О.Фамилия, Удалить все символы и буквы до И.О.Фамилия, если количество символов меняется
 
Как записать формулу чтобы оставалось только И.О.Фамилия, если колличестко "_" меняется?
инженер ЭТЛ _________________Д.А. Назаренко
начальник ___________И.И. Иванов
помощник _____________________П.П.Петров
 
Baks_1988_2, если текст перед ФИО не содержит точек "."
Код
=ПОДСТАВИТЬ("инженер ЭТЛ _________________Д.А. Назаренко";ПСТР("инженер ЭТЛ _________________Д.А. Назаренко";1;ПОИСК(".";"инженер ЭТЛ _________________Д.А. Назаренко";1)-2);"")
Изменено: Mershik - 10.01.2021 10:48:16
Не бойтесь совершенства. Вам его не достичь.
 
=ПРАВСИМВ(A28;ДЛСТР(A28) -ПОИСК(".";A28)+2)
 
https://www.planetaexcel.ru/techniques/7/4844/ еще вариант
Код
=RegExpExtract(B1;"\S\..*")
Не бойтесь совершенства. Вам его не достичь.
 
=REPLACE(A1;1;AGGREGATE(14;6;ROW($1:$99)/(MID(A1;ROW($1:$99);1)="_");1);)
с поправко на то что не будет встречатmся где-то еще "__"
=SUBSTITUTE(REPLACE(A1;1;FIND("__";A1););"_";)
Изменено: БМВ - 10.01.2021 11:34:34
По вопросам из тем форума, личку не читаю.
 
Ориентир - точка:
=ПСТР(A2;ПОИСК(".";A2)-1;30)
 
Вот это сработало. Спасибо!!!
Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(E5;1;НАЙТИ("__";E5););"_";)
 
Точек до ФИО Вы не показывали.
Вот такой пример и нужно было прикреплять СРАЗУ, чтбы люди время зря не теряли
=ПСТР(E1;ПОИСК(".?.";E1)-1;30)
 
Цитата
оставалось только И.О.Фамилия
UDF
Код
Function iFIO(cell As String) As String
 With CreateObject("VBScript.RegExp")
     .Global = True
     .Pattern = "[А-ЯЁ]\.[А-ЯЁ]\. [А-ЯЁ][а-яё]+"
     If .test(cell) Then
       iFIO = .Execute(cell)(0)
     End If
 End With
End Function
Страницы: 1
Наверх