excel批量提取超链接

通过自定义函数的方法，批量提取超链接
首选开启开发工具选项
文件-选项-自定义功能区-勾选开发工具选项-确认

Alt+F11或者直接点击跳转到开发工具-Visual Basic
在左上方VBA project空白处右键点击空白区域-插入-模块
在弹出的窗口中输入以下命令定义GetURL函数

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

或者

Function GetAdrs(Rng)

Application.Volatile True

With Rng.Hyperlinks(1)

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

End With

End Function

之后就可以像系统内置的sum函数等一样用了，函数名GetURL或者GetAdrs

参考链接

1. https://zh-cn.extendoffice.com/documents/excel/1177-excel-extract-hyperlink-from-cell.html
2. https://baijiahao.baidu.com/s?id=1640649015306258072&wfr=spider&for=pc