构造超链接
java
=HYPERLINK(D1,C1)
提取超链接
java
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