如何批量打开excel表格中的超链接？

   大家好，我是石景山SEO郝玉良，如何批量打开excel表格中的超链接？这是我在近期工作遇到难题，现在已经破解，愿与大家分享！

   好久没有更新博客，真是有点对不住自己，前一阵实在是太忙了，忙着找工作，找到了工作，工资、职位都提升了，反而工作压力更大了!在近期工作中，有一项工作是浩繁的，什么呢?就是我每天要检查外链专员发的帖子，3个外链专员，每个人一天200条外链，加起来算算，我就不说了。一个一个点击查看，其实我也知道应该抽查，但是本着对工作负责的态度，我还就较劲了，一个一个查，真是查的我眼冒血丝，头晕目眩啊，不过，我突然灵机一动，有没有可以批量打开excel表格中的超链接？破解方法如下：（本人用的是excel2007)

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

http://s13/mw690/ac7c86adgd7560d2de22c&690

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

http://s14/mw690/ac7c86adgd75618acef1d&690

 

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

http://s6/mw690/ac7c86adgd756210b2d95&690

      第四：点击两次“确定”

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

http://s10/mw690/ac7c86adg7bef04e10d19&690

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

http://s1/mw690/ac7c86adg7bef060d5240&690

        第七：出现一个白色对话框，粘贴下面的代码，放入白色框，其中“数字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

http://s13/mw690/ac7c86adg0695f38fcbbc&690

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

http://s8/mw690/ac7c86adgd756662502c7&690

    5.需要值得注意的时候，如果你所有的链接都是从记事本粘贴到电子表格上面的，那么会无法使用，因为你粘贴的是纯文本的形式，在EXCEL表格里面的操作都是无效的，只有在EXCEL表格里面的都是超链接，批量打开excel表格中的超链接就可以实现！

    石景山SEO郝玉良讲解完毕！如果你够聪明，你知道除用这个办法，还能做别的事情吗？好好想想，会有惊喜发现哟！