Deleting Duplicate Records

M

mossad

Worksheets("Sheet1").Range("A1").Sort _
key1:=Worksheets("Sheet1").Range("A1")
Set currentCell = Worksheets("Sheet1").Range("A1")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.EntireRow.Delete
End If
Set currentCell = nextCell
Loop
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Deleting ALL duplicates using Pearson's code 2
how do i set up if cell content repeat, warn given 1
Delete rows that contain duplicates 1
help with look up formula 5
Converting URLs in comments to Markdown-formatted links 2
Duplicates Deletion ? 2
Spreadsheet - Deleting Duplicate Records - Self Checking 1
Call a function within Excel VBA --- need help can't figure out syntax correctly 14

Top