excel提取超链接函数方法a

有时在网页需要复制一些超链接的地址，但是粘贴到excel或者word还是超链接表层的文本，需要对文本指向的超链接进行提取，因此用到了excel里面的模块功能
打开excel文档，按“Alt+F11”进入VBA环境，右击"Microsoft Excel 对象"，从其扩展菜单中选择“插入”-“模块”项。
在打开的模块1编辑页面中输入如下代码

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

关闭后返回Excel界面，在超链接右侧的单元格输入“=GetActAddress”即可看到自定义的函数

参考链接
https://jingyan.baidu.com/article/5553fa82c9f5a365a2393411.html