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

作者Xiaoyang修改日期2024-10-10

基於某些需求，您可能已在工作表中為資料建立了多個超連結，且所有超連結皆指向相同的檔案路徑或網址。如今，若需將這些超連結一次性更新為新的位址，逐一手動修改勢必耗費大量時間——是否有更快速的解決方法？

使用 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 鍵執行此程式碼，系統將彈出提示方塊，請於舊文本方塊中輸入您的舊超連結地址。請參閱截圖：

用於輸入舊超連結位址的 VBA 程式碼

4. 點擊確定後，系統將彈出另一個提示方塊，提醒您輸入想要使用的新超鏈接地址。

用於輸入新超連結位址的 VBA 程式碼

5. 接著按一下確定，所有相同的舊超連結位址將立即被新位址取代。請參閱截圖：

使用強大功能在工作表／活頁簿／多張工作表／選取範圍中一次變更多個超連結路徑

想從選取範圍、多張工作表、目前活頁簿，甚至多個活頁簿中一次取代超連結路徑？立即使用 Kutools for Excel 的查找和替換功能，快速搞定！

Kutools for Excel 提供超過 300 項進階功能，簡化複雜作業，提升創造力與效率。整合 AI 功能，Kutools 能精準自動化各項任務，讓資料管理輕鬆無負擔。Kutools for Excel 的詳細資訊…… 免費試用……

注意：若要使用此 查找和替換 工具，首先需下載 Kutools for Excel，之後即可快速輕鬆地套用此功能。

安裝 Kutools for Excel 後，請依下列步驟操作：

1. 按一下 Kutools>導覽，請參閱截圖：

按一下 Kutools > 導覽

2. 在開啟的導覽窗格中，按一下查找和替換頁籤；接著在查找和替換窗格中，點選取代頁籤，然後執行下列操作：

在尋找目標文字方塊中輸入您要尋找的舊超連結文字，然後在取代為文字方塊中輸入您要用來取代的新超連結文字；
從範圍下拉清單中指定您要查找和替換超連結路徑的範圍；
接著，從「搜尋範圍」下拉清單中選擇「超連結」；
最後，按一下全部尋找按鈕，所有包含指定超連結文字的對應儲存格便會顯示於下方的清單方塊中。

在窗格中設定選項

3. 接著，點擊全部取代按鈕，即可立即將舊的超連結路徑更新為新路徑，請參閱截圖：

舊的超連結路徑已變更為新的路徑

立即點擊下載 Kutools for Excel，免費試用！

最佳 Office 生產力工具

🤖	KUTOOLS AI 助手：基於以下內容徹底革新數據分析：智慧執行｜產生程式碼｜建立自訂公式｜分析資料並產生圖表｜呼叫增強函數……
	熱門功能：尋找、醒目提示或標記重複值｜刪除空白行｜合併列或儲存格而不遺失資料｜不使用公式的四捨五入……
	高級 LOOKUP：多重條件 VLookup ｜多重數值 VLookup ｜跨多個工作表 VLookup ｜模糊查找……
	高級下拉列表：快速建立下拉式清單｜相依式下拉式清單｜多選下拉式清單……
	欄位管理員：新增指定數量的欄位｜移動欄位｜切換隱藏欄位的可見狀態｜比較範圍與欄位……
	精選功能：網格聚焦｜設計視圖｜增強編輯欄｜工作簿與工作表管理員｜資源庫（自動文字）｜日期提取｜合併工作表｜加密／解密儲存格｜依清單傳送電子郵件｜超級篩選｜特殊篩選（篩選粗體儲存格／斜體／刪除線……） ......
	頂尖 15 工具組：12 文字工具（添加文本，刪除特定字符，……）｜ 50+ 圖表類型（甘特圖，……）｜ 40+ 實用公式（基於生日計算年齡，……）｜ 19 插入工具（插入二維碼，從路徑插入圖片，……）｜ 12 轉換工具（金額轉大寫，匯率轉換，……）｜ 7 合併和拆分工具（高級合併行，分割儲存格，……）｜……以及更多