如何用浏览器自动打开Excel中的超链接

用这个代码吧，测试可行：

Sub Macro2()
Dim i, j As Integer
If Cells(2, 5).Value = "" Or Cells(2, 6).Value = "" Then Exit Sub
For i = Cells(2, 5).Value To Cells(2, 6).Value
Cells(i, 3).Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Windows("连接问题.xls").Activate
Next
End Sub

在宏编辑器中使用选择区的Hyperlink对象即可

使用Hyperinks(Index)可打开指定索引号中的超链接

题中指很多，所以可使用FOR循环来解决这个问题。

例：

Sub OpenHprLnks()

Dim i, j As Integer
For i = 1 To 7
For j = 1 To 3
If Cells(i, j).Hyperlinks.Count <> 0 Then
Cells(i, j).Hyperlinks(1).Follow
End If
Next
Next

End Sub

即可调用浏览器打开超链接

注意:i指单元格横坐标,j指单元格纵坐标

简单的问题让楼上搞得那么复杂。
假设你的所有的连接都在sheet1工作表。

1、ALT+F11进入VBA编辑器，
2、在左上角的工程资源管理器（如果没有按组合键ctrl + R调出来)，双击sheet1，在右侧的空白代码区粘贴下面代码。
<