Excel批量提取超链接VBA教程

还在手动提取Excel中的超链接吗？太out啦！本文为你奉上超详细的**Excel批量提取超链接方法**，并提供**VBA代码教程**，让你告别繁琐操作，效率倍增！从单个工作表到整个工作簿，再到同时导出超链接的显示文本和实际地址，我们一步步教你如何利用VBA代码轻松搞定。无论你是需要提取链接地址，还是需要同时保留显示文本，都能找到对应的解决方案。还在等什么？赶快学习，让Excel成为你的效率神器！

首先使用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、选中目标区域后运行宏，将在右侧两列分别生成显示文本和实际链接地址。

今天带大家了解了的相关知识，希望对你有所帮助；关于文章的技术知识我们会一点点深入介绍，欢迎大家关注golang学习网公众号，一起学习编程~