Como verificar se um hiperlink existe em uma planilha no Excel?

Para verificar se um hiperlink existe em uma seleção, você pode usar o seguinte código VBA.

Verifique se um hiperlink existe em uma seleção com código VBA

Verifique se um hiperlink existe em uma seleção com código VBA

Você pode verificar se um hiperlink existe em uma seleção ou planilha com o seguinte código VBA.

1. Pressione simultaneamente as teclas Alt + F11 para abrir a janela Microsoft Visual Basic for Applications.

2. Na janela Microsoft Visual Basic for Applications, clique em Inserir > Módulo. Em seguida, copie e cole o seguinte código VBA na janela de Código.

VBA: Verifique se um hiperlink existe em uma seleção

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. Pressione a tecla F5 para executar o código. Depois disso, você receberá uma caixa de diálogo do Kutools para Excel, por favor, selecione um intervalo onde deseja verificar os hiperlinks e clique no botão OK.

Uma caixa de diálogo aparecerá, listando as células que contêm hiperlinks no intervalo selecionado.