构造超链接

=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