вытащить из текста ячейки только электронный адрес
sunny-dream90
Дата: Среда, 03.09.2014, 07:30 |
Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Подскажите, как вытащить из текста ячейки только электронный адрес? Формат текста такой: Saturinovich, Sergey <Sergey.Saturinovich@santerrew.ru>
Подскажите, как вытащить из текста ячейки только электронный адрес? Формат текста такой: Saturinovich, Sergey <Sergey.Saturinovich@santerrew.ru> sunny-dream90
Ответить
Сообщение Подскажите, как вытащить из текста ячейки только электронный адрес? Формат текста такой: Saturinovich, Sergey <Sergey.Saturinovich@santerrew.ru> Автор - sunny-dream90 Дата добавления - 03.09.2014 в 07:30
Nic70y
Дата: Среда, 03.09.2014, 07:58 |
Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
Excel 2010
ЮMoney 41001841029809
Ответить
sunny-dream90
Дата: Среда, 03.09.2014, 08:03 |
Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
нужна формула, т.к. в Excel не очень понимаю.
Ответить
Сообщение нужна формула, т.к. в Excel не очень понимаю. Автор - sunny-dream90 Дата добавления - 03.09.2014 в 08:03
Nic70y
Дата: Среда, 03.09.2014, 08:22 |
Сообщение № 4
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
Excel 2010
Давайте файл-пример (строк так 2-14)
Давайте файл-пример (строк так 2-14) Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Давайте файл-пример (строк так 2-14) Автор - Nic70y Дата добавления - 03.09.2014 в 08:22
sunny-dream90
Дата: Среда, 03.09.2014, 08:31 |
Сообщение № 5
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Приложила файл)
Ответить
Сообщение Приложила файл) Автор - sunny-dream90 Дата добавления - 03.09.2014 в 08:31
Nic70y
Дата: Среда, 03.09.2014, 08:39 |
Сообщение № 6
Группа: Друзья
Ранг: Экселист
Сообщений: 9130
Репутация:
2415
±
Замечаний:
0% ±
Excel 2010
Как вариант: Код
=ПСТР(C2;ПОИСК("<";C2);ДЛСТР(C2))
Как вариант: Код
=ПСТР(C2;ПОИСК("<";C2);ДЛСТР(C2))
Nic70y
ЮMoney 41001841029809
Ответить
Сообщение Как вариант: Код
=ПСТР(C2;ПОИСК("<";C2);ДЛСТР(C2))
Автор - Nic70y Дата добавления - 03.09.2014 в 08:39
sunny-dream90
Дата: Среда, 03.09.2014, 08:43 |
Сообщение № 7
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Ответить
Сообщение Большое Вам спасибо! Автор - sunny-dream90 Дата добавления - 03.09.2014 в 08:43
Pelena
Дата: Среда, 03.09.2014, 09:01 |
Сообщение № 8
Группа: Админы
Ранг: Местный житель
Сообщений: 19510
Репутация:
4620
±
Замечаний:
±
Excel 365 & Mac Excel
Ещё варианты Код
=ПСТР(C2;ПОИСК("<";C2)+1;ДЛСТР(C2)-ПОИСК("<";C2)-1)
Код
=ПСТР(C2;ПОИСК("<";C2)+1;ПОИСК(">";C2)-ПОИСК("<";C2)-1)
Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(C2;1;ПОИСК("<";C2);"");">";"")
Ещё варианты Код
=ПСТР(C2;ПОИСК("<";C2)+1;ДЛСТР(C2)-ПОИСК("<";C2)-1)
Код
=ПСТР(C2;ПОИСК("<";C2)+1;ПОИСК(">";C2)-ПОИСК("<";C2)-1)
Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(C2;1;ПОИСК("<";C2);"");">";"")
Pelena
"Черт возьми, Холмс! Но как??!!" Ю-money 41001765434816
Ответить
Сообщение Ещё варианты Код
=ПСТР(C2;ПОИСК("<";C2)+1;ДЛСТР(C2)-ПОИСК("<";C2)-1)
Код
=ПСТР(C2;ПОИСК("<";C2)+1;ПОИСК(">";C2)-ПОИСК("<";C2)-1)
Код
=ПОДСТАВИТЬ(ЗАМЕНИТЬ(C2;1;ПОИСК("<";C2);"");">";"")
Автор - Pelena Дата добавления - 03.09.2014 в 09:01
sunny-dream90
Дата: Среда, 03.09.2014, 09:15 |
Сообщение № 9
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Вот эти формулы идеальны, в самую точку, то что нужно. Огромное СПАСИБО.
Вот эти формулы идеальны, в самую точку, то что нужно. Огромное СПАСИБО. sunny-dream90
Ответить
Сообщение Вот эти формулы идеальны, в самую точку, то что нужно. Огромное СПАСИБО. Автор - sunny-dream90 Дата добавления - 03.09.2014 в 09:15
Gustav
Дата: Среда, 03.09.2014, 11:48 |
Сообщение № 10
Группа: Админы
Ранг: Участник клуба
Сообщений: 2843
Репутация:
1194
±
Замечаний:
±
начинал с Excel 4.0, видел 2.1
Безформульный вариант решения задачи: 1. Выделить диапазон C2:C7 2. Данные \ Текст по столбцам \ Разделитель: Другой: < 3. Выделить диапазон D2:D7 4. Данные \ Текст по столбцам \ Разделитель: Другой: >
Безформульный вариант решения задачи: 1. Выделить диапазон C2:C7 2. Данные \ Текст по столбцам \ Разделитель: Другой: < 3. Выделить диапазон D2:D7 4. Данные \ Текст по столбцам \ Разделитель: Другой: > Gustav
МОИ: Ник , Tip box: 41001663842605
Ответить
Сообщение Безформульный вариант решения задачи: 1. Выделить диапазон C2:C7 2. Данные \ Текст по столбцам \ Разделитель: Другой: < 3. Выделить диапазон D2:D7 4. Данные \ Текст по столбцам \ Разделитель: Другой: > Автор - Gustav Дата добавления - 03.09.2014 в 11:48
sunny-dream90
Дата: Среда, 03.09.2014, 12:18 |
Сообщение № 11
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация:
0
±
Замечаний:
0% ±
Excel 2010
Спасибо, самый простой способ
Ответить
Сообщение Спасибо, самый простой способ Автор - sunny-dream90 Дата добавления - 03.09.2014 в 12:18
vikttur
Дата: Среда, 06.12.2017, 17:37 |
Сообщение № 12
Группа: Друзья
Ранг: Участник клуба
Сообщений: 2941
Для заглавного вопроса:Код
=ПОДСТАВИТЬ(ПСТР(C2;ПОИСК("<";C2)+1;50);">";)
Для заглавного вопроса:Код
=ПОДСТАВИТЬ(ПСТР(C2;ПОИСК("<";C2)+1;50);">";)
vikttur
Ответить
Сообщение Для заглавного вопроса:Код
=ПОДСТАВИТЬ(ПСТР(C2;ПОИСК("<";C2)+1;50);">";)
Автор - vikttur Дата добавления - 06.12.2017 в 17:37
sv2014
Дата: Четверг, 07.12.2017, 23:44 |
Сообщение № 13
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 226
Репутация:
61
±
Замечаний:
0% ±
Excel 2013
sunny-dream90 , добрый вечер,ещё вариант функции в столбце D [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .IgnoreCase = True .Pattern = "\w+\.\w+@\w+\.\w+": uuu = .Execute(t)(0) End With End Function
[/vba]
sunny-dream90 , добрый вечер,ещё вариант функции в столбце D [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .IgnoreCase = True .Pattern = "\w+\.\w+@\w+\.\w+": uuu = .Execute(t)(0) End With End Function
[/vba]sv2014
Ответить
Сообщение sunny-dream90 , добрый вечер,ещё вариант функции в столбце D [vba]Код
Function uuu$(t$) With CreateObject("VBScript.RegExp"): .IgnoreCase = True .Pattern = "\w+\.\w+@\w+\.\w+": uuu = .Execute(t)(0) End With End Function
[/vba]Автор - sv2014 Дата добавления - 07.12.2017 в 23:44