Làm thế nào để chuyển đổi nhiều địa chỉ email thành siêu liên kết trong Excel? 

Nếu bạn có một danh sách các địa chỉ email văn bản thuần túy trong một trang tính và bây giờ, bạn muốn chuyển đổi các địa chỉ email này thành các siêu liên kết mà bạn có thể gửi email trong khi nhấp vào địa chỉ. Tất nhiên, bạn có thể chuyển đổi chúng thành địa chỉ email siêu liên kết, nhưng, phương pháp này sẽ gây nhàm chán nếu có nhiều địa chỉ cần chuyển đổi. Trong bài viết này, tôi sẽ nói về một số thủ thuật hay để đối phó với nhiệm vụ này.

Chuyển đổi nhiều địa chỉ email thành siêu liên kết với Công thức

Chuyển đổi nhiều địa chỉ email thành siêu liên kết với mã VBA

Chuyển đổi nhiều địa chỉ email thành siêu liên kết với Công thức

Với Liên kết , bạn có thể nhanh chóng chuyển đổi địa chỉ email cột thành địa chỉ siêu liên kết cùng một lúc.

1. Nhập công thức này = siêu liên kết ("mailto:" & A2) vào một ô trống nơi bạn muốn đặt kết quả, xem ảnh chụp màn hình:

2. Sau đó, kéo chốt điền xuống các ô mà bạn muốn chứa công thức này và tất cả các địa chỉ email đã trở thành siêu liên kết có thể nhấp được như ảnh chụp màn hình sau:

Chuyển đổi nhiều địa chỉ email thành siêu liên kết với mã VBA

Như bạn có thể thấy, bằng cách sử dụng công thức trên, một chuỗi “mailto:” sẽ được thêm vào trước mỗi địa chỉ email, nếu bạn không muốn mailto: trong các địa chỉ, mã VBA sau có thể giúp bạn.

1. Giữ Alt + F11 các phím trong Excel và nó sẽ mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán macro sau vào Mô-đun Cửa sổ.

Mã VBA: Chuyển đổi nhiều địa chỉ email thành siêu liên kết

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. Sau khi dán mã, vui lòng nhấn F5 nhập mã này và một hộp nhắc sẽ bật ra để nhắc bạn chọn phạm vi dữ liệu mà bạn muốn sử dụng, xem ảnh chụp màn hình:

4. Và sau đó nhấp vào OK, tất cả các địa chỉ email được chọn đã được chuyển đổi thành các địa chỉ siêu liên kết, xem ảnh chụp màn hình: