如何在 Excel 中删除所有带删除线的文本或字符？

像 Microsoft Excel 这样的强大的电子表格软件被广泛用于数据管理、分析和报告。在使用 Excel 时，您可能会遇到单元格包含带有删除线样式的文本或字符的情况，这意味着该内容应被删除或消除。为了保持数据准确性或生成整洁且易于查看的工作表，可能需要删除某些删除线格式。

本教程将逐步指导您完成从 Excel 单元格中删除所有带删除线的文本或字符的过程。无论您拥有少量数据集还是大型电子表格，包含多个工作表，这些技术都非常有效。因此，让我们开始并了解如何从您的 Excel 文件中清除带删除线的文本或字符！

删除单元格中的所有带删除线的文本或字符

这里我们将首先创建一个 VBA 模块，然后运行该模块，最后选择单元格范围来完成任务。因此，让我们了解一个简单的过程，了解如何在 Excel 中删除单元格中的所有带删除线的文本或字符。

步骤 1

考虑一个 Excel 表格，其中您有一个包含带删除线单元格的单元格列表，类似于下图。

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

右键单击 > 查看代码。

步骤 2

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

插入 > 模块 > 复制。

代码

Sub DelStrikethroughText()
   Dim xRg As Range, xCell As Range
   Dim xStr As String
   Dim I As Long
   On Error Resume Next
   Set xRg = Application.InputBox("Please select range：", "Remove Strikethrough Characters ", Selection.Address, , , , , 8)
   If xRg Is Nothing Then Exit Sub
   Application.ScreenUpdating = Fase
      For Each xCell In xRg
         If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
            xCell.Value = ""
         ElseIf Not IsNumeric(xCell.Value) Then
            For I = 1 To Len(xCell)
               With xCell.Characters(I, 1)
                  If Not .Font.Strikethrough Then
                     xStr = xStr & .Text
                  End If
               End With
            Next
            xCell.Value = xStr
            xStr = ""
         End If
      Next
   Application.ScreenUpdating = True
End Sub

步骤 3

然后单击 F5 运行模块。然后选择单元格范围并单击“确定”。然后您将看到选定范围中的所有删除线字符都将被删除。

F5 > 选择单元格 > 确定

结论

在本教程中，我们使用了一个简单的方法向您展示了如何在 Excel 中删除所有带删除线的文本或字符，以突出显示特定数据集。

更新于: 2023年9月8日

2K+ 次浏览

开启你的 职业生涯

通过完成课程获得认证

立即开始
广告