Even though strikethrough cells are readable, it is uncomfortable for many readers. Also, erasing strikethrough can be cumbersome if we consider a large Excel dataset. With that in mind, in this article, we will see how to remove strikethrough in Excel in 3 easy ways. Before diving into the methods in the next section, have a look at the overview of this article.
3 Suitable Ways to Remove Strikethrough in Excel
Here, we will see the use of keyboard shortcuts, the Format Cells feature, and an Excel VBA to thoroughly delete strikethrough. With the following dataset as our example, we will learn how to remove strikethrough in Excel in 3 different ways.
1. Keyboard Shortcut to Remove Strikethrough in Excel
To remove strikethrough from Excel with Keyboard Shortcut, follow the below instructions.
Steps:
- First, select the cells with strikethrough.
- Then press Ctrl+5 on your keyboard.
That’s it. Simply pressing Ctrl+5 on your keyboard will remove all the strikethrough from your cells.
2. Format Cells Feature to Delete Strikethrough in Excel
We can use Excel’s Format Cells feature to delete strikethrough from cells.
Steps:
- First, select the cells with strikethrough.
- Next, in the Home tab, select the Format Cells option (shown in the picture below).
- From the Format Cells pop-up window, go to the Font tab and uncheck the checkbox next to Strikethrough under the Effects option.
- Press OK.
This process will remove all the strikethrough from your cells.
3. VBA to Remove Strikethrough Rows from Excel
If you want to delete all the strikethrough rows from your Excel then VBA is the most efficient and safest method to achieve the task.
The steps to delete strikethrough rows from Excel are given below.
Steps:
- Press Alt + F11 on your keyboard or go to the tab Developer → Visual Basic to open Visual Basic Editor.
- In the pop-up code window, from the menu bar, click Insert → Module.
- In the code window, copy the following code and paste it.
Sub DeleteStrRows()
    Dim r As Range
    Dim iCheck As Boolean
    Dim i As Integer
    Dim iRows As Integer
    iRows = Selection.Rows.Count
    If iRows > 2 Then
        For i = iRows To 1 Step -1
            iCheck = False
            For Each r In Selection.Rows(i).Cells
                iCheck = IsNull(r.Font.Strikethrough)
                If Not iCheck Then iCheck = r.Font.Strikethrough
                If iCheck Then Exit For
            Next r
            If iCheck Then Selection.Rows(i).EntireRow.Delete
        Next i
    End If
End SubYour code is now ready to run.
- Go back to the worksheet of interest where your strikethrough rows are, select the rows and Run the macro.
This will delete all the strikethrough rows from your Excel worksheet.
Download Practice Template
You can download the free practice Excel template from here.
Conclusion
This article showed you how to remove strikethrough in Excel in 3 different and easy ways. I hope this article has been very beneficial to you. Feel free to ask any questions regarding the topic.
is it possible to remove all text within a workbook that is formatted with strikethrough? For example if one cell contains some text that is formatted with strikethrough and some text that is not in the same cell. i would like to remove only the text within the cell that has strikethrough used. not the entire cell.
Hi JOJO,
Thanks for your comment. I am replying to you on behalf of Exceldemy. You can use VBA to remove texts that have strikethrough in them. Suppose, you have some text strings like the picture below:
Let’s follow the steps below to remove the texts with a strikethrough.
STEPS:
1. Firstly, go to the Developer tab and click on the Visual Basic option.
2. Secondly, select Insert >> Module to open the Module window.
3. Now, copy the code below and paste it into the Module window:
Sub Remove_Strike_through_Texts()Dim iRng As Range, iCell As RangeDim iStr As StringDim X As LongOn Error Resume NextSet iRng = Application.InputBox("Please select range:", "Microsoft Excel", _Selection.Address, , , , , 8)If iRng Is Nothing Then Exit SubApplication.ScreenUpdating = FaseFor Each iCell In iRngIf IsNumeric(iCell.Value) And iCell.Font.Strikethrough TheniCell.Value = ""ElseIf Not IsNumeric(iCell.Value) ThenFor X = 1 To Len(iCell)With iCell.Characters(X, 1)If Not .Font.Strikethrough TheniStr = iStr & .TextEnd IfEnd WithNextiCell.Value = iStriStr = ""End IfNextApplication.ScreenUpdating = TrueEnd Sub4. Press Ctrl + S to save the code.
5. After that, go to the Developer tab and select Macros.
6. In the Macro window, select the desired code and Run it.
7. A message box will appear.
8. Select the range from where you want to remove the strikethrough texts.
9. Finally, click OK to proceed.
10. As a result, the texts with strikethrough will be removed.
I hope this will help you to solve your problem. Please let us know if you have other queries.
Thanks!