首先使用VBA代码提取单个工作表中超链接，通过遍历选中区域将地址填入右侧单元格；接着可扩展至整个工作簿，循环处理每个工作表的已用区域；最后支持同时导出超链接的显示文本和实际地址，实现双列输出，提升数据处理效率。
如果您在Excel中处理大量包含超链接的单元格，需要提取其中的链接地址，手动操作将非常耗时。通过使用VBA代码可以高效实现批量提取超链接的目标。
本文运行环境：联想ThinkPad X1 Carbon，Windows 11
一、使用VBA代码提取单个工作表中的超链接
通过编写简单的VBA宏，遍历选定区域内的每个单元格，判断是否存在超链接，并将其地址输出到相邻单元格中。
1、按下 Alt + F11 打开VBA编辑器。
2、在左侧工程资源管理器中双击对应的工作表名称，打开代码窗口。
3、粘贴以下代码：
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next cell
4、关闭编辑器，返回Excel界面，选中包含超链接的单元格区域。
5、再次打开VBA编辑器，插入一个新模块，将完整代码写入：
Sub ExtractHyperlinks()
Dim cell As Range
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next cell
End Sub
6、运行宏后，所选区域中每个超链接的地址将自动填充到其右侧单元格。
二、提取整个工作簿中所有工作表的超链接
当数据分布在多个工作表时，可通过循环遍历所有工作表来统一提取超链接地址。
1、按 Alt + F11 进入VBA编辑器。
2、插入一个新模块，粘贴以下代码：
Sub ExtractAllSheetsHyperlinks()
Dim ws As Worksheet
Dim cell As Range
For Each ws In ThisWorkbook.Worksheets
For Each cell In ws.UsedRange
If cell.Hyperlinks.Count > 0 Then
cell.Offset(0, 1).Value = cell.Hyperlinks(1).Address
End If
Next cell
Next ws
End Sub
3、运行该宏，系统将自动处理所有工作表中的已用区域，并在每个超链接右侧写出其地址。
三、将超链接文本与地址同时导出
某些情况下需要同时保留原始显示文本和对应的链接地址，可通过增强型代码实现双列输出。
1、打开VBA编辑器并新建模块。
2、输入以下代码：
Sub ExtractTextAndLink()
Dim cell As Range
For Each cell In Selection
If cell.Hyperlinks.Count > 0 Then
With cell.Hyperlinks(1)
cell.Offset(0, 1).Value = .TextToDisplay
cell.Offset(0, 2).Value = .Address
End With
End If
Next cell
End Sub
3、选中目标区域后运行宏，将在右侧两列分别生成显示文本和实际链接地址。
