Note: The other languages of the website are Google-translated. Back to English

如何在Excel中一次更改多個超鏈接路徑?

出於某種目的,您可以為工作表中的數據創建多個超鏈接,並且所有超鏈接都鏈接到相同的文件路徑或地址,但是現在,您需要一次用另一個地址替換該超鏈接路徑。 單獨更改超鏈接的路徑可能會浪費大量時間,是否有解決此問題的快速方法?

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

一次更改工作表/工作簿/多個工作表/選擇中的多個超鏈接路徑,並具有驚人的功能


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

假設您具有與以下屏幕快照相同的超鏈接數據列表,並且具有VBA代碼,則可以使用新的VBA代碼快速替換工作表中的舊文件路徑或地址。

1. 按住 ALT + F11 鍵,然後打開 Microsoft Visual Basic應用程序窗口.

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。 點擊 OK,然後會彈出另一個提示框,提醒您輸入要使用的新超鏈接地址。

5。 然後點擊 OK,所有相同的舊超鏈接地址立即被新的替換。 查看屏幕截圖:


一次更改工作表/工作簿/多個工作表/選擇中的多個超鏈接路徑,並具有驚人的功能

如果要替換選區,多個工作表,當前工作簿或多個工作簿中的超鏈接路徑,該怎麼辦? 用 查找和替換 的特點 Excel的Kutools,您可以快速處理此任務。

備註:要應用此 查找和替換 實用程序,首先,您應該下載 Excel的Kutools,然後快速輕鬆地應用該功能。

安裝後 Excel的Kutools,請這樣做:

1。 點擊 庫工具 > 導航,請參見屏幕截圖:

2。 在開 導航 窗格中單擊 查找和替換 標籤,在 查找和替換 窗格中單擊 更換 標籤,然後執行以下操作:

  • 將您要查找的舊超鏈接文本輸入到 查找內容 文本框,然後在其中鍵入您要替換的新超鏈接文本。 更換 文本框;
  • 指定您要查找的範圍並從中替換超鏈接路徑 下拉列表;
  • 然後,從“查找範圍”下拉列表中選擇“超鏈接”;
  • 最後點擊 找到所有 按鈕,包含特定超鏈接文本的所有相應單元格都已列在底部列錶框中。

3。 然後,點擊 “全部替換” 按鈕,舊的超鏈接路徑已立即更改為新的,請參見屏幕截圖:

點擊下載Kutools for Excel免費試用!


更多相關文章:

  • 從超鏈接中提取實際地址
  • 假設您有一個包含超鏈接的單元格區域,現在您需要查看超鏈接的實際目的地,並從超鏈接中提取它們,如下面的屏幕截圖所示。 有沒有簡單的方法可以快速解決此問題?
  • 在Excel中將圖像URL轉換為實際圖像
  • 如果現在在A列中有一個圖像URL地址列表,那麼您想從URL下載相應的圖片,並將它們顯示在相鄰的B列中,如左圖所示。 在Excel中,如何快速,輕鬆地從圖像URL中提取實際圖片?
  • 在Excel中將網址文本轉換為可點擊的超鏈接
  • 假設您的工作表中有多個URL,但是它們沒有鏈接,現在您需要將所有未鏈接的URL轉換為可單擊的超鏈接,如下面的屏幕快照所示。 當然,您可以雙擊它們一次以使其可單擊,但是如果有很多URL,這將很耗時。 如何在Excel中自動將多個未鏈接的URL轉換為可單擊的超鏈接?
  • 從Excel超鏈接打開PDF文檔的特定頁面
  • 將單元格鏈接到PDF文件時,通常,單擊以打開超鏈接時,將轉到PDF文件的第一頁。 如果您需要通過單擊超鏈接直接跳到PDF文件的特定頁面,則本文可能會對您有所幫助。

最佳辦公效率工具

Kutools for Excel 解決了你的大部分問題,並將你的生產力提高了 80%

  • 重用: 快速插入 複雜的公式,圖表 以及您以前使用過的任何東西; 加密單元 帶密碼 創建郵件列表 並發送電子郵件...
  • 超級公式欄 (輕鬆編輯多行文本和公式); 閱讀版式 (輕鬆讀取和編輯大量單元格); 粘貼到過濾範圍...
  • 合併單元格/行/列 不會丟失數據; 拆分單元格內容; 合併重複的行/列...防止細胞重複; 比較範圍...
  • 選擇重複或唯一 行; 選擇空白行 (所有單元格都是空的); 超級查找和模糊查找 在許多工作簿中; 隨機選擇...
  • 確切的副本 多個單元格,無需更改公式參考; 自動創建參考 到多張紙; 插入項目符號,複選框等...
  • 提取文字,添加文本,按位置刪除, 刪除空間; 創建和打印分頁小計; 在單元格內容和註釋之間轉換...
  • 超級濾鏡 (將過濾方案保存並應用於其他工作表); 高級排序 按月/週/日,頻率及更多; 特殊過濾器 用粗體,斜體...
  • 結合工作簿和工作表; 根據關鍵列合併表; 將數據分割成多個工作表; 批量轉換xls,xlsx和PDF...
  • 超過 300 項強大的功能. 支持 Office / Excel 2007-2021 和 365。支持所有語言。 在您的企業或組織中輕鬆部署。 完整功能 30 天免費試用。 60 天退款保證。
