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

當我們在Excel中有一列普通的電子郵件地址時，直接向他們傳送郵件可能會很麻煩。如果我們需要將它們轉換為超連結，我們可以直接操作，但是如果多次重複此操作，可能會變得枯燥乏味。讓我們來看一下使用VBA應用程式完成此任務的一種有趣的方法。閱讀本教程，瞭解如何在Excel中將多個電子郵件地址轉換為超連結。

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

在這裡，我們將首先插入一個VBA模組，然後執行它來完成我們的任務。讓我們來看一下使用VBA應用程式將多個電子郵件地址轉換為超連結的簡單步驟。

步驟1

讓我們考慮一個Excel表格，其中資料是一列普通的電子郵件地址，類似於下圖。

現在右鍵單擊工作表名稱，選擇“檢視程式碼”開啟VBA應用程式，然後單擊“插入”，選擇“模組”。

右鍵單擊 > 檢視程式碼 > 插入 > 模組

步驟2

在下圖所示的文字框中鍵入以下程式程式碼。

程式 (此處應插入 VBA 程式碼)

Sub EmailHylink()
'Updated By Nirmal
    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", "Convert to hyperlink", 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