一、提取超链接
1、请将含有超链接地址的文字内容复制到excel表格A列，B列保留，将导入超链接地址；
2、为防止越界，首先看清楚有多少行记录，比如本例80行；
3.在设置中显示开发工具，选择工具栏中的开发工具——宏，输入宏的名称（例如：提取超链接），然后点击创建，代码如下：
Sub 提取超链接()
For Each cell In Range("A2:A81")
cell.Offset(0, 1)=cell.Hyperlinks(1).Address
Next
End Sub
结果如下图所示:
二、插入超链接
使用excel中的HYPERLINK函数
HYPERLINK函数
含义：创建一个快捷方式（跳转），用来打开存储在网络服务器、Intranet或internet中的文件。
格式: HYPERLINK(link_location，friendly_name).
其中：
HYPERLINK 为函数名
link_location 为链接位置
friendly_name 为显示文本
使用方法：
资源均来自第三方，谨慎下载，前往第三方网站下载
