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

本文将介绍如何从 Excel 的多个单元格中删除所有带删除线的文本或字符。

使用 VBA 代码删除单元格中的所有带删除线的文本

使用 VBA 代码删除单元格中的所有带删除线的文本

以下 VBA 代码可以帮助您删除已标记为带删除线的所有单元格中的文本。请按照以下步骤操作：

1. 在包含需要删除的带删除线文本的工作表中，同时按下 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。

2. 在 Microsoft Visual Basic for Applications 窗口中，请点击 插入 > 模块。然后复制并将以下 VBA 代码粘贴到代码窗口中。

VBA 代码：删除单元格中的所有带删除线的文本

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：", "KuTools For Excel", 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 键或点击 运行 按钮来运行代码。在弹出的 Kutools for Excel 对话框中，请选择包含要删除的带删除线文本的区域，然后点击 确定 按钮。参见截图：

随后，所有带有删除线的文本都会立即从单元格中删除，如下图所示。

使用 Kutools AI 解锁 Excel 魔法

• 智能执行：执行单元格操作、分析数据和创建图表——所有这些都由简单命令驱动。
• 自定义公式：生成量身定制的公式，优化您的工作流程。
• VBA 编码：轻松编写和实现 VBA 代码。
• 公式解释：轻松理解复杂公式。
• 文本翻译：打破电子表格中的语言障碍。

通过人工智能驱动的工具增强您的 Excel 能力。立即下载，体验前所未有的高效！

相关文章：

• 如何在 Excel 中删除特定字符之前或之后的文本？
• 如何删除 Excel 单元格中的不需要的文本？
• 如何从包含文本和数字的单元格中删除数字？
• 如何仅从包含数字和文本的单元格中删除文本？