У вас есть рабочий лист, содержащий несколько адресов электронной почты в виде серии гиперссылок? Если это так, вас может заинтересовать способ извлечь эти адреса и поместить их в ячейки в виде обычного текста. Есть несколько способов выполнить эту задачу.
Первый способ – помнить, что все гиперссылки для адресов электронной почты начинаются с текста «mailto», за которым следует двоеточие. Таким образом, вы можете использовать формулу, которая удалит первую часть гиперссылки. Например, если гиперссылка электронной почты находится в ячейке A1, вы можете использовать эту формулу:
= RIGHT (A1, LEN (A1) -7)
Это проверяет длину содержимого ячейки, а затем извлекает все его, кроме первых семи символов, которые являются частью «mailto:». Вы также можете использовать формулу, основанную на функции ЗАМЕНЫ:
= SUBSTITUTE (A1, «mailto:», «»)
При желании вы можете используйте макрос для преобразования гиперссылки в текстовый адрес электронной почты. Следующий однострочный макрос – это определяемая пользователем функция, которая возвращает преобразованную гиперссылку:
Function ExtractEmailAddress (rCell As Range) ExtractEmailAddress = _ Mid (rCell.Hyperlinks (1) .Address, 8) Конечная функция
Чтобы использовать макрос, все, что вам нужно сделать, это использовать функцию в какой-либо ячейке вашего рабочего листа следующим образом:
= ExtractEmailAddress ( A1)
Источник: