Deleting Duplicate Records

  • Thread starter Thread starter HM
  • Start date Start date
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
HeaderRowRange 2
Calculation options change arbitrarily 1
deleting blank rows 0
improve DeleteBlankRows() 2
Question on a Chip Pearson macro 4
Spreadsheet - Deleting Duplicate Records - Self Checking 1
Removing duplicate records based off of date 3

Back
Top