本文的背景是：大学关系很好的老师问我能不能把Excel中1000个超链接网址对应的pdf文档下载下来。

虽然可以手动一个一个点击下载，但是这样太费人力和时间了。我想起了之前的爬虫经验，给老师分析了一下可行性，就动手实践了。

没想到刚开始就遇到了困难，Excel中的超链接读到Python中直接显示成了中文。

所以第一步就是把超链接对应的网址梳理出来，再用Python去爬取对应网址的pdf。

本文分享批量爬虫下载文件的第一步，从Excel中把超链接转换成对应网址。下一篇文章分享批量爬虫下载pdf文件的代码。

本文目录

想要得到的效果

把超链接转换成对应网址的3个方法

2.1 方法一：单个超链接鼠标点击转换

2.2 方法二：自动套用格式转换

2.3 方法三：自定义VBA函数转换

一、想要得到的效果

首先来看下想要得到的效果，第一列是原始的超链接，第二列是我们想要得到的对应网址。

二、把超链接转换成对应网址的3个方法

网上有很多方法实现超链接转换，我分享3个自己尝试的方法，前2个都失败了，最后1个是成功的。

1 方法一：单个超链接鼠标点击转换

第一个方法是选中想要把超链接转换成对应网址的单元格，接着双击鼠标左键，然后回车，单元格内容就会自动转换成网址。

这种方法只适合转换超链接数量较少的情况，我在尝试过程中失败了。

2 方法二：自动套用格式

第二个方法是单击文件-更多-选项-校对-自动更正选项-键入时自动套用格式，选中Internet及网络路径替换为超链接，然后点击确定。

第二个方法我尝试下来还是失败了……

3 方法三：自定义VBA函数转换

第三个方法是自定义VBA函数进行转换。

[1]启用【开发工具】，具体步骤如下：

左键单击菜单栏中的【文件】选项卡，然后左键单击【更多】，接着左键单击【选项】。左键单击【Excel 选项】中的【自定义功能区】选项，然后将【开发工具】前的小方格打上对勾，然后左键单击【确定】按钮，此时菜单栏中会多出一个选项【开发工具】。

step1：左键单击菜单栏中的【文件】选项卡，然后左键单击【更多】，接着左键单击【选项】。

step2：左键单击【Excel 选项】中的【自定义功能区】选项，然后将【开发工具】前的小方格打上对勾，然后左键单击【确定】按钮。

step3：查看菜单栏中是否多出一个选项【开发工具】。

[2]自定义一个VBA函数GetAdrs。

首先左键单击【开发工具】选项，然后左键单击【代码】功能区中的【Visual Basic编辑器】。右键单击【工程资源管理器】窗口，将鼠标指针移动至【插入】选项，左键单击二级菜单中的【模块】选项，插入【模块1】，并将以下代码复制粘贴到【模块1】的代码窗口后，最后关闭Visual Basic编辑器。

step1：左键单击【开发工具】选项，然后左键单击【代码】功能区中的【Visual Basic编辑器】。

step2：右键单击【工程资源管理器】窗口，将鼠标指针移动至【插入】选项，左键单击二级菜单中的【模块】选项，插入【模块1】，并将以下代码复制粘贴到【模块1】的代码窗口后，最后关闭Visual Basic编辑器。

Function GetAdrs(Rng)  Application.Volatile True  With Rng.Hyperlinks(1)    GetAdrs = IIf(.Address = "", .SubAddress, .Address)  End WithEnd Function

[3]用函数GetAdrs获取网址。

首先左键单击选中【B2】单元格，键入自定义函数【=GetAdrs(A2)】，按回车键进行计算。将鼠标指针移动至【B2】单元格右下角，当鼠标指针变成【+】号后，长按鼠标左键并向下拖动进行公式填充。

至此，把Excel中的超链接快速变成网址已经讲解完毕，感兴趣的同学可以自己实现一遍。

往期回顾：

白羊座

【Python】【爬虫】最近想买电脑，用Python爬取京东评论做个参考

限时免费进交流群

19967879837

添加微信号、手机号