excel - Excelでハイパーリンクをフィルタリングするにはどうすればよいですか?

Question

ハイパーリンクのある行とハイパーリンクのない行があり、ハイパーリンク データのみをフィルター処理したいと考えています。ありがとうございました。

Answer 1

フィルター処理する列 A のセルを強調表示 (選択) し (ヘッダー行を除く)、次の小さなマクロを実行します。

Sub HyperPicker()
    Dim r As Range
    For Each r In Selection
        If r.Hyperlinks.Count = 0 Then
            r.EntireRow.Hidden = True
        End If
    Next
End Sub

Answer 2

これにより、コメント セクションで述べたように、列 B へのリンクを含むハイパーリンクがコピーされます。

Sub Macro1()
    cnt = 1
    For Each cell In Range("A:A")
        If cell.Hyperlinks.Count > 0 Then
            Range("B" & cnt) = cell
            ActiveSheet.Hyperlinks.Add Range("B" & cnt), cell.Hyperlinks(1).Address
            cnt = cnt + 1
        End If
    Next
End Sub