通过自定义函数的方法，批量提取超链接
首选开启开发工具选项
文件-选项-自定义功能区-勾选开发工具选项-确认
Alt+F11或者直接点击跳转到开发工具-Visual Basic
在左上方VBA project空白处右键点击空白区域-插入-模块
在弹出的窗口中输入以下命令定义GetURL函数
Function GetURL(pWorkRng As Range) As String'Updateby ExtendofficeGetURL = pWorkRng.Hyperlinks(1).AddressEnd Function
或者
Function GetAdrs(Rng)Application.Volatile TrueWith Rng.Hyperlinks(1)GetAdrs = IIf(.Address = "", .SubAddress, .Address)End WithEnd Function
之后就可以像系统内置的sum函数等一样用了，函数名GetURL或者GetAdrs
参考链接
https://zh-/documents/excel/1177-excel-extract-hyperlink-from-cell.html/s?id=1640649015306258072&wfr=spider&for=pc
