在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」不要重複到。

就醬