如何批量分批次打开excel表格中的超链接？-excel单元格多个超链接,excel超链接到指定单元格

给出你核心的代码语句，其他自己改，

其实就是循环单元格，然后打开其中的链接，

代码中的Selection是当前选中的区域zd，可以根据实际需要修改~

第一种是打开指定选区内的所有超级链专接

第二种是打开整个工作表内所有的超级链接属

根据需要修改就行，

Sub OpenHyperlinks1()
    On Error Resume Next '如果单元格中没有超级链接会报错，此句代码防错处理
    
    For Each Rng In Selection '循环选区中的各个单元格
        Rng.Hyperlinks(1).Follow '打开单元格中的超级链接
    Next
End Sub


Sub OpenHyperlinks2()
    On Error Resume Next '如果单元格中没有超级链接会报错，此句代码防错处理
    
    For Each objLink In Worksheets(1).Hyperlinks '循环第一个sheet中的所有超级链接
        objLink.Follow '打开单元格中的超级链接
    Next
End Sub

SEO石景山讲解：“
第二：窗口左侧点击“信任中心”，右侧点击“信任中心设置”见下图
第三：窗口左侧点击“宏设置”，右侧点击“启用所有宏”见下图
第四：点击两次“确定”
第五：讲你要查看的链接，放在电子表格的“B1”位置
第六：右键点击表格左下角“Sheet1”,左键点击“查看代码”
第七：出现一个白色对话框，粘贴下面的代码，放入白色框，其中“数字4”代表一次可
以打开4个链接，见下图：
Sub 打开连接()Dim i AsLong, n As Long
For i = 0 To4
Shell "explorer " & ActiveCell.Offset(i, 0)Next
ActiveCell.Offset(i, 0).ActivateEnd Sub
第八：点击工具栏上面636f7079e799bee5baa6333的“开发工具—插入—摁钮（窗体控件）”见下图
第九：在电子表格空白处画一个“按钮”图形，出现一个“指定宏”对话框，选择“Sheet1.打开连接”点击确定；
第十：鼠标点击“B1”点击“按钮1”会自动出现定义的4个链接地址，同时，电子表格自动由“B1”移动到了“B6”再次点击“按钮1”又会出现4个链接，以此类推，
巧妙的完成了批量分批次打开excel表格中的超链接。
要批量打开
不用excel，用随便哪个浏览器，把要打开的网址收藏到收藏夹的一个文件夹里，点右键--打开所有标签即可

按Alt+F11，打开VBA编辑器，知
输入如下内道容：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = Hyperlinks.Count
For j = 1 To i
Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & Hyperlinks.Item(j).Address
Next j
End Sub

然后你再内随便点个单容元格试试看