Question

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

比如我想打开C列 C1--C10这10个超级链接该怎么做 要是打开C1--C50这50个超级链接又该怎么做呢 求高人指点. 多谢!

Answer 1

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

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

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

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

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

Answer 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个链接。

Answer 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。

Answer 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个链接。

Answer 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。