วิธีแปลงที่อยู่อีเมลหลายรายการเป็นไฮเปอร์ลิงก์ใน Excel 

หากคุณมีรายการที่อยู่อีเมลแบบข้อความธรรมดาใน Excel และต้องการแปลงเป็นไฮเปอร์ลิงก์แบบคลิกได้เพื่อส่งอีเมล การดำเนินการด้วยตนเองสำหรับรายการหลายรายการอาจใช้เวลานาน คู่มือนี้สาธิตวิธีที่มีประสิทธิภาพสองวิธี ได้แก่ การใช้สูตร HYPERLINK หรือแมโคร VBA

แปลงที่อยู่อีเมลหลายรายการเป็นไฮเปอร์ลิงก์ด้วยสูตร

แปลงที่อยู่อีเมลหลายรายการเป็นไฮเปอร์ลิงก์ด้วยรหัส 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ที่อยู่อีเมลที่เลือกทั้งหมดได้ถูกแปลงเป็นที่อยู่ไฮเปอร์ลิงก์ดูภาพหน้าจอ: