批量打开excel的多个超链接（批量打开Excel里所有的）

前言｜职场实例

今天，小编遇到了这样的一个Excel问题：

在Excel中存在大量的超链接地址，我们如何快速的批量打开所有的超链接网址呢？

Excel超链接的作用：

1、可以快速通过点击链接，到达指定的网页、表格等。

2、方便管理，可以集中保存所需要的网址，文件链接，需要时点击超链接就可以即时打开。

通常的做法是鼠标一个一个点击超链接，然后自动打开链接地址。使用这种直白的方法完全没有考虑到数据量大，即超链接数量非常多的情况，如果有200个超链接网址，一个一个点开是不是效率很低下呢？

方案｜VBA代码解决方案

首先我们鼠标右击工作表的名称标签，点击“查看代码”按钮（或者按快捷键Alt F11），进入VBA代码编辑窗口，我们需要将下面的一段代码复制粘贴到该代码窗口中，然后点击关闭退出VBA窗口即可。

代码如下：

Private Sub Worksheet_SelectionChange(ByVal Target As Range) i = Hyperlinks.Count For j = 1 To i Shell "C:\Users\Administrator\AppData\Local\Google\Chrome\Application\chrome.exe " & Hyperlinks.Item(j).Address Next j EndSub

回到Excel工作表界面后，这时候我们只需要随意点击任意的一个单元格，奇迹发生了，我们发现Excel表格内所有的超链接网址就自动批量全部的打开了。效果如下图所示：

注意点：

这段VBA代码的格式是固定的，我们只需要复制粘贴即可。其中有一个位置的代码需要我们根据自己浏览器的具体情况而改变。即下方红框标出部分。

这部分代码代表我们浏览器的安装位置路径，可以决定我们使用哪一款浏览器打开网址超链接。由于我们每个人安装的浏览器不同，有的是自带的IE浏览器，有的是360浏览器，有的是谷歌浏览器等等，且安装的路径也因人而异。所以需要灵活变动。

那么我们该如何找到自己电脑浏览器的安装路径呢？

其中我们只需要确定选择好我们需要打开超链接的浏览器，比如我们本例中使用谷歌浏览器。然后鼠标右击浏览器桌面快捷方式图标，点击“属性”，进入“属性”对话框，在“快捷方式”选项卡下面找到“目标”，右边的路径信息即为安装路径，复制粘贴到VBA代码的红框标注部分即可。