Excel批量提取超链接文本中的链接
含有超链接地址的文字内容复制到excel的A1
Alt + F11-插入-模块，或工具栏-宏-编辑新宏-输入以下代码，输入以下内容后运行：
Sub 提取文本超链接()
For Each cell In Range("A1:A999")
cell.Offset(0, 1) = cell.Hyperlinks(1).Address
Next
End Sub
注：A1:A999为第一行到最后一行
Excel将超链接批量添加到对应的文本里
含有纯文字内容复制到excel的A1，对应超链接复制到B1
C1输入=HYPERLINK(B1,A1)，多行的话往下拖动C1即可