Excel做事做半套,並沒有包含到擷取超連結的函式,於是必須我們自己定義一個。
參考網路上的資源並實際使用修改後,我這個自訂函式碼是這樣寫的:
========以下為碼========
Function GetAddress(HyperlinkCell As Range)
On Error Resume Next
GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "")
End Function
========以上為碼========
要使用有幾個步驟:
- 按 Alt + F11 打開Visual Basic Editor。
- 在工具列選擇「插入」,再選「模組」。
- 貼上前述自訂函式碼。
- 按 Alt + Q 離開並回到Excel。
這個東西是跟著檔案的喔~也就是說每個要用的檔案都要加一次。
若還有其他自訂函式要使用,注意函式名稱「GetAddress」以及範圍「HyperlinkCell」不要重複到。
就醬