用EXCEL批量提取文字链接或网址

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

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

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

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

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

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

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

在窗口中输入如下代码:

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

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

回到工作薄,在B2单元格输入“=cH”,会出现下拉列表,双击“cH”项,再点选A2,输入“)”,然后enter键可以提出链接,再使用填充柄填充其他单元格就OK了!