如何在 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 中刪除儲存格中的不需要的文字？
• 如何在 Excel 中刪除包含文字和數字的儲存格中的數字？
• 如何在 Excel 中僅刪除包含數字和文字的儲存格中的文字？