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

紫仟纤陌 / 2024-03-10 / 原文

一、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单元格内的超链接地址