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

2019独角兽企业重金招聘Python工程师标准>>>

    前段时间整理数据的时候，简直不要太扎心➳♥゛，具体过程是这样滴：从网上复制下来的数据保存到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）确定后，即可得到纯文字格式的了。

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

转载于:https://my.oschina.net/u/3747963/blog/1789747