Hướng dẫn thay đổi hàng loạt link trong file Excel

Hôm nay mình sẽ hướng dẫn các bạn cách đổi hàng loạt link trong file Excel.
Giả sử bạn có file Excel có nội dung như sau:

Tất cả link trong file Excel đều trỏ tới trang https://www.google.com.vn
Bạn muốn thay đổi link hàng loạt, trỏ tới 1 trang khác, ví dụ như trang https://ebook4u1001.blogspot.com
Sau đây là cách thực hiện

Bạn mở file Excel cần chỉnh sửa, bấm tổ hợp phím tắt Alt + F11 để mở Microsoft Visual Basic for Applications Window.
Click Insert > Module, và copy đoạn code sau đây vào cửa sổ Module window.

Sub ReplaceHyperlinks()
 Dim Ws As Worksheet
 Dim xHyperlink As Hyperlink
 Dim xOld As String, xNew As String
 xTitleId = "KutoolsforExcel"
 Set Ws = Application.ActiveSheet
 xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2)
 xNew = Application.InputBox("New text:", xTitleId, "", Type:=2)
 Application.ScreenUpdating = False
 For Each xHyperlink In Ws.Hyperlinks
  xHyperlink.Address = Replace(xHyperlink.Address, xOld, xNew)
 Next
 Application.ScreenUpdating = True
End Sub

Bấm F5 để chạy đoạn code trên.
Một hộp thoại sẽ xuất hiện, yêu cầu bạn nhập hyperlink mà bạn cần thay thế.
Bạn gõ:  www.google.com.vn, rồi bấm OK

Hộp thoại thứ 2 sẽ xuất hiện, bạn gõ đoạn text cần thay thế, vd:  ebook4u1001.blogspot.com, sau đó bấm OK

Quay trở lại kiểm tra, bạn sẽ thấy link đã được thay thế:

Chúc các bạn thành công