Как преобразовать несколько адресов электронной почты в гиперссылки в Excel? 

Если у вас есть список текстовых адресов электронной почты в Excel, и вы хотите преобразовать их в кликабельные гиперссылки для отправки писем, выполнение этой задачи вручную для нескольких записей может занять много времени. Это руководство демонстрирует два эффективных метода: использование формулы ГИПЕРССЫЛКА или макроса VBA.

Преобразование нескольких адресов электронной почты в гиперссылки с помощью формулы

Преобразование нескольких адресов электронной почты в гиперссылки с помощью кода VBA

Преобразование нескольких адресов электронной почты в гиперссылки с помощью формулы

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

1. Введите эту формулу =hyperlink("mailto:"&A2) в пустую ячейку, где вы хотите разместить результат, см. скриншот:

2. Затем перетащите маркер заполнения вниз к ячейкам, куда вы хотите поместить эту формулу, и все адреса электронной почты станут кликабельными гиперссылками, как показано на следующем скриншоте:

Преобразование нескольких адресов электронной почты в гиперссылки с помощью кода VBA

Как видите, при использовании вышеуказанной формулы строка «mailto:» будет добавлена перед каждым адресом электронной почты. Если вы не хотите, чтобы «mailto:» присутствовало в адресах, следующий код VBA может вам помочь.

1. Удерживайте клавиши Alt + F11 в Excel, и откроется окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий макрос в окно Модуля.

Код VBA: Преобразование нескольких адресов электронной почты в гиперссылки

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim xCell As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xCell.Hyperlinks.Add Anchor:=xCell, Address:="mailto:" & xCell.Value
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. После вставки кода нажмите клавишу F5, чтобы запустить код. Появится диалоговое окно, в котором вас попросят выбрать диапазон данных для обработки, см. скриншот:

4. Затем нажмите OK, и все выбранные адреса электронной почты будут преобразованы в гиперссылки, см. скриншот: