微软Excel技巧：[8]提取超链接信息

1、从网络直接复制过来的，只写了超链接的显示文本，实际的链接是隐藏的。

2、我们通过函数来实现提取出“主页”和“邮箱”的内容。在Excel界面按下Alt+F11，打开VBA编辑器。

3、点击菜单栏“插入”-“模块”，插入一个新的模块。

4、在模块1中的代码窗口中输入如下代码：Function GetWeb(HyCell) Application.Volatile True with HyCell.Hyperlinks(1) GetWeb = IIf(.Address = "", .SubAddress, .Address) End withEnd FunctionFunction GetAddress(HyCell) Application.Volatile True with HyCell.Hyperlinks(1) GetWeb = IIf(.Address = "", .SubAddress, .Address) End withEnd Function

5、好了，现在函数写完了，保存后关闭编辑器窗口，在C、D列写上表头，如“主页提取地址”、“邮箱提取地址”。

6、重点来啦。。。在C2中输入 =GetWeb(A2)在D2中输入 =GetAddress(B2)看看，是不是在C2、D2中显示出了A2、B2的超链接。

7、分别在C2和D2单元格右下角，鼠标变成十字符号时向下拖动。这样所有项目是不是都提取出来了。。

8、好了，是不是很简单呢？重点就是要熟悉函数，编写出要调用的函数。。这个Excel经验是系列经验，可以点击“全文阅读”模式下文末的“系列”链接查看其它Excel相关经验~~也可以点击下面链接直达~韵簿儒回~http://jingyan.baidu.com/season/49168

9、也可以点击我的头像右侧的用户名 27com 访问我的其他经验，记得关注、投票给我哈~~~