如何在 Excel 中一次更改多個超連結路徑？

出於某些目的，您可能在工作表中為您的數據創建了多個超連結，並且所有超連結都指向相同的文件路徑或地址，但現在，您需要將這個超連結路徑替換為另一個地址。逐一更改超連結的路徑可能會浪費大量時間，是否有快速解決此問題的方法呢？

使用 VBA 代碼一次更改工作表中的多個超連結路徑

使用一項驚人的功能，在工作表／工作簿／多個工作表／選定區域中一次更改多個超連結路徑

使用 VBA 代碼一次更改工作表中的多個超連結路徑

假設您有一份數據清單，其中包含如以下截圖所示的相同超連結，通過使用 VBA 代碼，您可以快速將工作表中的舊文件路徑或地址替換為新的地址。

1. 按住 ALT + F11 鍵，這將打開 Microsoft Visual Basic for Applications 窗口。

2. 點擊 插入 > 模組，然後在模組窗口中粘貼以下宏代碼。

VBA 代碼：一次更改多個超連結路徑

Sub ReplaceHyperlinks()
'Updateby Extendoffice
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

3. 然後按 F5 鍵運行此代碼，會彈出一個提示框讓您在「舊文本」框中輸入舊的超連結地址。請參見截圖：

4. 點擊 確定，隨後會彈出另一個提示框提醒您輸入想要使用的新的超連結地址。

5. 然後點擊 確定，所有相同的舊超連結地址都會立即被新地址替換。請參見截圖：

使用一項驚人的功能，在工作表／工作簿／多個工作表／選定區域中一次更改多個超連結路徑

如果您想從選定區域、多個工作表、當前工作簿或多個工作簿中替換超連結路徑，該怎麼辦？借助 Kutools for Excel 的 尋找和替換 功能，您可以快速處理此任務。

安裝 Kutools for Excel 後，請按照以下步驟操作：

1. 點擊 Kutools > 導航，請參見截圖：

2. 在打開的 導航 窗格中，點擊 尋找和替換 標籤，在 尋找和替換 窗格中，點擊 替換 標籤，然後進行以下操作：

• 在 尋找內容 文本框中輸入您要查找的舊超連結文本，然後在 替換為 文本框中輸入您要用來替換的新超連結文本；
• 從 範圍 下拉列表中指定您要查找和替換超連結路徑的位置；
• 然後，從 查找範圍 下拉列表中選擇 超連結；
• 最後，點擊 查找全部 按鈕，所有包含特定超連結文本的對應單元格都將列在底部的列表框中。

3. 然後，點擊 全部替換 按鈕，舊的超連結路徑將立即更改为新的路徑，請參見截圖：

點擊免費試用版下載 Kutools for Excel！

更多相關文章：