Eliminate Duplicate Row

  • Thread starter Thread starter Chip
  • Start date Start date
C

Chip

I have a worksheet with approx 4,000 rows. Some of the items in Column A are
duplicates. How do I delete an entire Row if there is a duplicate of the
item in Column A ?? Thanks..
 
Sort>use a loop macro from the bottom up asking if cell +1<>cell then
row.delete

for i=cells(rows.count,1).end(xlup).row to 1 step -1
if cells(i+1,1)<>cells(i,1)then rows(i+1).delete
next i
 
Back
Top