提取Excel中的超链接

1．启用宏

文件->选项->信任中心->信任中心设置->宏设置->启用所有宏

2．以下图为例，先建立一个excel，在A列放置要转换的超链接，B列要为空，留着显示提取后的结果。

3．点击快捷键Alt+F11，打开Microsoft Visual Basic for Applications窗口，点击 “插入->模块”

4.在模块中输入如下命令

Sub 提取超链接()
For Each cell In Range("A1:A3")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub

注意：A1:A3是列的索引和行数，这里指A列的1到3行，如果超链接放在别的列，这个地方也相应改一下就行，结果就会自动显示在下一列。

4．F5运行命令，等待一会，转换完成，提取结果就显示在B列了。