2010年3月18日 星期四

在Excel中自定義函式以擷取表格中之超連結

有時自網頁上貼上含有超連結的資料進入Excel中,或是有自己整理的超連結需要擷取網址時,一個一個去按滑鼠右鍵實在是太麻煩了。
Excel做事做半套,並沒有包含到擷取超連結的函式,於是必須我們自己定義一個。

參考網路上的資源並實際使用修改後,我這個自訂函式碼是這樣寫的:

========以下為碼========
Function GetAddress(HyperlinkCell As Range)
    On Error Resume Next
    GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function
========以上為碼========

要使用有幾個步驟:
  1. 按 Alt + F11 打開Visual Basic Editor。
  2. 在工具列選擇「插入」,再選「模組」。
  3. 貼上前述自訂函式碼。
  4. 按 Alt + Q 離開並回到Excel。
完成後就可以使用剛剛定義好的函式,例如C3有超連結文字,則輸入「=GetAddress(C3)」,即可得到文字格式的url或email address。

這個東西是跟著檔案的喔~也就是說每個要用的檔案都要加一次。
若還有其他自訂函式要使用,注意函式名稱「GetAddress」以及範圍「HyperlinkCell」不要重複到。

就醬

8 則留言:

  1. 非常受用,我找了好久!非常感謝!

    回覆刪除
  2. 好東西,感謝分享

    回覆刪除
  3. 非常好用的工具, 感謝

    回覆刪除
  4. Thanks
    真不知道廠商的Excel埋了什麼,竟然需要這樣抓到URL,誇張

    回覆刪除