Jak filtrovat data pomocí hypertextových odkazů v aplikaci Excel?

V Excelu můžete filtrovat data podle určitého textu, čísla, barvy písma nebo barvy pozadí, ale zkusili jste někdy filtrovat všechna data pomocí hypertextových odkazů ve sloupci, jak je znázorněno na obrázku níže? V tomto článku představím VBA pro rychlé filtrování a zobrazení pouze řádků s hypertextovými odkazy v Excelu.

Filtrujte data pomocí hypertextových odkazů

Filtrujte data pomocí hypertextových odkazů

1. lis Alt + F11 klávesy pro povolení Microsoft Visual Basic pro aplikace okno.

2. cvaknutí Vložit > Modulzkopírujte a vložte níže uvedený kód do Modul okno.

VBA: Filtrování dat pomocí hypertextových odkazů

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. lis F5 pro výběr sloupce k filtrování.

4. cvaknutí OK, zobrazí se pouze hypertextové odkazy.