记一次Excel的逆天操作(图片删除、超链接提取)


声明:本文转载自https://my.oschina.net/u/3747963/blog/1789747,转载目的在于传递更多信息,仅供学习交流之用。如有侵权行为,请联系我,我会及时删除。

    前段时间整理数据的时候,简直不要太扎心➳♥゛,具体过程是这样滴:从网上复制下来的数据保存到excel表格里,结果发现竟然连图片一起保存进来了,不止如此,因为需要提取超链接的URL地址,身为一个程序猿,不会一些逆天的操作,怎么行?难道要傻乎乎的去干苦力活?所以不得不研究了一番,下面是偶总结的一些经验,方便使用,节约时间,堪称居家旅行必备之首选,嘿嘿。

    (一)图片的统一删除

    当你的excel表格里存在太多的图片,而又不想一个一个去手动删除时,你需要的仅仅是动动手指头(不动脑吗?哈哈),是不是超级简单。具体操作:

    (1)打开表格(嗯 ,没打开你说个啥)

    (2)按Fn+F5或者Ctrl+F5(个人电脑不同,按键组合可能不一样,可以多尝试一下),出现下面的弹出框即表示成功:

    (3)点击定位条件,选择里面的对象,确定,则会看到表格中的图片都被选中了:

    (4)最后当然是删除操作了,点击键盘上的Delete键,轻松搞定。

    (二)超链接URL提取

    从上面的表格中可以看到有很多超链接,我们的目标是什么——提取URL,所以问题来了,这个要怎么快速方便的提取呢?这里要用到一个工具-宏,我们要编写一个VBA函数,没错,如果 你的excel表格不支持,那我只能说——赶快卸掉,留它何用。具体操作:

    (1)打开表格

    (2)右击表格下方的Sheet,在弹出的选项里选择查看代码(各人操作可能不同),如下:

    (3)选择查看代码后,会弹出VBA工程界面:

    (4)选择你的当前excel对象(如果你打开多个表格),右击选择插入-模块,并输入提取函数的代码:

    上面的GetActAddress()函数就是提取超链接的URL的具体实现,代码如下:

Function GetActAddress(HlinkCell)  Application.Volatile True With HlinkCell.Hyperlinks(1)     GetActAddress = IIf(.Address = "", .SubAddress, .Address)        End With     End Function

    (5)关闭VBA工程界面,在超链接对应行的空白单元格中,输入=GetActAddress(A2),可以看到,刚才编写的函数出现在你的表格函数选项里了,参数A2是超链接对应的单元格位置(自己数数),确定后会得到当前超链接的URL,你只需将鼠标放置于该单元格的右下角等变成十字状,向下拖动即可,其他的超链接也会相应获取对应的URL。

    (6)你以为这样就结束了吗?太天真了。按上述操作得到的URL是通过函数获取的,不能直接应用,否则会出现#VALUE的字样,而不是你需要的值,这时,只需选中该列-复制,粘贴到另一空白列(注意:粘贴时选择只粘贴值),这样,就大功告成了。

    (三)去除超链接,保留文本文字

    当我们获取了超链接的URL后,该超链接就没有利用的价值了,此时,你是不是很想将他们变成纯文字格式的?很简单。具体操作:

    (1)选中超链接或者超链接所在的列

    (2)右击选中弹出的“删除超链接“

    (3)确定后,即可得到纯文字格式的了。

    好了,上面的一些小操作还是很实用的,毕竟除了写代码,我们还是会遇到各种各样的事,都需要我们去解决,时间就是金钱,掌握一项技能还是很不错的。

本文发表于2018年04月04日 22:38
(c)注:本文转载自https://my.oschina.net/u/3747963/blog/1789747,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如有侵权行为,请联系我们,我们会及时删除.

阅读 2109 讨论 0 喜欢 0

抢先体验

扫码体验
趣味小程序
文字表情生成器

闪念胶囊

你要过得好哇,这样我才能恨你啊,你要是过得不好,我都不知道该恨你还是拥抱你啊。

直抵黄龙府,与诸君痛饮尔。

那时陪伴我的人啊,你们如今在何方。

不出意外的话,我们再也不会见了,祝你前程似锦。

这世界真好,吃野东西也要留出这条命来看看

快捷链接
网站地图
提交友链
Copyright © 2016 - 2021 Cion.
All Rights Reserved.
京ICP备2021004668号-1