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

如果要删除工作表或整个工作簿中存在的数百个超链接，或者在创建超链接时直接关闭它们。如何快速处理 Excel 中不需要的超链接呢？

• 使用“删除超链接”命令删除某个区域中的所有超链接（适用于 Excel 2010 及更高版本）
• 使用 VBA 代码删除工作表中的所有超链接（适用于所有 Excel 版本）
• 使用 VBA 代码删除所有超链接且不丢失格式（适用于所有 Excel 版本）
• 使用 Kutools for Excel 删除区域、工作表或工作簿中的所有超链接且不丢失格式 （适用于所有 Excel 版本）
• 在 Excel 中关闭或禁用自动超链接

使用“删除超链接”命令删除某个区域中的所有超链接

如果超链接位于同一工作表中，可以使用“删除超链接”功能将其删除。

1. 选择包含要删除的超链接的区域。

2. 然后点击“开始” > “清除” > “删除超链接”，请参见截图：

提示：您也可以右键单击所选区域，并选择 删除超链接 从菜单中，请参见截图：

3. 所选区域中的所有超链接将立即被删除。

使用 VBA 代码删除工作表中的所有超链接

如果您是熟练的专业用户，可以通过创建宏来删除活动工作表中的超链接。

1. 激活要删除超链接的工作表。

2. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

3. 点击 “插入” > “模块”，并将以下代码粘贴到模块窗口中。

VBA 代码：删除活动工作表中的所有超链接：

Sub RemoveHyperlinks() 
ActiveSheet.Hyperlinks.Delete 
End Sub

4. 然后按 F5 键运行此代码，活动工作表中的所有超链接将立即被删除。

使用 VBA 代码删除所有超链接且不丢失格式

上述所有方法在删除超链接时都会清除单元格格式。如果您希望在删除超链接的同时保留格式，这里有一个代码可以帮助您。请按照以下步骤操作：

1. 按住 ALT + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 点击 “插入” > “模块”，并将以下代码粘贴到模块窗口中。

VBA 代码：删除所有超链接且不丢失单元格格式：

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 = "KutoolsforExcel"
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

3. 然后按 F5 键运行此代码，在弹出的提示框中，选择包含要删除的超链接但保留格式的区域，请参见截图：

4. 然后点击“确定”，超链接已被删除，但其格式（包括下划线）得以保留。请参见截图：

使用 Kutools for Excel 删除区域、工作表或工作簿中的所有超链接

假设您即将在多个工作表或整个工作簿中删除超链接且不丢失格式，那么一个可用的工具 Kutools for Excel 将帮助您一键删除多个超链接。

点击 Kutools > 链接 > 清除超链接并保留格式， 然后根据需要选择要删除超链接的范围。请参见截图：

然后，所有超链接将立即被删除，但文本格式会根据您的需求保留。请参见截图：

在 Excel 中关闭或禁用自动超链接

当您输入网址或电子邮件地址时，Excel 会自动生成超链接；如果您需要禁用此行为，请按照以下步骤操作：

1. 在 Excel 2010 及更高版本中，点击“文件” > “选项”；在 Excel 2007 中，点击“Office 按钮” > “Excel 选项”以打开“Excel 选项”对话框。

2. 在“Excel 选项”对话框中，点击左侧窗格中的“校对”，然后在右侧部分点击“自动更正选项”。请参见截图：

3. 然后在弹出的“自动更正”对话框中，点击“键入时自动设置格式”选项卡，并取消选中“键入时替换”部分下的“将 Internet 和网络路径替换为超链接”选项，请参见截图：

4. 然后，点击“确定” > “确定”关闭对话框。现在，当在单元格中输入网址并按下 Enter 键后，该网址将不会变成可点击的超链接。