您可以使用 vba 宏:

You could use a vba macro:

点击 Alt+F11 打开 VBA 编辑器并粘贴以下内容:

Hit Alt+F11 to open the VBA editor and paste in the following:

Function URL(rg As Range) As String
  Dim Hyper As Hyperlink
  Set Hyper = rg.Hyperlinks.Item(1)
  URL = Hyper.Address
End Function

然后你可以在你的工作表中使用它，就像这样:

And then you can use it in your Worksheet, like this:

=URL(B4)