I am trying to delete a row if the value in one cell is a duplicate of the one above it. I can't compare the entire row because the values in the other cells may or may not be the same as the row above.
what I have right now works, but boy is is SLOW - and all sorts of blinks going on! Wondered if anyone has a suggestion for making it more efficient:
Dim TotalRows As Integer
Dim Row As Integer
TotalRows = ActiveSheet.UsedRange.Rows.Count
For Row = TotalRows To 2 Step -1
If Cells(Row, 3).Value = Cells(Row - 1, 3).Value Then
Rows(Row).Delete
End If
Next Row
End Sub