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

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

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

使用 Kutools for Excel 快速轻松地从超链接中提取实际地址

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

使用用户自定义函数从超链接中提取实际地址

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

在这里，“编辑超链接”功能可以帮助你提取每个超链接的底层 URL，并将该实际地址放入另一个单元格中。你可以按照以下步骤操作：

1. 选择带有超链接的单元格并右键单击，在弹出的上下文菜单中选择“编辑超链接”，请参见截图：

2. 随后会弹出一个“编辑超链接”对话框，选择并复制（Ctrl+C）对话框中“地址”字段中的整个 URL。

3. 然后关闭对话框并将实际地址粘贴到你想要的任何单元格中。

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

使用 Kutools for Excel 快速轻松地从超链接中提取实际地址

这里有一个方便的工具，称为 Kutools for Excel，通过其“转换超链接”功能，你可以快速处理以下操作：

• 从超链接中提取实际地址；
• 将 URL 文本转换为可点击的超链接。

如果你已经安装了 Kutools for Excel，请按以下步骤操作：

1. 选择包含需要提取的超链接的区域。

2. 单击 Kutools > 链接 > 转换超链接，请参见截图：

3在 转换超链接 对话框中，选择 超链接地址转单元格内容 选项，并单击 按钮来自 结果区域 指定一个单元格来放置结果。

4. 然后单击“ 确定”，实际地址已从超链接中提取出来。请参见截图：

注意：如果你想将实际地址放到原始区域，请勾选“转换来源区域”。

立即下载并免费试用 Kutools for Excel！

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

对于大量超链接，上述方法可能会繁琐且耗时，因此以下 VBA 代码可以帮助你一次性快速提取多个地址。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

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 键运行代码，会弹出一个对话框让你选择要提取真实地址的超链接，请参见截图：

4. 然后单击“确定”，所选单元格内容已转换为原始区域中的真实超链接地址。请参见截图：

使用用户自定义函数从超链接中提取实际地址

以下用户自定义函数也可以从超链接中提取实际 URL。

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 单击 插入 > 模块，并将以下代码粘贴到模块窗口中。

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

3. 保存代码并关闭窗口，选择一个空白单元格输入公式 =GetURL(A2) （A2 是包含超链接的单元格），然后按 Enter 键。你可以看到实际的超链接地址已被提取。

相关文章：

如何在 Excel 中将 URL 文本转换为可点击的超链接？