У вас есть рабочий лист с множеством адресов электронной почты в виде серии гиперссылок? Если это так, вас может заинтересовать способ извлечь эти адреса и поместить их в ячейки как обычный текст. Есть несколько способов выполнить эту задачу.

Первый способ — это помнить, что все гиперссылки для адресов электронной почты начинаются с текста «mailto», за которым следует двоеточие. Таким образом, вы можете использовать формулу, которая удалит первую часть гиперссылки. Например, если гиперссылка электронной почты находится в ячейке A1, вы можете использовать эту формулу:

=RIGHT(A1,LEN(A1)-7)

Это проверяет длину содержимого ячейки, а затем извлекает все его, кроме первых семи символов, которые являются частью «mailto:». Вы также можете использовать формулу, основанную на функции ЗАМЕНА:

=SUBSTITUTE(A1,"mailto:","")

При желании вы можете использовать макрос для преобразования гиперссылки в текстовый адрес электронной почты. Следующий однострочный макрос — это определяемая пользователем функция, которая возвращает преобразованную гиперссылку:

Function ExtractEmailAddress(rCell As Range)

ExtractEmailAddress = _       Mid(rCell.Hyperlinks(1).Address, 8)

End Function

Чтобы использовать макрос, все, что вам нужно сделать, это использовать функцию в какой-либо ячейке вашего рабочего листа следующим образом:

=ExtractEmailAddress(A1)

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах ExcelTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / excelribbon-ExcelTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

ExcelTips — ваш источник экономичного обучения Microsoft Excel.

Этот совет (2897) применим к Microsoft Excel 97, 2000, 2002 и 2003. Вы можете найти версию этого совета для ленточного интерфейса Excel (Excel 2007 и более поздних версий) здесь:

link: / excelribbon-Extracting_E-mail_Addresses_from_Hyperlinks [Извлечение адресов электронной почты из гиперссылок].