1、打开Excel文档,按“Alt+F11”进入VBA环境。右击“Microsoft Excel 对象”,从其扩展菜单中选择“插入”-“模块”项。
2、接着在打开的“模块1”编辑界面中,输入如图所莲镘拎扇示的代码:Function GetActAddress(HlinkCell) Application.Vo造婷用痃latile True With HlinkCell.Hyperlinks(1) GetActAddress = IIf(.Address = "", .SubAddress, .Address) End WithEnd Function
3、返回Excel界面,在超链接右侧的单元格输入“=GetActAddress”即可看到自定义的函数,如图所示:
4、输入完整公司,并按回车键进行确认,即可看到超链接地址提取成功。如图所示:
5、利用同样的方法,该自定义函数还可以提取邮件地址。如图,只需要将此公式进行复制即可。