我如何过滤Excel中的超链接？

我有一些超链接行，没有超链接，我只想过滤超链接数据。 谢谢。

Answer 1

这就像你在评论部分提到的一样，将链接复制到列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 

Answer 2

高亮（select）希望过滤的列A中的单元格（不包括标题行）并运行这个小macros：

 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