在excel中录入网址可以点击后直接跳转到该网址。有的时候，我们需要获取所有这些地址

如何选择工作表中所有包含超链接的单元格呢，用定位或查找的方法无法实现。

下面我们通过一段VBA代码来可以实现这个功能。

在工作表的 VBA后台录入以下函数代码：

Sub SelectHyperlinkCells()     Dim hHlink As Hyperlink     Dim rRange As Range     Dim NotFirstlink As Boolean     On Error Resume Next     For Each hHlink In ActiveSheet.Hyperlinks         If NotFirstlink Then             Set rRange = Application.Union(rRange, hHlink.Range)         Else             Set rRange = hHlink.Range             NotFirstlink = True         End If     Next     If rRange Is Nothing Then End     rRange.Select End Sub

运行“SelectHyperlinkCells”函数即可选择工作表中所有包含超链接的单元格。如下图