Delete non duplicate rows

[christianbiker]

Greetings folks,

I have a spreadsheet that contains many rows of data. Some of the cell values in column A are duplicates while others are unique and there is only 1. I would like to use VBA to delete the rows that contain unique values in column A, while leaving the duplicate values (+ their corresponding rows) found in column A.

Any assistance would be greatly appreciated.

C

 

[christianbiker]

Nevermind...must've had a typo. I'm a dummy! Sorry for bothering you.

 

[christianbiker]

Nevermind...I must have typed something wrong. I'm a dummy . Sorry about that.

 

[Fluff]

Glad you sorted it & thanks for the feedback.

 

[christianbiker]

Fluff...you have been very helpful and I've asked lots of questions...

Along the line of duplicates, I have found the following code that uses specific colours to highlight duplicates. Is there a way to apply it to a range such as A2:D150?

Dim a, i As Long
a = Range("A2", Range("a" & Rows.Count).End(xlUp)).Value
With CreateObject("Scripting.Dictionary")
.CompareMode = vbTextCompare
For i = 1 To UBound(a, 1)
    If Not IsEmpty(a(i, 1)) Then
        If Not .exists(a(i, 1)) Then .Item(a(i, 1)) = VBA.Array("", 0)
        w = .Item(a(i, 1))
        w(0) = w(0) & IIf(w(0) = "", "", ",") & Cells(i, 1).Address(0, 0)
        w(1) = w(1) + 1: .Item(a(i, 1)) = w
    End If
Next
For Each e In .items
    If e(1) <> 1 Then
        Select Case e(1)
            Case 2: myClr = vbYellow
            Case 3: myClr = vbRed
            Case 4: myClr = vbBlue
            Case 5: myClr = vbMagenta
            Case 6: myClr = vbGreen
            Case Else: myClr = vbCyan
        End Select
        Range(e(0)).Interior.Color = myClr
    End If
Next
End With

 

[Fluff]

As this is now a totally different question, please start a new thread.

 

[christianbiker]

Wasn't sure...didn't want to break the rules. Thanks!