如何在 Excel 中移除或删除单元格中所有带删除线的文本或字符?

ms excelmicrosoft technologiesadvanced excel function更新于 2025/3/18 3:24:17

像 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