excel - 从链接文本中获取URL

Question

我需要复制一个已链接文字的列并粘贴一个列，该列显示链接文本的所有网址

Answer 1

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

在这种情况下，您可以将它放在您想要的位置。例如，如果您希望A1中的超链接的URL在单元格C25中列出，则在单元格C25中输入以下公式：

=GetURL(A1)

Answer 2

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

Answer 3

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

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

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

1. 进入VBA（按Alt + F11）
2. 插入新模块（插入>模块）

3. 复制并粘贴下面的Excel用户定义函数（自定义函数）：

   Sub ExtractHL（）

   将HL视作超链接

   对于ActiveSheet.Hyperlinks中的每个HL

   HL.Range.Offset（0，1）.Value = HL.Address

   下一步

   结束子

4. 按F5并单击“运行”

5. 退出VBA （按Alt + Q）

6. 您将看到一个新列，其右侧添加了URL列表。