Excel批量提取超链接VBA教程

大家好，我们又见面了啊~本文《Excel批量提取超链接方法_VBA代码教程》的内容中将会涉及到等等。如果你正在学习文章相关知识，欢迎关注我，以后会给大家带来更多文章相关文章，希望我们能一起进步！下面就开始本文的正式内容~

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

今天关于《Excel批量提取超链接VBA教程》的内容介绍就到此结束，如果有什么疑问或者建议，可以在golang学习网公众号下多多回复交流；文中若有不正之处，也希望回复留言以告知！