Identifying and Marking Duplicate entries

  • Thread starter Thread starter Kari
  • Start date Start date
K

Kari

I want to add a the word "Duplicate" to the blank field next to an
duplicate enteries in a column, except for the first one.

I have a working Macro that replaces the duplicate enteries, except th
first one, with "Duplicate". I found another (Formula) that places th
word "Duplicate" in the column next to any duplicated record, but can
get this one to work.

Is there a way to combine these two for the desired results?
Below is the macro and the formula used:

Micro:

Sub FixDuplicateRows()
Dim RowNdx As Long
Dim ColNum As Interger
ColNum = Selection(1) .Column
For RowNdx = Selection(Selection.Cells.Count) .Row To_
Selection(1) .Row + 1 Step -1
If Cells (RowNdx, ColNum) .Value = Cells(RowNdx -1, ColNum) .Value The
Cells(RowNdx, ColNum) .Value = "Duplicate"
End If
Next RowNdx
End Sub



Formula:

=IF(COUNTIF(Range1,A2)>1,"Duplicate","")


Thanks in advance for any help.


--Kar
 
That site was very informative, that's where I originally found th
formulas I've been playing with, but I want to edit them a bit an
haven't been able to figure out how.

I'd even settle for adding an interger infront of the contents of th
duplicate fields, except the first one. I just need a way to sort the
so I can extract them and place them into a seperate file.

Thanks for the link though.


Kar
 
Hi!

If you want to see and work on the duplicates you can do it by firs
sorting (by the column you are interested in) then use Data
subtotals, which will e.g. count and show up the blocks wit
duplicates.

Al
 
I know how to sort by column, that's not going to give me what I need.
I don't want the duplicates right next to eachother, then I'd have t
go throught the whole file manually. I want to be able to extract al
the 2nd duplicates in a file and place them into a new file
 
Back
Top