如何在Excel中删除或关闭超链接

当您希望链接到其他网站、文件或工作簿中的其他目标时，超链接非常方便。然而，有时候您可能需要出于各种原因摆脱超链接，比如清除过时信息、避免误点击或简化电子表格。本文将为您提供所需的技能，无论您是初学者还是经验丰富的Excel用户，以正确管理超链接并维护电子表格的组织。让我们从学习如何在Excel中禁用或删除超链接开始。

删除或关闭超链接

在这里，我们首先将创建一个VBA模块，然后运行它来完成任务。因此，请看一个简单的过程，了解如何在Excel中删除或关闭超链接。

步骤1

考虑一个含有超链接列表的Excel工作表。

首先，右键单击工作表名称，然后选择“查看代码”以打开VBA应用程序。

**右键单击 > 查看代码。 **

步骤2

然后点击插入并选择模块，然后将下面的代码复制到文本框中。

**插入 > 模块 > 复制。 **

代码

Sub RemoveHlinkskeepformatting()
Dim Rng As Range
Dim WorkRng As Range
Dim TempRng As Range
Dim UsedRng As Range
Dim xLink As Hyperlink
On Error Resume Next
xTitleId = "Remove Hyperlink"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set UsedRng = Application.ActiveSheet.UsedRange
For Each xLink In WorkRng.Hyperlinks
   Set TempRng = Cells(1, UsedRng.Column + UsedRng.Columns.Count)
   Set Rng = xLink.Range
   Rng.Copy TempRng
   Rng.ClearHyperlinks
   Set TempRng = TempRng.Resize(Rng.Rows.Count, Rng.Columns.Count)
   TempRng.Copy
   Rng.PasteSpecial xlPasteFormats
   TempRng.Clear
Next
End Sub

如何在Excel中删除或关闭超链接