提取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>


此处有震耳欲聋的掌声。










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



相关推荐
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页