RemoveDuplicates not removing all duplicate entries
It is always due to the cells not containing exactly the same data.
Sometimes it is a space or tab at the beginninhgor end of the data.
sometimes it is a mis-spelled word. Other times it is the letter o instead
of the digit 0. 1's instead of l's. Maybe an extra space between words.
Look and eventualy you find the mis-match.
One way of comparing is copy both cells to notepad. Put each piece of data
on a seperate line and look close at the two lines of data.
"Rick S." wrote:
I can't see what is failing in this macro to remove all duplicates.
I always end up with one duplicate left over?
All help is appreciated.
'======
Sub RemoveDups()
ActiveSheet.Unprotect "2000"
Application.ScreenUpdating = False
Dim Sh3LastRow
Dim Sh3LastCol
With Sheets("Order Specs")
Sh3LastRow = .Cells(Rows.Count, "A").End(xlUp).row
Sh3LastCol = Range("A2").Cells(1, .Columns.Count).End(xlToLeft).Column
End With
ActiveSheet.Range("A2:K" & Sh3LastRow).RemoveDuplicates
Columns:=Array(1, 2), Header:=xlYes
Range("A2").Activate
'ActiveSheet.Protect "2000"
Application.ScreenUpdating = True
End Sub
'======
--
Regards
VBA.Newb.Confused
XP Pro
Office 2007
|