转载以及翻译模板
@TOC
正文
打开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”即可看到自定义的函数， 输入完整公司，并按回车键进行确认，即可看到超链接地址提取成功。 5利用同样的方法，该自定义函数还可以提取邮件地址。如图，只需要将此公式进行复制即可。
确保宏可以启用。在此Excel中同时按Alt和F11，进入宏界面，点菜单的插入，模块，粘贴如下代码： Sub test() For Each cell In Range("A2:A48") cell.Offset(0, 1) = cell.Hyperlinks(1).Address Next End Sub 把A2:A48改为你实际有超链接的单元格区域，直接按F5运行此宏，在对应的右边一格出现超链接地址。
- [原文链接]()
- 注：知识搬运，供学习交流使用，侵联删！