有时候遇到很多文件要下载，但是给出的都是文件名链接，只能一个一个点击文件名进行下载，数量多的话简直是头疼无比，如果能够把链接批量提取出来的话，就可以进行批量下载，省时又能省力。

上个月就曾遇到过这种情况，想要提取链接，在百度上搜索了一下方法，也是用excel，不过讲解的不够详细，最后不知道哪里操作不当还是肿么的，虽然依样画葫芦，但还是失败了。

然后之前也提到过上次买了本关于word/excel2010的书，每天有空翻一两篇，今天正好翻到“自定义函数”，讲解的就是提取超链接。试着操作了下，成功提取，步骤如下：

打开一个新页面，把需要提取链接的内容复制，粘贴到A1单元格。

选择“文件”选项卡，“另存为”，在保存类型下拉列表中选择“excel启用宏的工作薄”。

在功能区右键单击，“自定义功能区”，弹出“excel选项”，在右侧“主选项卡”中勾选“开发工具”，确定，开发工具选项卡可在功能区中显示了。

在“开发工具”中，点击“代码”中的“Visual basic”,打开编辑窗口，选择“插入”-“模块”，插入一个新模块，打开“模块1”窗口。

在窗口中输入如下代码：

Public Function cH(x As Range)
cH = x.Hyperlinks(1).Address
End Function

输入后点击工具栏中“保存”按钮。（如有对话框弹出，可单击之前“工作薄”的“开发工具”选项卡-“代码”中“宏安全性”，弹出对话框选择“个人信息选项”，右侧“文档特定设置”下撤选复选框后确定。然后再次回到“Visual basic”窗口，点击保存即可）