1

我有一个包含大约 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

高度赞赏帮助

4

1 回答 1

0

如果您的单元格已经作为超链接输入,请使用:

子 Open_SelectedHyperlinks()
    调暗 c 作为范围
    如果不是类型选择是范围然后退出子
    对于 Selection.Cells 中的每个 c
        如果 c.Hyperlinks.Count > 0 那么 _
            c.超链接(1).Follow
    下一个
结束子

否则,这将跟随所有单元格,即使它们没有作为超链接输入:

子 Open_SelectedTextlinks()
    调暗 c 作为范围

    如果不是类型选择是范围然后退出子
    对于 Selection.Cells 中的每个 c
        如果 c.Hyperlinks.Count = 0 那么
            ActiveSheet.Hyperlinks.Add Anchor:=c, _
                Address:="http://" & c.Value '根据你的单元格内容,去掉"http://" & 部分
        万一
        c.超链接(1).Follow
    下一个
结束子
于 2013-02-04T08:39:17.910 回答