Comment filtrer des données avec des liens hypertexte dans Excel ?

Dans Excel, vous pouvez filtrer des données par un certain texte, nombre, couleur de police ou couleur d'arrière-plan, mais avez-vous déjà essayé de filtrer toutes les données contenant des liens hypertexte dans une colonne, comme le montre la capture d'écran ci-dessous ? Dans cet article, je vais vous présenter un code VBA pour rapidement filtrer et afficher uniquement les lignes contenant des liens hypertexte dans Excel.

Filtrer des données avec des liens hypertexte

Filtrer des données avec des liens hypertexte

1. Appuyez sur les touches Alt + F11 pour ouvrir la fenêtre Microsoft Visual Basic for Applications.

2. Cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans la fenêtre Module.

VBA : Filtrer des données avec des liens hypertexte

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. Appuyez sur la touche F5 pour sélectionner une colonne à filtrer.

4. Cliquez OK, seuls les liens hypertexte sont affichés.