首先打开任意一个包含多个网址链接的excel数据表格,然后按Alt+F11进入代码编辑页面图中的“sheet1”表格名就是要操作的,双击sheet1这个表格就会弹出代码输入窗口 接着在这个代码框中输入如下代码:
Sub 同时打开多个链接()
Dim i As Integer, n As Integer
n = 100 ‘一次打开的链接数,自行更改
For i = 0 To n – 1
ActiveCell.Offset(i, 0).Hyperlinks(1).Follow
Next
ActiveCell.Offset(n, 0).Activate
End Sub
输完以上代码后,系统会自动保存所输入的代码,直接关闭代码窗口即可。