Extracting Unique Data

[littleiitin]

Hi,

Welcome to the board....

Plaese find the below solution...


PASTE Below formula in F2 and Drag it down:

=IF(COUNTIF($A$2:$A$18,E2)>0,E2,"")

PASTE Below formula in G2 and Drag it Down:

=IF(COUNTIF($E$2:$E$18,A2)>0,A2,"")

for Unique : You can use below formula H2 nd drag it down in:...

=IF(COUNTIF($A$2:$A$18,E2)=0,E2,IF(COUNTIF($E$2:$E$18,A2)=0,A2,""))

and Below Code is for Unique One:Below Code Will work if you have 2007 and above version..

Sub FindUnique()
    
    Dim lngLastR    As Long
    Dim rngAutoFil  As Range
    
    With ThisWorkbook.Worksheets("sheet1")
        lngLastR = .Range("A" & .Rows.Count).End(xlUp).Row
        .Columns("I:I").Insert
        .Range("A2:A" & lngLastR).Copy
        .Range("H2").PasteSpecial xlPasteValues
        .Range("E2:E" & .Range("E" & .Rows.Count).End(xlUp).Row).Copy
        .Range("H" & lngLastR + 1).PasteSpecial xlPasteValues
        Set rngAutoFil = .Range("H2:H" & .Range("H" & .Rows.Count).End(xlUp).Row)
        rngAutoFil.Select
        rngAutoFil.RemoveDuplicates Columns:=1, Header:=xlNo
    End With
End Sub

HTH
-----------------------------