如何在 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+ 次瀏覽

開啟你的 職業生涯

透過完成課程獲得認證

立即開始
廣告