擷取 excel的超連結

2010年11月19日 星期五

有時自網頁上貼上含有超連結的資料進入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」不要重複到。