[VBA] excel获取单元格的超链接地址函数

Function geturl(c As Range) As String
    geturl = c.Hyperlinks(1).Address
End Function

设置超链接的函数是HYPERLINK。