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

男娘i 2024-03-29 16:32 126阅读 0赞

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

![在这里插入图片描述][ed986b41fcd94fd49783031d805d573b.png]  
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（超链接所在的单元格），然后按 输入 按钮。 您可以看到实际的超链接地址已提取。

> 相当于自定义了一个函数

![在这里插入图片描述][1fce5bed0f0546aa9480e336457d4b50.png]

### 参考链接： ###

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

[ed986b41fcd94fd49783031d805d573b.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/28/bc7a52fc8ec6445a97ccff3ef9af73a4.png
[1fce5bed0f0546aa9480e336457d4b50.png]: https://image.dandelioncloud.cn/pgy_files/images/2024/03/28/395b9cbbe165407d93d89f59d207ae95.png