Filter rows that are not strike out

Hello Everyone!

I have an excel file with some sample data. Some of the rows in it are strike out. requirement is to omit all the rows that are strike out and write the remaining rows to an excel file

Any help greatly appreciated

try building macros

@teenu can you share your excel sheet.

Book1.xlsx (9.1 KB)

use this macro

Sub RemoveStrikes()

Dim RowsCount As Integer
Cells(2, 1).Select
Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
RowsCount = Selection.Rows.Count
For i = 2 To RowsCount
Cells(i, 1).Select
If ActiveCell.Font.Strikethrough = True Then
    Rows(i).EntireRow.Delete
End If
Next

End Sub

Thank you so much Vikas.
Right now I have used an other macro that works fine.

Will try with this one too

This topic was automatically closed 3 days after the last reply. New replies are no longer allowed.