Сокращение ФИО до Фамилии с инициалами.

RSS

Виктор C

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

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

26.10.2017 18:26:01

Добрый день Фомучане !!! вопрос есть некая формула

Код

=СЦЕПИТЬ(ЛЕВСИМВ(СЖПРОБЕЛЫ($A1);НАЙТИ(" ";СЖПРОБЕЛЫ($A1);1));ПСТР(СЖПРОБЕЛЫ($A1);НАЙТИ(" ";СЖПРОБЕЛЫ($A1);1)+1;1);".";ПСТР(СЖПРОБЕЛЫ($A1);НАЙТИ(" ";СЖПРОБЕЛЫ($A1);НАЙТИ(" ";СЖПРОБЕЛЫ($A1);1)+1)+1;1);".")

которая сокращает ФИО до Фамилии аббревиатуры вопрос как избежать ошибку если нет отчества!!!

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

ФИО.xlsx (16.1 КБ)

Гаубица Пользователь Сообщений: 107 Регистрация: 25.07.2013	#2 26.10.2017 18:36:22 Добрый день. Посмотрите вариант во вложении. Прикрепленные файлы ФИО_.xlsx (16.22 КБ)

Karataev

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

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

26.10.2017 18:40:30

=ЛЕВСИМВ(A8;ПОИСК(" ";A8)-1)&" "&ПСТР(СЖПРОБЕЛЫ(A8);ПОИСК(" ";СЖПРОБЕЛЫ(A8))+1;1)&"." & ЕСЛИ(ДЛСТР(СЖПРОБЕЛЫ(A8))-ДЛСТР(ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A8);" ";""))=2;ПСТР(СЖПРОБЕЛЫ(A8);ПОИСК(СИМВОЛ(2);ПОДСТАВИТЬ(СЖПРОБЕЛЫ(A8);" ";СИМВОЛ(2);2))+1;1) & ".";"")

Изменено: Karataev - 26.10.2017 18:44:34

vikttur

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

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

26.10.2017 18:49:21

=ЕСЛИ(B1="";"";ПОДСТАВИТЬ(ЗАМЕНИТЬ(B1;ПОИСК(" ";B1)+1;99;ПСТР(B1;ПОИСК(" ";B1)+1;1)&".")&ПСТР(B1;ПОИСК("";ПОДСТАВИТЬ(B1;" ";"";2));2)&".";". .";"."))
Перед применением формулы удалить лишние пробелы. В В1:
=СЖПРОБЕЛЫ(A1)
Если приводить данные в нормализованный вид нет желания, прописывайте СЖПРОБЕЛЫ в и без того длинной формуле )

Виктор C Пользователь Сообщений: 146 Регистрация: 17.06.2015	#5 26.10.2017 19:22:29 Гаубица, спасибо то что доктор прописал

Читают тему