Excel筛选表格后点击超链接如何用非默认浏览器IE打开

Sub openurl()
    Dim IELocation As String
    Dim MyURL As String
    Dim i As Integer
    Dim FinalRowFiltered As Long
    ' 若你的IE安装路径不是默认路径，请修改下方引号内的路径
    IELocation = "C:\Program Files\Internet Explorer\iexplore.exe"
    FinalRowFiltered = Sheet4.Cells(Rows.Count, "A").End(xlUp).Row
    For i = 2 To FinalRowFiltered
        ' 仅处理未被筛选隐藏的可见行
        If Not Sheet4.Rows(i).Hidden Then
            MyURL = Sheet4.Cells(i, 7)
            Shell (IELocation & " http://tool.filings.irc.site.com/tool/" & MyURL)
        End If
    Next i
End Sub

• 新增了行隐藏状态判断逻辑If Not Sheet4.Rows(i).Hidden Then，只有筛选后保留的可见行会被执行打开链接操作
• 将IE路径的赋值逻辑移到循环外，避免重复赋值，提升代码运行效率

如果你不需要批量打开所有可见行链接，而是想要点击单个超链接时自动用IE打开，可以将以下代码粘贴到Sheet4的代码模块中：

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink, Cancel As Boolean)
    Dim IELocation As String
    ' 仅对G列的超链接生效
    If Target.Range.Column = 7 Then
        Cancel = True
        ' 若你的IE安装路径不是默认路径，请修改下方引号内的路径
        IELocation = "C:\Program Files\Internet Explorer\iexplore.exe"
        Shell IELocation & " " & Target.Address
    End If
End Sub

• 打开你的Excel文件，按下Alt+F11组合键调出VBA编辑器
• 在左侧的工程列表中找到Sheet4，双击打开对应的代码编辑面板
• 按需粘贴上述对应代码，按下Ctrl+S保存文件
• 保存时请选择「Excel 启用宏的工作簿(*.xlsm)」格式，后续打开文件时选择启用宏即可正常使用功能

内容的提问来源于stack exchange，提问作者userbon