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