如何检查Excel工作表中是否存在超链接？

要检查选定区域中是否存在超链接，可以使用以下VBA代码。

使用VBA代码检查选定区域中是否存在超链接

使用VBA代码检查选定区域中是否存在超链接

您可以使用以下VBA代码检查选定区域或工作表中是否存在超链接。

1. 同时按下 Alt + F11 键以打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，点击 插入 > 模块。然后复制并将以下VBA代码粘贴到代码窗口中。

VBA：检查选定区域中是否存在超链接

Sub HyperlinkCells()
    Dim xAdd As String
    Dim xTxt As String
    Dim xCell As Range
    Dim xRg As Range
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.AddressLocal
    Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count > 0 Then xAdd = xAdd & xCell.AddressLocal & ", "
    Next
    If xAdd <> "" Then
        MsgBox "Hyperlink existing in the following cells: " & vbCrLf & vbCrLf & Left(xAdd, Len(xAdd) - 1), vbInformation, "Kutools for Excel"
    End If
End Sub

3. 按下 F5 键运行代码。随后将弹出一个 Kutools for Excel 对话框，请选择要检查超链接的区域，并点击 确定 按钮。

接着会弹出一个对话框，列出所选区域中含有超链接的单元格。