如何在 Excel 中將多個電子郵件地址轉換為超連結？

作者Xiaoyang修改日期2024-11-26

如果您在 Excel 中有一份純文字格式的電子信箱清單，並希望將它們轉換為可點擊的超連結以方便寄送郵件，手動逐一處理大量資料將相當耗時。本指南提供兩種高效方法：使用 HYPERLINK 函數或 VBA 巨集。

使用公式將多個郵箱地址轉換為超連結

使用 VBA 程式碼將多個郵箱地址轉換為超連結

使用公式將多個郵箱地址轉換為超連結

透過 HYPERLINK 函數，您能輕鬆將郵箱地址欄位一鍵轉換為超連結！

1. 在您要放置結果的空白儲存格中輸入下列公式：=hyperlink("mailto:"&A2)（請參閱下圖）：

顯示在 Excel 中將電子郵件地址轉換為超連結公式的截圖

2. 接著將填滿控點向下拖曳至欲套用公式的儲存格，所有郵箱地址就會自動轉換為可點擊的超連結，如下圖所示：

顯示在 Excel 中已轉換為可點擊超連結的截圖

使用 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 鍵執行程式碼，系統將立即彈出提示方塊，要求您選取欲處理的數據區域（請參閱下圖）：

顯示在 Excel 中用於選擇套用 VBA 程式碼之資料範圍的提示方塊截圖

4. 接著點選確定，所有選取的郵箱地址就會自動轉換為超連結（請參閱下圖）：

顯示使用 VBA 在 Excel 中成功將電子郵件地址轉換為超連結的截圖

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多