所以必須自訂函數
方法如下:
- 按 Alt + F11 打開Visual Basic Editor。
- 在工具列選擇「插入」/「模組」。
- 貼上以面自訂函式碼。
- 按 Alt + Q 離開並回到Excel。
Function GetAddress(HyperlinkCell As Range) On Error Resume Next GetAddress = Replace(HyperlinkCell.Hyperlinks(1).Address, "mailto:", "") End Function