如何快速列出Excel中的所有超链接？

在使用工作表时，我们可能会在其中创建许多超链接，有时我们需要知道这些文本链接到哪里。如果逐个点击它们，将会非常繁琐且耗时。如果能在工作表中列出所有带有文本和超链接地址的超链接，那么检查Excel中的所有超链接将变得非常容易。

使用VBA代码列出所有选定的超链接

使用Kutools for 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然后点击 按钮运行代码。所有超链接将显示在一个名为 超链接列表的新工作表中。见截图：

使用Kutools for Excel提取所有实际地址的超链接

通过Kutools for Excel的转换超链接功能，您可以快速从超链接中提取实际地址。

1. 选择您想要提取真实目标的超链接。

2. 然后点击 Kutools > 链接 > 转换超链接，见截图：

3. 在“转换超链接”对话框中，从“转换类型”部分选择“超链接地址替换单元格内容”选项，然后在“结果范围”部分指定一个单元格以放置结果，见截图：

4. 然后点击确定按钮，所有真实地址都已从超链接中提取出来，见截图：

注意：转换来源区域：如果勾选此选项，提取的结果将位于原始单元格区域上。

相关文章：

如何快速删除Excel中的所有超链接？