怎样批量激活excel中的超链接

环境：百Excel2003，超链接是通过在单元格上右击选择“超链接”而产生的超链接度；
注意：这种超链接是无法通过excel的查找功能查找具体的超链接路径的，也就无法用查找替换来批量修改超链接路径了知；
下面介绍一种方法：

点击菜单，工具→宏→Microsoft 脚本编辑器，道是不是发现从这里可以看到超链接的具体路径呢！
现在好办事了，用查找替换的方法快速修改超链接路径，修改完后，点击菜单，文件→将所选项目存为专...→保存为一个html文件，完成后，再用excel打开该html文件，最后重新保属存该文件为"microsoft office excel工作簿"文件。

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

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

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

第四：点击两次“确定”
第五：将你要查看的链接，放在电子表格的“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表格里面的操作都是无效的，只有在EXCEL表格里面的都是超链接，批量打开excel表格中的超链接就可以实现！

在excel中手工输入网址应该会自动转为超链接的，如果没有可以用下图方法

在E1中输入公式：

=HYPERLINK("http://"&D1,D1)

回车  然后下拉公式即可将所有的转成超链接。

1. 确保宏可以启用copy。在此Excel中同时按Alt和F11，进入宏界面

2. 点菜单的插入百，模块，粘贴如下代码：

Sub test()

For Each cell In Range("A2:A48")

cell.Offset(0, 1) = cell.Hyperlinks(1).Address

Next

End Sub

把A2:A48改为你实际有超链度接的单元格区域

   3.  直接按F5运行此宏，在对应的右边一格出现超链接地址