接着我们在这个代码框中输入如下代码:
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
输完以上代码后,系统会自动保存所输入的代码,直接关闭代码窗口即可。
二、第二步我们要设置excel的宏,进入刚才的excel数据表格,然后在菜单 – 工具 – 宏 – 宏 – 选择“一次打开excel表格所有链接郭善徽”,如下图: