陕西省建设工会网站北京网站营销与推广

通过自定义函数的方法，批量提取超链接

首选开启开发工具选项
文件-选项-自定义功能区-勾选开发工具选项-确认

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

Function GetURL(pWorkRng As Range) As String
'Updateby ExtendofficeGetURL = 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