问excel -从链接文本中获取url

EN

Function GetURL(rng As Range) As String
    On Error Resume Next
    GetURL = rng.Hyperlinks(1).Address
End Function

在这种情况下，你可以把它放在你想放的地方。例如，如果您希望在单元格C25中列出来自A1中的超链接的URL，则可以在单元格C25中输入以下公式：

=GetURL(A1)

此post讨论如何使用自定义公式从包含链接的单元格中提取URL。

这将立即完成工作，并在包含超链接文本的列旁边添加一个单独的url链接列：

https://howtouseexcel.net/how-to-extract-a-url-from-a-hyperlink-on-excel

从Excel的超链接中提取URL --这对我很有效！如果要一次性运行此操作，请打开一个新工作簿。

插入到VBA中(按Alt+F11)

• Insert新建模块(Insert > Module)

• Copy Paste Excel user defined function )(自定义函数)：

子ExtractHL()

Dim HL作为超链接

对于ActiveSheet.Hyperlinks中的每个HL

HL.Range.Offset(0，1).Value = HL.Address

下一步

End Sub

• Press F5并单击“Run”

• Get out of VBA (按Alt+Q)

• 您将看到一个新列，右侧添加了一个url列表。