现在的位置: 首页 > 综合 > 正文

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

2013年02月16日 ⁄ 综合 ⁄ 共 535字 ⁄ 字号 评论关闭

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

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



。。。。。。


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


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

然后,插入--模块--在编辑器里写:

Sub 提取链接()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        HL.Range.Offset(0, 1).Value = HL.Address
    Next
End Sub


接着,F5。。。运行--------切回EXCEL一看。矮马!



帅伐!!

不要问我插入的内些代码是神马意思好嘛。

我教你们做饭,需要给你们讲解电饭锅的工作原理嘛。

最后戳戳那几个按钮就完事的好嘛。

更何况我也看不懂那些玩意啊- -。



但仍旧有严肃的科研精神的网友会追问为什吗那些链接不能直接点啊,一个个变身又好麻烦啊,,,哭。。。

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

=hyperlink(文字链接的单元格)


此处有震耳欲聋的掌声。










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


抱歉!评论已关闭.