Need help enhancing the code.

[JackkG]

Hi all,

Can anyone be able to find alternative for the code below, this takes lot of time to execute. Thanks!

For i = ws2.UsedRange.Rows.Count To 2 Step (-1)
    If ws2.Range("I" & i).Value = ws2.Range("I" & i - 1).Value Then
        ws2.Range("I" & i).EntireRow.Delete
    End If
Next

crossposted here
Need improvement in code..

 

[njimack]

2 possible alternatives -
1. Use a helper column to compare column I of each row with the cell above, then filter on this helper column and delete only the visible cells using SpecialCells(xlCellTypeVisible)
2. Use your existing loop to clear the content of the cells rather than delete the row. Then use SpecialCells(xlCellTypeBlanks)

If you don't mind resorting your data, you could amend my first suggestion to sort on the helper column, which would be even faster.

(I'm assuming you've already set ScreenUpdating to False and Calculation to Manual)

 

[JackkG]

Hi njimack,

Can you get me your suggestion in code version? Thanks!

 

[JackkG]

Yep got it. I solved it. Thanks!