Excel提取超链接信息

标签：func   扩展   成功   单元格   alt+   编辑   vba   perl   address   

打开Excel文档，按“Alt+F11”进入VBA环境。右击“Microsoft Excel 对象”，从其扩展菜单中选择“插入”-“模块”项。
接着在打开的“模块1”编辑界面中，输入如图所示的代码：

Function GetActAddress(HlinkCell)    
	Application.Volatile True    
	With HlinkCell.Hyperlinks(1)        
		GetActAddress = IIf(.Address = "", .SubAddress, .Address)    
	End With
End Function

返回Excel界面，在超链接右侧的单元格输入“=GetActAddress(A2)”即可看到自定义的函数
输入完整公司，并按回车键进行确认，即可看到超链接地址提取成功。

Excel提取超链接信息

标签：func   扩展   成功   单元格   alt+   编辑   vba   perl   address   

原文地址：https://www.cnblogs.com/daodaoxun/p/14692604.html