使用VBA代码实现可以实现。
1. 右键单击工作表标签,选择查看代码。
2. 复制下列代码:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
i = Hyperlinks.Count
For j = 1 To i
Shell "C:\Program Files\Google\Chrome\Application\chrome.exe " & Hyperlinks.Item(j).Address
Next j
End Sub
3. 鼠标点击工作簿任意位置即可。