如何在excel中提取网址？

假设您从同事那里收到一本 Excel 工作簿，其中一列中有一个超链接列表。现在，您想要从此列表中提取所有超链接 URL。

手动方法确实很头疼，你必须将每个 URL 都一一复制粘贴。所以最好的方法是在VBA中创建UDF 。今天我想与大家分享这个 UDF 的一个简单代码。

用于提取超链接 URL 的 VBA 代码

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

如何使用此代码

要使用此 UDF，您必须执行以下步骤：

1. 从“开发人员”选项卡打开 Visual Basic 编辑器或使用键盘快捷键 ALT+F11。
2. 插入一个新模块，将上面的代码粘贴到其中并关闭它。
3. 现在，在电子表格中输入函数=GiveMeURL(A1)并按 Enter。