如何实现excel 批量打开多个超级链接?

2025-01-03 17:57:15
推荐回答(5个)
回答1:

1、首先,打开需要编辑的Excel表格,找到一个有链接的Excel,点击进入,进入后点击没有超链接的按键,会发现无法跳转网页。

2、单个变超链接的方法:鼠标左键双击超链接,然后按下“enter”按键。

3、但是当链接比较多的时候,这个按这个方法就有点麻烦了,所以需要其他方法,重新建立一列。

4、然后点击单元格,键入“=HYPERLINK()”,在()中输入想要变成超级链接的链接。

5、回车确定之后,下拉填充下面的单元格,就可以完成批量打开多个超级链接了。

回答2:

第一:工具栏空白处“右击”鼠标,点击“自定义快速访问工具栏”见下图

 
第二:窗口左侧点击“信任中心”,右侧点击“信任中心设置”见下图

第三:窗口左侧点击“宏设置”,右侧点击“启用所有宏”见下图

第四:点击两次“确定”

第五:将要查看的链接,放在电子表格的“B1”位置

第六:右键点击表格左下角“Sheet1”,左键点击“查看代码”

第七:出现一个白色对话框,粘贴下面的代码,放入白色框,其中“数字10”代表一次可以打开10个链接,见下图:

Sub OpenHprLnks()
Dim i As Integer
On Error Resume
Next
For i = 1 To 10
Cells(i, 2).Hyperlinks(1).Follow
NewWindow:=True
Next
End Sub

第八:不要关闭刚才粘贴的对话框,鼠标点击刚才粘贴的代码,摁“F5”键,出现一个“宏”对话框,点击“运行”后,会自动打开10个链接。

回答3:

用宏可以,但你要想好,一次打开这么多文件,小心电脑死机。

在excel里同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub test()
Dim i As Integer
For i = 1 To 10 '自己按需修改
Cells(i, 3).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Next
End Sub

在此界面直接按F5运行此宏,OK。

回答4:

第一:工具栏空白处“右击”鼠标,点击“自定义快速访问工具栏”见下图

第二:窗口左侧点击“信任中心”,右侧点击“信任中心设置”见下图

第三:窗口左侧点击“宏设置”,右侧点击“启用所有宏”见下图

第四:点击两次“确定”

第五:将要查看的链接,放在电子表格的“B1”位置

第六:右键点击表格左下角“Sheet1”,左键点击“查看代码”

第七:出现一个白色对话框,粘贴下面的代码,放入白色框,其中“数字10”代表一次可以打开10个链接,见下图:

Sub OpenHprLnks()
Dim i As Integer
On Error Resume
Next
For i = 1 To 10
Cells(i, 2).Hyperlinks(1).Follow
NewWindow:=True
Next
End Sub

第八:不要关闭刚才粘贴的对话框,鼠标点击刚才粘贴的代码,摁“F5”键,出现一个“宏”对话框,点击“运行”后,会自动打开10个链接。

回答5:

你好,用宏可以,但你要想好,一次打开这么多文件,小心电脑死机。
在excel里同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Sub test()
Dim i As Integer
For i = 1 To 10 '自己按需修改
Cells(i, 3).Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Next
End Sub
在此界面直接按F5运行此宏,OK。