Giả sử bạn có một số ô trong bảng tính Excel của mình có chứa các đường link (Hyperlink) bây giờ chúng ta được yêu cầu trích xuất địa chỉ thực của chúng thì làm thế nào? Trong bài viết này, thủ thuật vn sẽ hướng dẫn các bạn cách lấy đường link trong file Excel một cách đơn giản chi tiết nhất nhé.
Trích xuất địa chỉ thực của các liên kết với tính năng Edit Hypelink
Edit Hyperlink là tính năng có thể giúp người dùng trích xuất những URL ẩn cho mỗi hyperlink sau đó đặt các địa chỉ thực đó vào một ô khác. Cách làm cụ thể như sau:
Bước 1: Nhấp vào ô có hyperlink, nhấn chuột phải, chọn Edit Hyperlink.
Bước 2: Từ hộp thoại Edit Hyperlink, bạn chọn và sao chép (Ctrl+C) phần đường dẫn từ ô Address
Bước 3: Đóng hộp thoại lại và dán địa chỉ liên kết vào bất cứ ô nào bạn muốn.
Lưu ý: Với phương pháp này, chúng ta chỉ có thể lấy 1 địa chỉ liên kết mỗi lần, và nếu chúng ta có nhiều hyperlink thì cần phải lặp lại các bước cho mỗi lần trích xuất.
Cách lấy đường link trong file Excel bằng mã VBA
Với quá nhiều hyperlink, phương pháp lấy link thủ công ở trên sẽ tốn nhiều thời gian, nên đoạn mã VBA sau sẽ 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: Trong giao diện Excel bạn nhấn giữ ALT+F11 để mở hộp thoại Microsoft Visual Basic for Applications.
Bước 2: Nhấn Insert => Module, và 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 yêu cầu chúng ta chọn những hyperlink bạn muốn trích xuất địa chỉ liên kết, như hình sau
Bước 4. Nhấn OK, và các đường link đã được chuyển thành địa chỉ thực.
Cách trích xuất đường link trong file Excel bằng hàm do người dùng tự tạo
Ngoài 2 cách trên chúng ta cũng có thể lấy đường link trong Excel bằng hàm tự tạo , cách làm như sau:
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, sau đó dán đoạn mã sau:
Function
GetURL(pWorkRng
As
Range)
As
String
'Updateby20140520
GetURL = pWorkRng.Hyperlinks(1).Address
End
Function
Bước 3. Lưu đoạn mã lại và đóng cửa sổ, chọn một ô trống và nhập công thức sau: =GetURL(A2) (A2 là ô chứa hyperlink), sau đó nhấn Enter. Ngay lập ức các bạn có thể thấy địa chỉ liên kết đã được trích xuất.
Lời kết.
Việc lấy đường link trong file Excel là đơn giản với trường hợp chỉ có vài link cần trích xuất thế nhưng với số lượng link cần trích xuất lớn chúng ta cần sử dụng VBA hoặc hàm tự tạo. Hi vọng cách lấy đường link trong file Excel ở trên sẽ giúp ích cho các bạn. Chúc các bạn học tốt.