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

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

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

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

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

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

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

在这里， 编辑超链接 函数可以帮助您提取每个超链接的基础URL并将该实际地址放入另一个单元格中。 您可以这样做：

1。 选择带有超链接的单元格，然后单击鼠标右键，从上下文菜单中选择 编辑超链接，请参见屏幕截图：

2。 和 编辑超链接 对话框将会出现，选择并复制（按Ctrl + C）来自 地址 对话框的字段。

3。 然后关闭对话框，然后将实际地址粘贴到所需的任何单元格中。

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

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

对于许多超链接，上面的方法将很繁琐且耗时，因此下面的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 键运行代码，并弹出一个对话框供您选择要提取真实地址的超链接，请参见屏幕截图：

4。 然后点击 OK，并且所选单元格内容已转换为原始范围内的实际超链接地址。 查看屏幕截图：

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

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

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（A2） (A2 是超链接所在的单元格），然后按 输入 按钮。 您可以看到实际的超链接地址已提取。

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

这是一个方便的工具，称为 Kutools for Excel，其 转换超链接 功能，您可以快速处理以下操作：

• 从超链接中提取实际地址;
• 将网址文字转换为可点击的超链接.

如果你已经安装 Kutools for Excel，请执行以下操作：

1。 选择包含需要提取的超链接的范围。

2。 点击 库工具 > 链接 > 转换超链接，请参见屏幕截图：

3。 在 转换超链接 对话框中选择 超链接地址替换单元格内容 选项，然后单击 来自的按钮 结果范围 指定要放入结果的单元格。

4。 然后点击 OK，实际地址已从超链接中提取。 看截图：

备注：如果您想将实际地址放到原始范围内，请检查 转换来源范围.

点击 转换超链接 进一步了解此功能。

立即下载和免费试用Excel的Kutools！

演示：使用 Kutools for Excel 从超链接中提取实际地址

相关文章：

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