MrExcel Publishing
Your One Stop for Excel Tips & Solutions

Deleting dupes

Posted by Jessica on June 20, 2000 2:53 PM

This is probably easy, but I haven't figured it out yet. I import data from an ASCII file when the info shows up in Excel, there are 2-3 lines of the same information, for 300+ invoices. I've been going through and deleting the dupes, but I about go crazy going through hundreds and hundreds of entries!

What's the easiest way to delete dupes? The duplicate lines are exactly the same. Do I need to do a macro? yikes..


Posted by Ryan on June 20, 0100 6:11 PM

Hey Jessica,
This was an easy one, just copy this code and run it. You might have to modify it for your needs. I have it so it goes down column A and if the there are two cells together that are the same it will delete the second one and move all the other ones up. I can do it for more then two cells but i thought it would be safer to do it just one at a time. So if you have two are three together, just run the macro two or three times, it only takes a second. Hope you like it, let me know. Ryan

Sub RemoveDupes()

Dim Entries As Integer

On Error Resume Next
Application.ScreenUpdating = False
Entries = Application.WorksheetFunction.CountA(Range("A:A"))
For X = 1 To Entries
If Cells(X, 1).Value = Cells(X + 1, 1).Value Then _
Rows(X + 1 & ":" & X + 1).Delete Shift:=xlUp
Next X
Application.ScreenUpdating = True
End Sub