Как фильтровать данные с гиперссылками в Excel?

В Excel вы можете фильтровать данные по определенному тексту, числу, цвету шрифта или цвету фона, но пробовали ли вы когда-нибудь фильтровать все данные с гиперссылками в столбце, как показано на скриншоте ниже? В этой статье я представлю VBA-код для быстрой фильтрации и отображения только строк с гиперссылками в Excel.

Фильтрация данных с гиперссылками

Фильтрация данных с гиперссылками

1. Нажмите клавиши Alt + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Щелкните Вставить > Модуль, скопируйте и вставьте приведенный ниже код в окно Модуля.

VBA: Фильтрация данных с гиперссылками

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. Нажмите клавишу F5, чтобы выбрать столбец для фильтрации.

4. Нажмите OKТеперь отображаются только строки с гиперссылками.