EXCEL URL提取宏程序

1、打开要是用的Excel文件

2、右击sheet页签名称，点击“查看代码”

3、在打开的界面中拷贝如下代码：

Sub ExtractHL()

    Dim HL As Hyperlink

    For Each HL In ActiveSheet.Hyperlinks

        HL.Range.Offset(0, 1).Value = HL.Address

    Next

End Sub

4、点击，运行。

5、已经提取出所有URL

6、分享完毕，欢迎小伙伴随时交流。