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的较早菜单界面找到此技巧的版本: