Excel批量打开超链接

excel里alt+F11插入模块，输入截图中的内容即可。

数量为一次性打开链接数量，测试改为对应的sheet表

Sub 打开超链接()

数量 = 25

x = 0

For Each h In Worksheets("测试").Hyperlinks

x = x + 1

If x > 数量 Then Exit For

h.Follow

Next h

End Sub

Sub 打开超链接()

方法二：

A1列为超链接，模块里输入以下代码：

Sub 打开超链接()

Dim rg

For Each rg In Range("A1").CurrentRegion

If rg.Hyperlinks.Count > 0 Then

rg.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=False

End If

Next

End Sub

方法三：

10为数量，模块里输入以下代码：

Sub 打开链接()

Dim i As Long, n As Long

For i = 0 To 10

Shell "explorer " & ActiveCell.Offset(i, 0)

Next

ActiveCell.Offset(i, 0).Activate

End Sub