如果您从其他人继承工作表，则可能会发现某些工作表包含许多超链接。这些超链接通常是在您导入或在工作表中输入信息时由Excel自动创建的。 （当我将信息粘贴到从某处从网页复制的工作表中时，我一直看到它们出现。）

如果要删除这些超链接，可以通过右键单击它们并选择“超链接” |“删除”来删除。从上下文菜单中删除超链接。

使用数十个或数百个超链接执行此操作会迅速消耗大量时间。更快地完成这样的任务需要使用宏。

以下宏可快速删除工作表中的所有超链接，而不会影响它可能包含的其他任何内容：

Sub KillLinks1()

Do Until ActiveSheet.Hyperlinks.Count = 0         ActiveSheet.Hyperlinks(1).Delete     Loop End Sub

该宏通过逐步浏览超链接集合并删除其中的所有内容来工作。 （“超链接”集合允许访问文档中的所有超链接。方便吗？）

如果需要，您可以使宏更短，直至一行：

Sub KillLinks2()

ActiveSheet.Hyperlinks.Delete End Sub

选择要影响的工作表，运行这些宏之一，您就节省了很多时间！

注意：

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

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

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

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

摆脱所有超链接。