Excel自定义函数提取超链接

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

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

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

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

或者

Function GetAdrs(Rng)
Application.Volatile True
With Rng.Hyperlinks(1)
GetAdrs = IIf(.Address = "", .SubAddress, .Address)
End With
End Function
1
2
3
4
5
6

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