构造超链接
=HYPERLINK(D1,C1)

提取超链接
Sheet页→右键→查看代码Sub link()Dim hl As HyperlinkFor Each hl In ActiveSheet.Hyperlinkshl.Range.Offset(0, 1).Value = hl.AddressNext
End Sub工具栏→运行→运行子过程→提取所有超链接地址
参考:
https://blog.csdn.net/qq_37220238/article/details/82595842
https://zhuanlan.zhihu.com/p/78199951?utm_id=0