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

原创
|
浏览：824
|
更新：2015-02-14 14:49
|
标签：excel

分步阅读

当我们从网页复制一些超链接文本到表格时，超链接的指向地址会隐藏，只有鼠标指向它时才能显示。怎么做才能批量的显示出超链接的指向地址呢？跟我来吧。。

本例以Excel2003为例。

工具/原料

Microsoft Office Excel 2003
电脑一台

方法/步骤

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 with
End Function

Function GetAddress(HyCell)
    Application.Volatile True
    with HyCell.Hyperlinks(1)
        GetWeb = IIf(.Address = "", .SubAddress, .Address)
    End with
End 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
8
此文章未经许可获取自百度经验
9
也可以点击我的头像右侧的用户名 27com 访问我的其他经验，记得关注、投票给我哈~~~
END