如何在不破坏格式的情况下删除超链接?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/16 13:00:17

链接可以帮助您更快地访问不同的位置、网站或文件。但是，有时您可能希望在从 Excel 工作表中删除超链接的同时保留原始格式。手动删除超链接可能需要一段时间，尤其是在处理大型数据集时。

完成本教程后，无论您的 Excel 水平如何，您都将能够熟练地从 Excel 工作表中删除超链接，同时保留数据的外观。让我们开始学习如何有效地从 Excel 中删除超链接而不破坏格式!

在不破坏格式的情况下删除超链接

在这里，我们将首先创建一个 VBA 模块，然后运行它来完成任务。让我们通过一个简单的过程来了解如何在 Excel 中移除超链接而不删除格式。

步骤 1

假设有一张包含超链接列表的 Excel 工作表。

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

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

步骤 2

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

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

代码

Sub RemoveHlinks()
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 Hyperlinks Formatting"
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