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

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

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

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

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

Для Гиперссылка Вы можете быстро преобразовать адреса электронной почты столбца в адреса с гиперссылками.

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

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

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

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

1. Удерживайте Alt + F11 ключи в Excel, и он открывает Microsoft Visual Basic для приложений окно.

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, все выбранные адреса электронной почты были преобразованы в адреса с гиперссылками, см. снимок экрана: