How to Remove or Delete All Strikethrough Texts or Characters From Cells in Excel?


Powerful spreadsheet software like Microsoft Excel is widely used for data management, analysis, and reporting. When using Excel, you may come across instances when cells include text or characters that have been styled with a strikethrough, meaning that the material should be destroyed or eliminated. For the sake of keeping accurate data or producing a tidy and presentable worksheet, some strikethrough formats may need to be removed.

This tutorial will guide you through the process of deleting all strikethrough text or characters from Excel cells step-by-step. These techniques work well whether you have a little dataset or a big spreadsheet with lots of worksheets. So, let's begin and discover how to purge strikethrough text or characters from your Excel files!

Remove or Delete All Strikethrough Texts or Characters From Cells

Here we will first create a VBA module, then run the module, and finally select the range of cells to complete the task. So let us see a simple process to know how you can remove or delete all strikethrough texts or characters from cells in Excel.

Step 1

Consider an Excel sheet where you have a list of cells that contain strikethrough cells, similar to the below image.

First, right-click on the sheet name and select View code to open the VBA application.

Right-click > View Code.

Step 2

Then click on Insert and select Module, then copy the below code into the text box.

Insert > Module > Copy.

Code

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

Step 3

Then click F5 to run the module. Then select the range of cells and click OK. then you will see that all the strikethrough characters from the selected range will be removed.

F5 > Select Cells > OK

Conclusion

In this tutorial, we have used a simple process to show you how you can remove or delete all strikethrough texts or characters from cells in Excel to highlight a particular set of data.

Updated on: 08-Sep-2023

379 Views

Kickstart Your Career

Get certified by completing the course

Get Started
Advertisements