3 columns of info with several row, need to delete duplicate

[coneyglaze]

I have 3 columns of information which has several rows ....what I need is something that will delete the duplicated rows that contain the same information in each column.....I have done a search and could not find what I needed .........
Help

[Nimrod]

Just replace the numbers in top of code do indicate which columns you want to test

Sub DeleteRow()
Col1 = 1 ' 1 = colA
Col2 = 2 ' 2 = colb
Col3 = 3 ' 3 = colC
For Rw = 1 To Cells.End(xlDown).Row
    If Not (Cells(Rw, Col1).Value = "") And _
    Cells(Rw, Col1).Value = Cells(Rw, Col2).Value And _
    Cells(Rw, Col2).Value = Cells(Rw, Col2).Value Then
    Cells(Rw, Col1).EntireRow.Delete
    Rw = Rw - 1
    End If
Next
End Sub

[ This Message was edited by: nimrod on 2002-05-16 13:17 ]

[Asala42]

Hey,

In addition to Nimrods vba soln, you could also use an Advance Filter approach(checking the "unique records only")

Adam