提取EXCEL文本链接中的链接地址

这是件看似简单做起来却非常浪费时间的事，看我们修理它。

有时工作中需要搞些排行榜或这种那种名单，从后台调过来数据一看，是不是特想挠墙！！

。。。。。。

全是“查看”酱的造型除了点击完全不能进行透视表或筛选相同值什么的，是啵。所以我们必须把文本超链中的链接地址提取出来。

首先，在查看一列右侧插入新列，ALT+F11调出VBA编辑器

然后，插入--模块--在编辑器里写：

<span style="font-family:Microsoft YaHei;">Sub 提取链接()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub
</span>

接着，F5。。。运行--------切回EXCEL一看。！

帅伐！！

但仍旧有严肃的网友会追问为什吗那些链接不能直接点啊，一个个点又好麻烦啊，，，。。。

呵呵下面这函数，一秒变超链。

<span style="font-family:Microsoft YaHei;">=hyperlink（文字链接的单元格）</span>

此处有震耳欲聋的掌声。

说到底，还不是因为你满脸写着“好像很容易死的样子”，才让我真真对你动了杀机。