How to delete all strikethrough text in excel
Open Ms-Excel Move the cursor to the sheet name "Sheet1" or whatever you have renamed your sheet and right click, then click on view code. A new Visual Basic window will open. In the left corner double click on "This workbook" and type or copy/paste the following codes in the blank space. 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) The...