title: 零贰在线学习辅助搜索工具
author: Love02xp
date: 2020-08-09 13:04:17
category: [编程代码]
tags: [VC6,代码,学习]

转载以及翻译模板

@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运行此宏，在对应的右边一格出现超链接地址。

_

• [原文链接]()
• 注：知识搬运，供学习交流使用，侵联删！

_