超链接查看太麻烦，Excel怎么快速提取单元格内的超链接地址？

超链接查看太麻烦，Excel怎么快速提取单元格内的超链接地址？
https://baijiahao.baidu.com/s?id=1640649015306258072&wfr=spider&for=pc

新建宏：

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

GetAdrs = IIf(.Address = "", .SubAddress, .Address)

End With

End Function