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

要检查选择中是否存在超链接，可以尝试以下VBA代码。

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

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

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

1。 按 其他 + F11 同时打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击 插页 > 模块。 然后将以下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 对话框中，请选择一个您想知道是否存在超链接的范围，然后单击 OK 按钮。

然后会弹出一个对话框，向您显示包含选定范围内的超链接的单元格。