記一次Excel的逆天操做（圖片刪除、超連接提取）

    前段時間整理數據的時候，簡直不要太扎心➳♥゛，具體過程是這樣滴：從網上覆制下來的數據保存到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）肯定後，便可獲得純文字格式的了。

    好了，上面的一些小操做仍是很實用的，畢竟除了寫代碼，咱們仍是會遇到各類各樣的事，都須要咱們去解決，時間就是金錢，掌握一項技能仍是很不錯的。