Excel 插入和提取超链接

1、构造 超链接

=HYPERLINK(D1,C1)
1

2、提取 超链接

第1步：Sheet页→右键→查看代码
第2步：粘贴如下代码，并保存

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

第3步：工具栏→运行→运行子过程
第4步：可以查看到已提取所有超链接地址 （ 覆盖的方式写在超链接的右边一列）

参考

如何批量插入和提取超链接？
Excel批量提取超链接网址