构造超链接

=HYPERLINK(D1,C1)

提取超链接

Sheet页→右键→查看代码

Sub link()
    Dim hl As Hyperlink
    For Each hl In ActiveSheet.Hyperlinks
        hl.Range.Offset(0, 1).Value = hl.Address
    Next
End Sub

工具栏→运行→运行子过程→提取所有超链接地址

参考：
https://blog.csdn.net/qq_37220238/article/details/82595842
https://zhuanlan.zhihu.com/p/78199951?utm_id=0