如何取得单元格的超链接地址？
【解答】
可以用自定义函数，代码如下：
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
责任编辑：八月骄阳
[