如何从Excel单元格中删除或删除所有删除线文本或字符

像Microsoft Excel这样的强大的电子表格软件被广泛用于数据管理，分析和报告。在使用Excel时，您可能会遇到单元格中包含以删除线样式设计的文本或字符的情况，这意味着材料应该被销毁或删除。为了保持准确的数据或生成整洁和可呈现的工作表，可能需要删除一些删除线格式。

本教程将逐步指导您删除Excel单元格中的所有删除线文本或字符的过程。无论您是有一小部分数据集还是具有许多工作表的大型电子表格，这些技巧都适用。因此，让我们开始，了解如何从Excel文件中清除删除线文本或字符！

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

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

步骤1

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

如何从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

如何从Excel单元格中删除或删除所有删除线文本或字符