Sử dụng mã VBA
Cách sử dụng mã VBA để lấy link có thể giúp bạn trích xuất được nhiều địa chỉ liên kết một cách nhanh chóng.
Bước 1: Nhấn giữ ALT + Fn + F11 để mở hộp thoại Microsoft Visual Basic for Applications.
Bước 2: Nhấn Insert > Chọn Module.
Tiếp theo, dán đoạn mã sau vào khung.
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 |
Ta được:
Bước 3: Tiến hành nhấn F5 để tiến hành chạy mã > Chọn những Hyperlink bạn muốn trích xuất > Nhấn OK.
Trên một số dòng máy nếu bạn bấm F5 không chạy thì bấm Fn + F5.
Bước 4: Hiển thị kết quả.
0 nhận xét:
Đăng nhận xét