如何快速列出 Excel 中的所有超連結？

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

當您在使用工作表時，可能會建立許多超連結，有時需要確認這些文字究竟連結到哪裡。若逐一點擊檢查，不僅繁瑣還相當耗時。若能將工作表中所有超連結的文字及其對應的網址一併列出，就能輕鬆掌握 Excel 中的所有超連結！

使用 VBA 程式碼列出所有選取的超連結

1. 選取包含您要列出之超連結的範圍。

2. 按一下開發人員＞Visual Basic，將開啟全新的 Microsoft Visual Basic for Applications 視窗；接著點選插入＞模組，並將下列程式碼貼入模組中：

Option Explicit
Private Function GetHyperAddy(Cell As Range) As String
On Error Resume Next
GetHyperAddy = Cell.Hyperlinks.Item(1).Address
If Err.Number <> 0 Then GetHyperAddy = "None"
On Error GoTo 0
End Function
Sub DistillHyperlinks()
Dim HyperAddy As String, cl As Range, wsTarget As Worksheet, clSource As Range
Application.ScreenUpdating = False
Set clSource = Selection
On Error Resume Next
Set wsTarget = Sheets("Hyperlink List")
If Err.Number <> 0 Then 
Set wsTarget = Worksheets.Add
With wsTarget
.Name = "Hyperlink List"
With .Range("A1")
.Value = "Location"
.ColumnWidth = 20
.Font.Bold = True
End With
With .Range("B1")
.Value = "Displayed Text"
.ColumnWidth = 25
.Font.Bold = True
End With
With .Range("C1")
.Value = "Hyperlink Target"
.ColumnWidth = 40
.Font.Bold = True
End With
End With
Set wsTarget = Sheets("Hyperlink List")
End If
On Error GoTo 0
For Each cl In clSource
HyperAddy = GetHyperAddy(cl)
If Not HyperAddy = "None" Then
With wsTarget.Range("A65536").End(xlUp).Offset(1, 0)
.Parent.Hyperlinks.Add Anchor:=.Offset(0, 0), _
Address:="", SubAddress:=(cl.Parent.Name) & "!" & (cl.Address)
.Offset(0, 1).Value = cl.Text
.Hyperlinks.Add Anchor:=.Offset(0, 2), Address:=HyperAddy
End With
End If
Next cl
wsTarget.Select
End Sub

3. 接著按一下按鈕以執行程式碼，所有超連結將顯示於名為 Hyperlink List 的新工作表中。請參閱下方螢幕截圖：

顯示 Excel 新工作表中所列超連結的螢幕截圖

使用 Kutools for Excel 從超連結中提取所有實際網址

透過 Kutools for Excel 的轉換超鏈接功能，您能快速從超連結中提取實際網址！

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

1. 選取您要提取實際目標位置的超連結。

2. 接著按一下 Kutools＞連結＞ 轉換超鏈接，請參閱螢幕截圖：

顯示功能區 Kutools 索引標籤中「轉換超連結」選項的螢幕截圖

3. 在轉換超鏈接對話方塊中，先於超鏈接地址轉儲存格內容區段選取轉換類型選項，再於結果範圍區段指定要放置結果的儲存格，請參閱螢幕截圖：

「轉換超連結」對話方塊的螢幕截圖

4. 接著點擊確定按鈕，即可從超連結中提取所有實際網址，詳情請參閱螢幕截圖：

使用 Kutools 在 Excel 中提取超連結網址的螢幕截圖

注意：轉換來源區域：若您勾選此選項，提取結果將直接覆蓋原始儲存格範圍。

Kutools for Excel－透過超過 300 項必備工具全面強化 Excel，讓您的工作更快速、更輕鬆，並運用 AI 功能實現更聰明的資料處理與高效生產力！立即取得

相關文章：

如何快速刪除 Excel 中的所有超連結？

最佳 Office 生產力工具

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