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

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

我有一个macros将单独打开这些URL，但我意识到这会使系统变慢，可能也不可能。

所以我想在脚本中做一些改变，只在选定的单元格中打开URL（例如20），例如，如果我select单元格A1：A20并运行macros，则应该在我的默认浏览器中打开它们，操作，我将select下一个20并再次运行macros。

这里是我的macros，请让我知道如何我可以改变只在选定的单元格上工作

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

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

 Sub Open_SelectedHyperlinks（）
     Dim c As Range
    如果不是TypeOfselect是范围然后退出子
    对于Selection.Cells中的每个c
        如果c.Hyperlinks.Count> 0那么_
             c.Hyperlinks（1）。遵循
    下一个
结束小组

否则，这将会跟随所有单元格，即使它们没有被input为超链接：

 Sub Open_SelectedTextlinks（）
     Dim c As Range

    如果不是TypeOfselect是范围然后退出子
    对于Selection.Cells中的每个c
        如果c.Hyperlinks.Count = 0那么
             ActiveSheet.Hyperlinks.Add Anchor：= c，_
                地址：=“http：//”＆c.Value“根据您的单元格的内容，删除”http：//“部分
        万一
         c.Hyperlinks（1）。遵循
    下一个
结束小组