Cheryl有一个包含许多超链接的工作表。每个超链接的显示文本与超链接的目标不同。这些超链接都在A列中。Cheryl希望将显示文本保留在A列中，将目标URL移到B列中，然后删除A列中的超链接。她最后需要做的是A列中的显示文本。 ，B列中的URL，并且工作表中没有活动的超链接。

以这种方式处理和从超链接中提取信息需要使用宏。下面是一个灵活的宏的示例，该宏检查选定单元格区域中的所有超链接。如果找到超链接，则在超链接的右侧输入超链接的URL，然后删除超链接本身。

这样会将显示文本保留在以前超链接所在的单元格中。

Sub GetHLInfo()

Dim rRng As Range     Dim cell As Range

Set rRng = ActiveSheet.Range(ActiveWindow.Selection.Address)

For Each cell In rRng         If cell.Hyperlinks.Count > 0 Then             cell.Offset(0, 1) = cell.Hyperlinks(1).Address             cell.Hyperlinks(1).Delete         End If     Next End Sub

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（9898）适用于Microsoft Excel 2007、2010、2013、2016、2019和Office 365中的Excel。您可以在此处为Excel的较早菜单界面找到此技巧的版本：

提取超链接信息。