Сократить длинные ФИО до коротких ФИО.

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Сократить длинные ФИО до коротких ФИО. (Формулы/Formulas)

Mark1976

Дата: Среда, 13.11.2024, 19:32 | Сообщение № 1

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

Здравствуйте. Есть таблица с данными. В ячейке А3 написано Иванов Иван Иванович мне надо быстро сделать формулой И.И.И. Заранее спасибо.

Ответить

прохожий2019

Дата: Среда, 13.11.2024, 19:54 | Сообщение № 2

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

Репутация: 327 ±

Замечаний: 0% ±

365 Beta Channel

365

Код

=СЦЕП(ЛЕВБ(ТЕКСТРАЗД(A1;" "))&".")

Сообщение отредактировал прохожий2019 - Среда, 13.11.2024, 20:20

Ответить

i691198

Дата: Среда, 13.11.2024, 20:08 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 337

Репутация: 108 ±

Замечаний: 0% ±

Для старых версий офиса формула длиннее.

Код

=ЛЕВСИМВ(A3;1)&". "&ЛЕВСИМВ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A3;" ";ПОВТОР(" ";50));50;50));1)&". " &ЛЕВСИМВ(СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(A3;" ";ПОВТОР(" ";50));100;50));1)&"."

Ответить

Mark1976

Дата: Среда, 13.11.2024, 20:17 | Сообщение № 4

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

прохожий2019, не получилось.

Ответить

прохожий2019

Дата: Среда, 13.11.2024, 20:17 | Сообщение № 5

Группа: Проверенные

Ранг: Старожил

Сообщений: 1298

Репутация: 327 ±

Замечаний: 0% ±

365 Beta Channel

для старых

Код

=ЛЕВБ(A1)&"."&ПСТР(A1;ПОИСК(" ";A1)+1;1)&"."&ПСТР(A1;ПОИСК(" ";A1;ПОИСК(" ";A1)+1)+1;1)&"."

Ответить

Mark1976

Дата: Среда, 13.11.2024, 20:22 | Сообщение № 6

Группа: Проверенные

Ранг: Ветеран

Сообщений: 761

Репутация: 3 ±

Замечаний: 0% ±

Excel 2010, 2013

прохожий2019, ваша формула сработала. спасибо. Всем спасибо за интерес к теме.

Ответить

2version

Дата: Среда, 13.11.2024, 20:28 | Сообщение № 7

Группа: Пользователи

Ранг: Новичок

Сообщений: 30

Репутация: 0 ±

Замечаний: 0% ±

Здравствуйте, попробуйте так:

Код

=ЛЕВСИМВ(A1;1) & "." & ЛЕВСИМВ(ПСТР(A1;ПОИСК(" ";A1)+1;99);1) & "." & ЛЕВСИМВ(ПСТР(A1;ПОИСК(" ";A1;ПОИСК(" ";A1)+1)+1;99);1) & "."

Сообщение отредактировал 2version - Среда, 13.11.2024, 20:29

Ответить

Egyptian

Дата: Среда, 13.11.2024, 20:59 | Сообщение № 8

Группа: Проверенные

Ранг: Ветеран

Сообщений: 526

Репутация: 193 ±

Замечаний: 0% ±

Excel 2013/2016

Для более коротких имен (типа Чонг Ли, Ю Чжоу и Бен Джонсон) в том числе:

Код

=IFERROR(REPLACE(REPLACE(REPLACE(REPT(".";2);1;1;LEFT(A3));FIND(" ";A3)+2;2;MID(A3;FIND(" ";A3);2)&".");FIND("@";SUBSTITUTE(A3;" ";"@";2));2;MID(A3;FIND("@";SUBSTITUTE(A3;" ";"@";2));2)&".");REPLACE(REPLACE(REPT(".";2);1;1;LEFT(A3));FIND(" ";A3)+2;2;MID(A3;FIND(" ";A3);2)&"."))