¿Cómo filtrar datos con hipervínculos en Excel?

En Excel, puedes filtrar datos por cierto texto, número, color de fuente o color de fondo, pero ¿alguna vez has intentado filtrar todos los datos con hipervínculos en una columna, como se muestra en la captura de pantalla a continuación? En este artículo, te presentaré un código VBA para filtrar rápidamente y mostrar solo las filas con hipervínculos en Excel.

Filtrar datos con hipervínculos

Filtrar datos con hipervínculos

1. Presiona las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic para Aplicaciones.

2. Haz clic en Insertar > Módulo, copia y pega el siguiente código en la ventana del Módulo.

VBA: Filtrar datos con hipervínculos

Sub HyperPicker()
'UpdatebyExtendoffice20180404
    Dim xRg As Range
    Dim xCell As Range
    On Error Resume Next
    Set xRg = Application.InputBox("Select a column:", "Kutools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    For Each xCell In xRg
        If xCell.Hyperlinks.Count = 0 Then
            xCell.EntireRow.Hidden = True
        End If
    Next
End Sub

3. Presiona la tecla F5 para seleccionar una columna para filtrar.

4. Haz clic Aceptar, solo se mostrarán los hipervínculos.