JackkG
02-18-2015, 03:56 AM
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
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