Из одного поля ФИО сделать 3 (Фамилия Имя Отчество)
Silver
Дата: Пятница, 02.09.2016, 05:17 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Дан список в одном поле (ФИО) Эти имена нужно разделить и положить отдельно Фамилия, имя, Отчество
Дан список в одном поле (ФИО) Эти имена нужно разделить и положить отдельно Фамилия, имя, Отчество Silver
Ответить
Сообщение Дан список в одном поле (ФИО) Эти имена нужно разделить и положить отдельно Фамилия, имя, Отчество Автор - Silver Дата добавления - 02.09.2016 в 05:17
Silver
Дата: Пятница, 02.09.2016, 06:02 |
Сообщение № 2
Группа: Пользователи
Ранг: Прохожий
Сообщений: 9
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Данные -- Текст по столбцам -- с разделителем пробел
Данные -- Текст по столбцам -- с разделителем пробел Silver
Ответить
Сообщение Данные -- Текст по столбцам -- с разделителем пробел Автор - Silver Дата добавления - 02.09.2016 в 06:02
китин
Дата: Пятница, 02.09.2016, 06:39 |
Сообщение № 3
Группа: Модераторы
Ранг: Экселист
Сообщений: 7034
Репутация:
1079
±
Замечаний:
0% ±
Excel 2007;2010;2016
мона и формулой, но Данные -- Текст по столбцам -- с разделителем пробел
гораздо прощеКод
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($B3;" ";ПОВТОР(" ";98));(СТОЛБЕЦ(A1)-1)*98+1;98))
мона и формулой, но Данные -- Текст по столбцам -- с разделителем пробел
гораздо прощеКод
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($B3;" ";ПОВТОР(" ";98));(СТОЛБЕЦ(A1)-1)*98+1;98))
китин
Не судите очень строго:я пытаюсь научиться ЯД 41001877306852
Сообщение отредактировал китин - Пятница, 02.09.2016, 06:41
Ответить
Сообщение мона и формулой, но Данные -- Текст по столбцам -- с разделителем пробел
гораздо прощеКод
=СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ($B3;" ";ПОВТОР(" ";98));(СТОЛБЕЦ(A1)-1)*98+1;98))
Автор - китин Дата добавления - 02.09.2016 в 06:39
sv2014
Дата: Пятница, 02.09.2016, 11:52 |
Сообщение № 4
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Silver , вариант функции с i=1,2,3 соответственно. [vba]Код
Function uuu$(t$, i%) uuu = Split(t)(i - 1) End Function
[/vba]
Silver , вариант функции с i=1,2,3 соответственно. [vba]Код
Function uuu$(t$, i%) uuu = Split(t)(i - 1) End Function
[/vba]sv2014
Ответить
Сообщение Silver , вариант функции с i=1,2,3 соответственно. [vba]Код
Function uuu$(t$, i%) uuu = Split(t)(i - 1) End Function
[/vba]Автор - sv2014 Дата добавления - 02.09.2016 в 11:52
sv2014
Дата: Пятница, 02.09.2016, 12:18 |
Сообщение № 5
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
Silver , еще вариант uuu1 в столбцах: IJK [vba]Код
Function uuu1$(t$, i%) With CreateObject("VBScript.RegExp"): .Global = True: .Ignorecase = True .Pattern = "(?:[^а-яё]|^)[а-яё]+(?=[^а-яё]|$)" uuu1 = .Execute(t)(i - 1) End With End Function
[/vba]
Silver , еще вариант uuu1 в столбцах: IJK [vba]Код
Function uuu1$(t$, i%) With CreateObject("VBScript.RegExp"): .Global = True: .Ignorecase = True .Pattern = "(?:[^а-яё]|^)[а-яё]+(?=[^а-яё]|$)" uuu1 = .Execute(t)(i - 1) End With End Function
[/vba]sv2014
Ответить
Сообщение Silver , еще вариант uuu1 в столбцах: IJK [vba]Код
Function uuu1$(t$, i%) With CreateObject("VBScript.RegExp"): .Global = True: .Ignorecase = True .Pattern = "(?:[^а-яё]|^)[а-яё]+(?=[^а-яё]|$)" uuu1 = .Execute(t)(i - 1) End With End Function
[/vba]Автор - sv2014 Дата добавления - 02.09.2016 в 12:18