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