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

网友投稿 558 2023-12-26

如何从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

Copy

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

Copy

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

从超链接中提取实际地址 Kutools for Excel 快速，方便地

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

从超链接中提取实际地址; 将网址文字转换为可点击的超链接. Kutools for Excel : 带有300多个便捷的Excel加载项，可以在30天内免费试用.

前往下载30天免费试用购买贝宝/ MyCommerce

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

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

2。点击 Kutools > Link > 转换超链接，请参见屏幕截图：