自定义函数实现取得单元格的超链接地址
【问题】
如何取得单元格的超链接地址?
【解答】
可以用自定义函数,代码如下:
Function GetLink(rng As Range) As String
Application.Volatile
If rng.Cells(1, 1).Hyperlinks.Count = 0 Then
GetLink = "No Hyperlink"
Else
If rng.Hyperlinks(1).Address = "" Then
GetLink = rng.Hyperlinks(1).SubAddress
Else
GetLink = rng.Hyperlinks(1).Address
End If
End If
End Function
分享到:
责任编辑: