过滤数据后在列中打开多个超链接（并且只打开那些）

Question

我有一个大约有 260 行的数据库。使用“自动过滤器”过滤后，我只需要打开剩余的和可见的超链接。所有超链接都是本地的，而不是在 Internet 上。

我已经在互联网上搜索过，但没有找到有效的答案。这个问题甚至在“Stackoverflow”这里提出，并且响应没有提供解决方案。

我用过：

Sub OpenHyperLinks()
    Dim xHyperlink As Hyperlink
    Dim WorkRng As Range
    On Error Resume Next
    xTitleId = "OpenHyperlinksInExcel"
    Set WorkRng = Application.Selection
    Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
    For Each xHyperlink In WorkRng.Hyperlinks
        xHyperlink.Follow
    Next
End Sub

这将打开所有超链接，而不仅仅是过滤后剩余的超链接。我有超过 200 个超链接，在使用“自动过滤器”进行过滤后，我需要保持可见的链接才能打开，并且只有那些链接。这些超链接是本地的，而不是互联网。