kte選項卡201905

Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
officetab底部
按評論排序
留言 (45)
還沒有評分。 成為第一位評論!
網站主持人對此評論進行了最小化
令人驚嘆的它節省了我的大量精力。
網站主持人對此評論進行了最小化
愛它,你為我節省了大量的工作。
網站主持人對此評論進行了最小化
嗨,如果我需要在 Powerpoint 中而不是 excel 中更改鏈接,你能給我 VB 代碼嗎? 謝謝
網站主持人對此評論進行了最小化
嗨,這似乎很好用,但有些字符(例如“\”和“%”)。 就我而言,我有超鏈接地址,例如 [../../../../../../Application%20Data/Microsoft/2012/Relacom%20Uki-Kantvik-Tallinna-Pietari-Uki_saate151012.xls] 和我需要從數百個鏈接的地址開始 [../../../../../../Application%20Data/Microsoft/]。 鏈接的開頭相同,但結尾不同。 你有什麼好的建議嗎?
網站主持人對此評論進行了最小化
謝謝!!!! :lol: 這幫助很大。
網站主持人對此評論進行了最小化
我將如何更改它以更新鏈接到工作簿中引用而不是外部網址的超鏈接?
網站主持人對此評論進行了最小化
只是需要相同,嘗試這些更改: Sub ReplaceHyperlinks() 'Updateby20140220 Dim Wb As Workbook Dim Ws As Worksheet Dim xHyperlink As Hyperlink Dim xOld As String, xNew As String xTitleId = "CambiaLink" 'Set Ws = Application.ActiveSheet Set Wb = Application.ActiveWorkbook xOld = Application.InputBox("Old text:", xTitleId, "", Type:=2) xNew = Application.InputBox("New text:", xTitleId, "", Type:=2) For Each Ws在 Wb.Worksheets 'Application.ScreenUpdating = False 對於 Ws.Hyperlinks 中的每個 xHyperlink Debug.Print ("voy " & xHyperlink.SubAddress) xHyperlink.SubAddress = Replace(xHyperlink.SubAddress, xOld, xNew) Next Next Application.ScreenUpdating = True結束子
網站主持人對此評論進行了最小化
毛里西奧-你太棒了! 謝謝! 此外,對於另一份報告,我需要它來僅更新指定選項卡上的鏈接,這可能嗎?
網站主持人對此評論進行了最小化
謝謝謝謝謝謝!!!!!!! 你讓我在這里工作了 2 天
網站主持人對此評論進行了最小化
有沒有辦法同時更改多個超鏈接“要顯示的文本”?
網站主持人對此評論進行了最小化
感謝您提供精彩的程序。 像魅力一樣工作......“WLC”
網站主持人對此評論進行了最小化
傑出的! 非常感謝!!!!
網站主持人對此評論進行了最小化
嘿伙計們,我錯過了什麼,我在 Excel 2013 中收到 XTitleId 的“編譯錯誤 - 未定義變量”:cry:
網站主持人對此評論進行了最小化
不用擔心我想通了並設置為字符串
網站主持人對此評論進行了最小化
它幫了很多忙,非常感謝
網站主持人對此評論進行了最小化
這是我遇到過的最有用的 Excel 文章。 我遇到過很多問題,文件中的超鏈接損壞,或者我想移動一些超鏈接文件的位置,而更新一直是一個主要問題。 我的 Excel 程序員沒有簡單的修復方法。 這完美無缺。 我非常感謝 - 謝謝!
網站主持人對此評論進行了最小化
哇! 這為我節省了很多時間。 你真棒。 感謝分享!
網站主持人對此評論進行了最小化
這太棒了。 你為我節省了很多時間。 今天。 感謝分享!
網站主持人對此評論進行了最小化
非常感謝你開發這個! 我有一個用戶在多個選項卡(至少數百個)上創建了一堆超鏈接,並且不知何故,他們在他的 c 驅動器上擁有指向他的 AppData\Roaming 文件夾的文件路徑,而不是網絡文件夾。 我能夠使用您的 VBA 腳本刪除鏈接代碼的那部分,現在一切正常。 為我們節省了大約一周的更新時間,我用了不到 2 分鐘的時間來實施!
網站主持人對此評論進行了最小化
驚人的。 在 excel 2013 上的工作就像一個魅力,不需要調整,不像我見過的類似修復這個問題。 非常感謝。 節省了大量的頭痛和數小時的時間。
網站主持人對此評論進行了最小化
我試圖在包含其他文件夾引用的超鏈接上運行它,但它不起作用。 我將如何更改它以更新鏈接到硬盤驅動器內的文件夾而不是外部網址的超鏈接?
這裡還沒有評論
載入更多
留下你的意見
以訪客身份發帖
×
評價此帖子:
0   字符
推薦地點

關注我們

版權所有©2009 - 萬維網。extendoffice.com。 | 版權所有。 供電 ExtendOffice。 |
Microsoft和Office徽標是Microsoft Corporation在美國和/或其他國家的商標或註冊商標。
受Sectigo SSL保護