Function geturl(c As Range) As String geturl = c.Hyperlinks(1).Address End Function
设置超链接的函数是HYPERLINK。
[VBA] excel获取单元格的超链接地址函数
原文：http://www.cnblogs.com/transteel/p/5167097.html
