Источник
VBA
Here's a VBA solution for those who can use it.
Create a VBA module with the following code:
Public Function GetURL(c As Range) As String
On Error Resume Next
GetURL = c.Hyperlinks(1).Address
End Function
To use, enter the following into any cell:
=GetURL(A1)
where A1 contains a hyperlink.
The function at work: