Microsoft Office Excel 2003
电脑一台
从网络直接复制过来的，只写了超链接的显示文本，实际的链接是隐藏的。
我们通过函数来实现提取出“主页”和“邮箱”的内容。在Excel界面按下Alt+F11，打开VBA编辑器。
点击菜单栏“插入”-“模块”，插入一个新的模块。
在模块1中的代码窗口中输入如下代码： Function GetWeb(HyCell) Application.Volatile True with HyCell.Hyperlinks(1) GetWeb = IIf(.Address = '', .SubAddress, .Address) End withEnd Function Function GetAddress(HyCell) Application.Volatile True with HyCell.Hyperlinks(1) GetWeb = IIf(.Address = '', .SubAddress, .Address) End withEnd Function
好了，现在函数写完了，保存后关闭编辑器窗口，在C、D列写上表头，如“主页提取地址”、“邮箱提取地址”。
重点来啦。。。在C2中输入 =GetWeb(A2)在D2中输入 =GetAddress(B2)看看，是不是在C2、D2中显示出了A2、B2的超链接。
分别在C2和D2单元格右下角，鼠标变成十字符号时向下拖动。这样所有项目是不是都提取出来了。。
好了，是不是很简单呢？重点就是要熟悉函数，编写出要调用的函数。。这个Excel经验是系列经验，可以点击“全文阅读”模式下文末的“系列”链接查看其它Excel相关经验~~也可以点击下面链接直达~~http://jingyan.baidu.com/season/49168
也可以点击我的头像右侧的用户名 27com 访问我的其他经验，记得关注、投票给我哈~~~
注意函数的格式。
如果本文帮助了你，请投票、收藏支持我；如果有任何问题或建议，请评论告知，谢谢~~