EXCEL URL提取宏程序

1、打开要是用的Excel文件

https://exp-picture.cdn.bcebos.com/e1390a31dfb6326ce7139d7989532f63228560cf.jpg

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

https://exp-picture.cdn.bcebos.com/0d55dc7bd2828689fa30b30765f97fbd4d7c37cc.jpg

3、在打开的界面中拷贝如下代码：Sub ExtractHL() Dim HL As Hyperlink For Each HL In ActiveSheet.Hyperlinks HL.Range.Offset(0, 1).Value = HL.Address NextEnd Sub

https://exp-picture.cdn.bcebos.com/f9617afb960b3121a0170015dee983aee9d76dcc.jpg

4、点击，运行。

https://exp-picture.cdn.bcebos.com/3ac71c214f579356f3ccfc96effb960b302170cd.jpg

5、已经提取出所有URL

https://exp-picture.cdn.bcebos.com/8db0c6a72633488400944f9addee7b7f870e45cd.jpg

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