网站怎么做微信分享,怀宁县住房和建设局网站,dede饮食网站模板,2021ppt模板免费下载 素材通过自定义函数的方法#xff0c;批量提取超链接
首选开启开发工具选项 文件-选项-自定义功能区-勾选开发工具选项-确认
AltF11或者直接点击跳转到开发工具-Visual Basic 在左上方VBA project空白处右键点击空白区域-插入-模块 在弹出的窗口中输入以下命令定义GetURL函数
F…通过自定义函数的方法批量提取超链接
首选开启开发工具选项 文件-选项-自定义功能区-勾选开发工具选项-确认
AltF11或者直接点击跳转到开发工具-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
