数据结构
网络
关系型数据库管理系统
操作系统
Java
MS Excel
iOS
HTML
CSS
Android
Python
C 编程
C++
C#
MongoDB
MySQL
Javascript
PHP
物理学
化学
生物学
数学
英语
经济学
心理学
社会学
服装设计
法律研究如何在不删除格式的情况下移除超链接？
链接可以帮助您更快地访问不同的位置、网站或文件。但是，有时您可能希望在从 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
步骤 3
然后点击 F5 运行模块。然后选择单元格范围并点击“确定”以完成任务。
F5 > 选择单元格 > 确定
这就是您在 Excel 中移除超链接的方式。
结论
在本教程中，我们使用了一个简单的示例来演示如何在 Excel 中移除超链接而不移除格式以突出显示特定数据集。
更新于： 2023年9月7日
160 次查看
广告