Note: The other languages of the website are Google-translated. Back to English

如何从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 : 带有300多个便捷的Excel加载项,可以在30天内免费试用.

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

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

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

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

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

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

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

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


箭头蓝色右气泡 演示:使用Kutools for Excel从超链接中提取实际地址

Kutools for Excel:具有300多个方便的Excel加载项,可以在30天内免费试用,没有任何限制。 立即下载并免费试用!

相关文章:

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


最佳办公效率工具

Kutools for Excel解决了您的大多数问题,并使您的生产率提高了80%

  • 重用: 快速插入 复杂的公式,图表 以及您以前使用过的任何东西; 加密单元 带密码 创建邮件列表 并发送电子邮件...
  • 超级公式栏 (轻松编辑多行文本和公式); 阅读版式 (轻松读取和编辑大量单元格); 粘贴到过滤范围...
  • 合并单元格/行/列 不会丢失数据; 拆分单元格内容; 合并重复的行/列...防止细胞重复; 比较范围...
  • 选择重复或唯一 行; 选择空白行 (所有单元格都是空的); 超级查找和模糊查找 在许多工作簿中; 随机选择...
  • 确切的副本 多个单元格,无需更改公式参考; 自动创建参考 到多张纸; 插入项目符号,复选框等...
  • 提取文字,添加文本,按位置删除, 删除空间; 创建和打印分页小计; 在单元格内容和注释之间转换...
  • 超级滤镜 (将过滤方案保存并应用于其他工作表); 高级排序 按月/周/日,频率及更多; 特殊过滤器 用粗体,斜体...
  • 结合工作簿和工作表; 根据关键列合并表; 将数据分割成多个工作表; 批量转换xls,xlsx和PDF...
  • 超过300种强大功能。 支持Office / Excel 2007-2019和365。支持所有语言。 在您的企业或组织中轻松部署。 完整功能30天免费试用。 60天退款保证。
kte选项卡201905

Office选项卡为Office带来了选项卡式界面,使您的工作更加轻松

  • 在Word,Excel,PowerPoint中启用选项卡式编辑和阅读,发布者,Access,Visio和Project。
  • 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。
  • 每天将您的工作效率提高50%,并减少数百次鼠标单击!
officetab底部
按评论排序
注释 (42)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
非常感谢。 它真的帮助了我
该评论由网站上的主持人最小化
非常感谢!!! :D
该评论由网站上的主持人最小化
这只是救了我! 谢谢
该评论由网站上的主持人最小化
谢谢你让我的工作如此轻松
该评论由网站上的主持人最小化
非常感谢你!
该评论由网站上的主持人最小化
非常感谢你,这救了我的屁股,让我看起来很好。 8)
该评论由网站上的主持人最小化
你是最棒的,很容易追随!
该评论由网站上的主持人最小化
谢谢哥们。它真的在几秒钟内工作。
该评论由网站上的主持人最小化
非常感谢。 它真的帮助了我
该评论由网站上的主持人最小化
非常感谢! 非常有用但简单明了。 正如阿尔伯特的意思 :roll:
该评论由网站上的主持人最小化
极好的! 太简单。 谢谢!
该评论由网站上的主持人最小化
万分感谢。 和这里的其他人一样。 这是非常有帮助和简单的。
该评论由网站上的主持人最小化
非常感谢 :lol: 我使用了 VBA 方法,它在 Windows 365 操作系统上的 Excel 8.1 中就像一个魅力
该评论由网站上的主持人最小化
这是第一个对我有用的基于宏的 Excel 技巧。 非常感谢您让 excel 傻瓜的生活变得更好。
该评论由网站上的主持人最小化
谢谢你帮我节省了 15 分钟
该评论由网站上的主持人最小化
高超! 把我的工作减少到不到一分钟。
该评论由网站上的主持人最小化
这为我节省了大量时间! 我从 500 多个与他们的个人资料相关联的姓名中提取了 500 个个人资料 ID。 这段代码运行得非常好,很容易理解。 非常感谢!
该评论由网站上的主持人最小化
出于某种原因,这对我不起作用。 正如您所描述的那样,我创建了定义的函数,但它没有做任何事情:\我还想将它与超链接函数合并,如下所示: =HYPERLINK(=getURL(A1), [A1]) 以便最终结果将复制 A1 的 URL 并将其显示为 A1 的文本字符串(即,只需将 A1 复制到另一个单元格,包括其文本和超链接。Excel 似乎由于某种原因无法做到的简单事情......)。
该评论由网站上的主持人最小化
非常感谢! 节省了我必须做 800 多个这些细胞的大量时间!
该评论由网站上的主持人最小化
非常好的工具! 我转换了 16K+ 链接。 工具工作快速且完美无瑕。
这里还没有评论
加载更多
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点