Unique values for multiple columns

[Motox]

Hi,

If I have multiple columns of data, with duplicate values in Column A, is it possible to remove all rows that have a “duplicate” in Column A and still show all columns?

I want to show all the unique values in column A, and the associated data in the other columns.

Other methods of getting unique values that I have tried seem to only work for a single column (e.g. Data, Advanced, Unique records only).

Please see attached example.

Thanks very much

Dave

[AB33]

Use remove duplicate function in excel

[XOR LX]

@AB33

"Use remove duplicate function in excel"

I believe the OP is using 2003.

@motox

You say that the duplicates are in column A only? From your data, they would appear to be across all columns?

Regards

[snb]

Sub M_snb()
   Sheet1.Cells(1).CurrentRegion.AdvancedFilter 2, , Sheet2.Cells(1), True
End Sub

[satputenandkumar0]

Dear Motox,

try below code

Sub RemoveDuplicate()
    Dim rCell As Range
    Dim rRange As Range
    Dim lCount As Long
    Application.ScreenUpdating = False
    Set rRange = Range("A1", Range("A" & Rows.Count).End(xlUp))
    lCount = rRange.Rows.Count
    For lCount = lCount To 1 Step -1
        With rRange.Cells(lCount, 1)
            If WorksheetFunction.CountIf(rRange, .Value) > 1 Then
                .EntireRow.Delete
            End If
        End With
    Next lCount
End Sub

Regards,
Nandkumar S

[AB33]

XOL,
Thank you!
I did not notice OP's profile.
Advance filter is faster than any code.

Sub removeme()
 With ActiveSheet
    .Range("A2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row).RemoveDuplicates 1
   End With
End Sub

[snb]

XOL,
Thank you!
I did not notice OP's profile.
Advance filter is faster than any code.

Sub removeme()
 With ActiveSheet
    .Range("A2:C" & .Cells(.Rows.Count, 1).End(xlUp).Row).RemoveDuplicates 1
   End With
End Sub

No advanced filter in your code though....

[AB33]

Well,
Obviously, I was referring to your code as post # 4 seems to be the only one with "That magic word".