Hướng dẫn cách lấy đường link trong file Excel

Bạn đang có một số ô có chứa Hyperlink và bạn cần trích xuất địa chỉ thực của các đường link này? Vậy cách lấy đường link trong file Excel là gì? Hãy cùng tìm hiểu chi tiết trong bài viết dưới đây nhé!

TRÍCH XUẤT ĐỊA CHỈ THỰC CỦA CÁC LIÊN KẾT VỚI TÍNH NĂNG EDIT HYPERLINK

Tính năng Edit Hyperlink có khả năng giúp bạn trích xuất các URL ẩn cho mỗi hyperlink, cũng như đặt các địa chỉ thực đó vào một ô khác. Bạn có thể tham khảo các bước sau:

Bước 1. Kích chọn ô có hyperlink, nhấp phải rồi chọn Edit Hyperlink.

Bước 2. Từ hộp thoại Edit Hyperlink, kích chọn và sao chép (Ctrl+C) phần đường dẫn từ ô Address

Bước 3. Đóng hộp thoại và tiến hành dán địa chỉ liên kết vào bất cứ ô nào bạn muốn.

Chú ý: Với cách làm này, mỗi lần bạn chỉ có thể lấy 1 địa chỉ liên kết. Nếu như bạn có nhiều hyperlink, bạn cần phải lặp lại các bước cho mỗi lần trích xuất.

Xem thêm: Hướng dẫn kiểm tra phiên bản Office đang sử dụng

TRÍCH XUẤT ĐỊA CHỈ THỰC TỪ HYPERLINK VỚI MÃ VBA

Vậy nếu thao tác với nhiều hyperlink, phương pháp trên sẽ tốn nhiều thời gian. Vì thế, đoạn mã VBA sau đây có thể giúp bạn cùng lúc trích xuất nhiều địa chỉ liên kết một cách nhanh chóng.

Bước 1. Nhấn giữ ALT+F11 để thực hiện mở hộp thoại Microsoft Visual Basic for Applications.

Bước 2. Nhấn Insert > Module, rồi dán đoạn mã sau:

Sub Extracthyperlinks()

‘Updateby20140318

Dim Rng As Range

Dim WorkRng As Range

On Error Resume Next

xTitleId = “Hoc Excel Online”

Set WorkRng = Application.Selection

Set WorkRng = Application.InputBox(“Range”, xTitleId, WorkRng.Address, Type:=8)

For Each Rng In WorkRng

If Rng.Hyperlinks.Count > 0 Then

Rng.Value = Rng.Hyperlinks.Item(1).Address

End If

Next

End Sub

Bước 3. Nhấn F5 để chạy mã, lúc này một hộp thoại hiện ra và yêu cầu bạn chọn các hyperlink bạn muốn trích xuất địa chỉ liên kết, như hình minh họa bên dưới.

Bước 4. Nhấn OK, và những hyperlink đã được chuyển thành địa chỉ thực.

TRÍCH XUẤT ĐỊA CHỈ THỰC TỪ HYPERLINK VỚI HÀM DO NGƯỜI DÙNG TỰ TẠO

Hàm tự tạo sau đây có thể lấy được địa chỉ thực từ các Hyperlink.

Bước 1. Nhấn giữ ALT+F11 để mở hộp thoại Microsoft Visual Basic for Applications.

Bước 2. Nhấn Insert > Module, rồi dán đoạn mã sau:

Function GetURL(pWorkRng As Range) As String

'Updateby20140520

GetURL = pWorkRng.Hyperlinks(1).Address

End Function

Bước 3. Tiến hành lưu đoạn mã và đóng cửa sổ, sau đó chọn một ô trống và nhập công thức sau: =GetURL(A2) (A2 là ô chứa hyperlink), nhấn Enter. Đến đây, bạn có thể thấy địa chỉ liên kết đã được trích xuất.