need help in code enhancement

[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
http://www.mrexcel.com/forum/excel-questions/836836-need-help-enhancing-code.html#post4078629

[snb]

advanced filter, unique =true

[JackkG]

Hi snb,

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

[snb]

Your Excel has a macro recorder too.

[JackkG]

Yep got it. I solved it. Thanks!