小智 5
Function GetURL(rng As Range) As String
On Error Resume Next
GetURL = rng.Hyperlinks(1).Address
End Function
Run Code Online (Sandbox Code Playgroud)
在这种情况下,您可以将其放置在您想要的位置。例如,如果您希望将 A1 中的超链接的 URL 列在单元格 C25 中,则可以在单元格 C25 中输入以下公式:
=GetURL(A1)
Run Code Online (Sandbox Code Playgroud)