keep duplicates

[psrs0810]

I see in excel 2007 the feature to remove duplicates. Is there a way to keep duplicates?

 

[JackDanIce]

In what sense do you mean? What feature in relation to what data (range, data type etc) do you mean?

If you do nothing, I'm guessing that will keep the duplicates...

 

[psrs0810]

just like the remove duplicates, but opposite. remove single values

 

[ThePeter]

Is this something for a one-off, or do you need to run this procedure over and over?

 

[psrs0810]

I can sort them so they are in numerical order - if that is what you mean.
What I was doing to find the dups was a simple =If(A1=A2, true)

 

[VoG]

Try this

Sub KeepDups()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 1 Step -1
    If WorksheetFunction.CountIf(Columns("A"), Range("A" & i).Value) = 1 Then Rows(i).Delete
Next i
End Sub