001. Excel顯示超連結出來

http://tonysnote.blogspot.com/2010/03/excel.html

參考網路上的資源

========以下為碼========

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。