ไปยังเนื้อหาหลัก

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

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

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

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

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

กับ เชื่อมโยงหลายมิติ คุณสามารถแปลงที่อยู่อีเมลของคอลัมน์เป็นที่อยู่ไฮเปอร์ลิงก์ได้ในคราวเดียว

1. ใส่สูตรนี้ = ไฮเปอร์ลิงก์ ("mailto:" & A2) ลงในเซลล์ว่างที่คุณต้องการใส่ผลลัพธ์ดูภาพหน้าจอ:

doc แปลงที่อยู่เป็นไฮเปอร์ลิงก์ 1

2. จากนั้นลากที่จับเติมลงไปที่เซลล์ที่คุณต้องการมีสูตรนี้และที่อยู่อีเมลทั้งหมดจะกลายเป็นไฮเปอร์ลิงก์ที่คลิกได้ดังภาพต่อไปนี้:

doc แปลงที่อยู่เป็นไฮเปอร์ลิงก์ 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 รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการใช้ดูภาพหน้าจอ:

doc แปลงที่อยู่เป็นไฮเปอร์ลิงก์ 3

4. จากนั้นคลิก OKที่อยู่อีเมลที่เลือกทั้งหมดได้ถูกแปลงเป็นที่อยู่ไฮเปอร์ลิงก์ดูภาพหน้าจอ:

doc แปลงที่อยู่เป็นไฮเปอร์ลิงก์ 4

สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน

🤖 Kutools AI ผู้ช่วย: ปฏิวัติการวิเคราะห์ข้อมูลโดยยึดตาม: การดำเนินการที่ชาญฉลาด   |  สร้างรหัส  |  สร้างสูตรที่กำหนดเอง  |  วิเคราะห์ข้อมูลและสร้างแผนภูมิ  |  เรียกใช้ฟังก์ชัน Kutools...
คุณสมบัติยอดนิยม: ค้นหา เน้น หรือระบุรายการที่ซ้ำกัน   |  ลบแถวว่าง   |  รวมคอลัมน์หรือเซลล์โดยไม่สูญเสียข้อมูล   |   รอบโดยไม่มีสูตร ...
การค้นหาขั้นสูง: VLookup หลายเกณฑ์  |   VLookup หลายค่า  |   VLookup ข้ามหลายแผ่น   |   การค้นหาที่ไม่ชัดเจน ....
รายการแบบเลื่อนลงขั้นสูง: สร้างรายการแบบหล่นลงอย่างรวดเร็ว   |  รายการแบบหล่นลงขึ้นอยู่กับ   |  เลือกหลายรายการแบบหล่นลง ....
ผู้จัดการคอลัมน์: เพิ่มจำนวนคอลัมน์เฉพาะ  |  ย้ายคอลัมน์  |  สลับสถานะการมองเห็นของคอลัมน์ที่ซ่อนอยู่  |  เปรียบเทียบช่วงและคอลัมน์ ...
คุณสมบัติเด่น: กริดโฟกัส   |  มุมมองการออกแบบ   |   บาร์สูตรใหญ่   |  สมุดงานและตัวจัดการชีต   |  ห้องสมุดทรัพยากร (ข้อความอัตโนมัติ)   |  เลือกวันที่   |  รวมแผ่นงาน   |  เข้ารหัส/ถอดรหัสเซลล์   |  ส่งอีเมลตามรายการ   |  ซุปเปอร์ฟิลเตอร์   |   ตัวกรองพิเศษ (กรองตัวหนา/ตัวเอียง/ขีดทับ...) ...
ชุดเครื่องมือ 15 อันดับแรก:  12 ข้อความ เครื่องมือ (เพิ่มข้อความ, ลบอักขระ, ... )   |   50 + แผนภูมิ ประเภท (แผนภูมิ Gantt, ... )   |   40+ ใช้งานได้จริง สูตร (คำนวณอายุตามวันเกิด, ... )   |   19 การแทรก เครื่องมือ (ใส่ QR Code, แทรกรูปภาพจากเส้นทาง, ... )   |   12 การแปลง เครื่องมือ (ตัวเลขเป็นคำ, การแปลงสกุลเงิน, ... )   |   7 ผสานและแยก เครื่องมือ (แถวรวมขั้นสูง, แยกเซลล์, ... )   |   ... และอื่น ๆ

เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา  คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...

รายละเอียด

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
Comments (7)
No ratings yet. Be the first to rate!
kk.operator
kk.operator
This comment was minimized by the moderator on the site
Ich suche eine Formel mit der ich EMail-Adressen in URLs umwandeln kann...

Beispiel: > http://www.test.de

Kann mir jemand helfen?
Reply
0
0
skyyang
skyyang     kk.operator
This comment was minimized by the moderator on the site
Hello, kk.operator

To solve your problem, please apply the following code:

Sub EmailHylink()
'updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim xCell As Range
    Dim xCell2 As Range
    Dim xAddress As String
    Dim xUpdate As Boolean
    Dim xRegEx As Object
    Dim arrSplit() As String
    
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xAddress, , , , , 8)
    Set yRg = Application.InputBox("Please select the save range", "Kutools for Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If yRg Is Nothing Then Exit Sub
    Set yRg = yRg.Range("A1").Resize(xRg.Rows.Count, xRg.Columns.Count)

    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    
    Set xRegEx = CreateObject("VBSCRIPT.REGEXP")
    With xRegEx
        .Pattern = "^\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*$"
        .Global = True
        .IgnoreCase = True
    End With
    
    For I = 1 To xRg.Rows.Count
        For J = 1 To xRg.Columns.Count
            Set xCell = xRg.Cells(I, J)
            Set xCell2 = yRg.Cells(I, J)
            If xRegEx.test(xCell.Value) Then
                arrSplit = Split(xCell.Value, "@")
                 If UBound(arrSplit, 1) = 1 Then
                    xCell2.Value = "http://www." & arrSplit(1)
                    xCell2.Hyperlinks.Add Anchor:=xCell2, Address:=xCell2.Value
                 End If
            End If
        Next
    Next
    Application.ScreenUpdating = xUpdate
End Sub


Please have a try, hope it can help you!
Reply
Report
0
0
DL
DL
This comment was minimized by the moderator on the site
Works perfectly in Excel 2003! Thanks much!
Reply
0
0
Katharine
Katharine
This comment was minimized by the moderator on the site
I'm in a MAC environment so don't have a ALT key. Any other ieas?
Reply
0
0
moranrd
moranrd     Katharine
This comment was minimized by the moderator on the site
The equivalent for the ALT key is the command key (located to the left of the Option Key).

Both of these keys are located to the left of the spacebar.
Reply
Report
0
0
Festus
Festus
This comment was minimized by the moderator on the site
you are a star, it worked perfectly. thanks a million
Reply
0
0
Mike Smith
Mike Smith
This comment was minimized by the moderator on the site
I cannot find the find converting cells to hyperlinks.
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations