提取excel表中文字超链接的地址

来源:互联网 发布:网络主播陷整形贷 编辑:程序博客网 时间:2024/05/29 02:01

提取excel表中文字超链接的地址  


ctrl+f11 开启vb 

运行如下代码

f2,f23为地址


Sub GetHyperlink()

Dim LinkTest As Hyperlink
For Each LinkTest In ActiveSheet.Hyperlinks
LinkTest.Range.Offset(F2, F23).Value = LinkTest.Address
Next
End Sub
0 0