Hoe gegevens met hyperlinks filteren in Excel?

In Excel kunt u gegevens filteren op bepaalde tekst, getallen, lettertypekleur of achtergrondkleur, maar heeft u ooit geprobeerd om alle gegevens met hyperlinks in een kolom te filteren, zoals te zien is in de onderstaande schermafbeelding? In dit artikel introduceer ik een VBA om snel te filteren en alleen de rijen met hyperlinks in Excel weer te geven.

Gegevens filteren met hyperlinks

Gegevens filteren met hyperlinks

1. Druk op Alt + F11 toetsen om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik op Invoegen > Module, kopieer en plak onderstaande code in het Module-venster.

VBA: Gegevens filteren met hyperlinks

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. Druk op de F5-toets om een kolom te selecteren om te filteren.

4. Klik OK, alleen de hyperlinks worden weergegeven.