提取excel表中文字超链接的地址
ctrl+f11 开启vb
运行如下代码
f2,f23为地址
Sub GetHyperlink()
Dim LinkTest As HyperlinkFor Each LinkTest In ActiveSheet.Hyperlinks
LinkTest.Range.Offset(F2, F23).Value = LinkTest.Address
Next
End Sub
提取excel表中文字超链接的地址
ctrl+f11 开启vb
运行如下代码
f2,f23为地址
Sub GetHyperlink()
Dim LinkTest As Hyperlink