如何取得单元格的超链接地址？

　　【问题】

　　如何取得单元格的超链接地址？

　　【解答】

　　可以用自定义函数，代码如下：

　　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