I understand filtering will accomplish this but a macro would save time.
My data is in Column "B" that contains ID#. If there is a duplicate ID# in column B, delete the row, but keep one. In addition, I do not want to delete blank cells in Column "B" and non number data.
Before:
XXXXX
35069
35070
35855
35855
XXXXX
35865
35867
After:
XXXXX
35069
35070
35855
XXXXX
35865
35867
Thanks!
Try this code........
Sub deleteduplicates() Dim rng As Range Dim lr As Long lr = Cells(Rows.Count, 2).End(xlUp).Row Application.ScreenUpdating = False For i = lr To 2 Step -1 Set rng = Range("B2:B" & lr) If IsNumeric(Cells(i, 2).Value) = True And WorksheetFunction.CountIf(rng, Cells(i, 2).Value) > 1 Then Cells(i, 2).EntireRow.Delete End If Next i Application.ScreenUpdating = True End Sub
Regards
sktneer
Treat people the way you want to be treated. Talk to people the way you want to be talked to.
Respect is earned NOT given.
Compile error:
Variable not defined
What other information do you need?
Add Dim i as LongOriginally Posted by PaulLor89
The code is running perfect at my end.
See the attached sheet.
Thank you! Seems to be working!
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks