Excelでハイパーリンク付きのデータをフィルターする方法は？

Excelでは、特定のテキスト、数字、フォントの色、または背景色でデータをフィルタリングできますが、下のスクリーンショットに示すように、列内のすべてのハイパーリンク付きデータをフィルタリングしたことはありますか？この記事では、Excelでハイパーリンクのある行だけを迅速にフィルタリングして表示するためのVBAを紹介します。

ハイパーリンク付きのデータをフィルタリング

ハイパーリンク付きのデータをフィルタリング

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すると、ハイパーリンクのみが表示されます。