excel vba选取所有包含超链接的单元格

在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”函数即可选择工作表中所有包含超链接的单元格。如下图