Question

我有一个大约有1200个URL的Excel文件。

我有一个宏可以单击打开这些URL，但我意识到这会使系统变慢并且可能也不可能。

所以我想在脚本中进行一些更改，只在选定的单元格中打开URL（例如20），例如如果我选择Cell A1：A20并运行宏，它应该在我的默认浏览器中打开它们，一旦完成我的操作，我将选择下一个20并再次运行宏。

这是我的宏，请让我知道如何更改为仅在选定的单元格上工作

Sub Open_Hyperlinks()
    Dim i, LastRow
    LastRow = Range("A" & Rows.Count).End(xlUp).Row
    For i = 1 To LastRow
        If Cells(i, "A").Hyperlinks.Count > 0 Then
            Cells(i, "A").Hyperlinks(1).Follow
        End If
    Next
End Sub

非常感谢帮助

Answer 1

如果您的单元格已作为超链接输入，请使用以下命令：

Sub Open_SelectedHyperlinks()
    Dim c As Range
    If Not TypeOf Selection Is Range Then Exit Sub
    For Each c In Selection.Cells
        If c.Hyperlinks.Count > 0 Then _
            c.Hyperlinks(1).Follow
    Next
End Sub

否则，这将跟随所有单元格，即使它们未作为超链接输入：

Sub Open_SelectedTextlinks()
    Dim c As Range

    If Not TypeOf Selection Is Range Then Exit Sub
    For Each c In Selection.Cells
        If c.Hyperlinks.Count = 0 Then
            ActiveSheet.Hyperlinks.Add Anchor:=c, _
                Address:="http://" & c.Value 'Depending on the content of your cell, remove the "http://" & part
        End If
        c.Hyperlinks(1).Follow
    Next
End Sub

在MS Excel中的默认浏览器（Chrome）中打开选定的URL

1 个答案: