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
网友评论