【Excel】批量提取超链接中的链接地址

如何从Excel中的超链接中提取实际地址？

假设您有一个包含超链接的单元格区域，现在您需要查看超链接的真实目的地并从超链接中提取它们，如下面的屏幕截图所示。 有没有简单的方法可以快速解决此问题？ 本文将指导您从多个超链接中提取实际地址。

1.使用“编辑超链接”功能从超链接中提取实际地址

选择带有超链接的单元格，然后单击鼠标右键，从上下文菜单中选择 编辑超链接

备注：使用此方法，每次只能提取一个超链接地址，但是如果需要提取多个超链接，则需要重复应用此功能。

2.使用VBA代码从超链接中提取实际地址

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。
2。 点击 插入 > 模块，然后将以下代码粘贴到“模块窗口”中

Sub Extracthyperlinks()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    If Rng.Hyperlinks.Count > 0 Then
        Rng.Value = Rng.Hyperlinks.Item(1).Address
    End If
Next
End Sub

3.选中单元格，点击F5运行即可

注意备份原来的单元格格式

3.用户自定义功能从超链接中提取实际地址

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到 模块窗口.

Function GetURL(pWorkRng As Range) As String
'Updateby Extendoffice
    GetURL = pWorkRng.Hyperlinks(1).Address
End Function

3。 保存代码并关闭窗口，选择一个空白单元格以键入此公式 = GetURL（超链接所在的单元格），然后按 输入 按钮。 您可以看到实际的超链接地址已提取。

相当于自定义了一个函数

参考链接：

https://zh-cn.extendoffice.com/documents/excel/1177-excel-extract-hyperlink-from-cell.html