在Excel文档中,可能会存在多条超链接,默认情况下只有将鼠标放置在超链接上才能看到地址信息。如果想要提取该地址信息,可以按如下方法进行操作。
打开Excel文档,按“Alt+F11”进入VBA环境。右击“Microsoft Excel 对象”,从其扩展菜单中选择“插入”-“模块”项。
接着在打开的“模块1”编辑界面中,输入如图所示的代码:
Function GetActAddress(HlinkCell) Application.Volatile True With HlinkCell.Hyperlinks(1) GetActAddress = IIf(.Address = "", .SubAddress, .Address) End WithEnd Function
返回Excel界面,在超链接右侧的单元格输入“=GetActAddress”即可看到自定义的函数,如图所示:
输入完整公司,并按回车键进行确认,即可看到超链接地址提取成功。如图所示:
利用同样的方法,该自定义函数还可以提取邮件地址。如图,只需要将此公式进行复制即可。