Excel快速提取单元格内的超链接地址

一、EXCEL打开开发工具

二、插入新模块，自定义一个VBA函数GetAdrs：

GetAdrs代码如下：

Function GetAdrs(Rng)
Application.Volatile True
    With Rng.Hyperlinks(1)
        GetAdrs = IIf(.Address = "", .SubAddress, .Address)
    End With
End Function

三、插入自定义函数【=GetAdrs(A1)】即可提取A1单元格内的超链接地址