如何在 Excel 中将多个电子邮件地址转换为超链接？ 

如果在 Excel 中有一列纯文本格式的电子邮件地址，并希望将其转换为可点击的超链接以便发送邮件，手动处理多个条目可能会非常耗时。本指南演示了两种高效方法：使用 HYPERLINK 公式或 VBA 宏。

使用公式将多个电子邮件地址转换为超链接

使用 VBA 代码将多个电子邮件地址转换为超链接

使用公式将多个电子邮件地址转换为超链接

通过 Hyperlink 函数，您可以快速一次性将整列电子邮件地址转换为带超链接的地址。

1. 在您希望显示结果的空白单元格中输入此公式 =hyperlink("mailto:"&A2)，如下截图所示：

2. 然后向下拖动填充柄到需要包含该公式的单元格，所有电子邮件地址都会变成可点击的超链接，如下截图所示：

使用 VBA 代码将多个电子邮件地址转换为超链接

如您所见，通过使用上述公式，每个电子邮件地址前会添加一个“mailto:”字符串。如果您不希望地址中包含 mailto:，以下 VBA 代码可以帮您解决这个问题。

1. 在 Excel 中按住 Alt + F11 键，打开 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. 然后单击 确定，所有选定的电子邮件地址都将被转换为带超链接的地址，如下截图所示：