Extracting Unique Data

[Howardc]

I have data in Column A and in Column E from row 2 onwards.

1) I would like to set up a formula in column F compare the data in Column E to Column A and where data exists in Column E, but not in Column A, I would like this extracted
2) I would like to set up a formula in column G compare the data in Column A to Column E and where data exists in Column A, but not in Column E, I would like this extracted
3) I would like to set up a formula in Column H or VBA code to compare column A to Column E and extract the numbers that are unique to both

your assistance is most appreciated

[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
-----------------------------

[Howardc]

Hi

It would be appreciated if you could help me again.

I now need to compare column A & E, and need to compare col E to col A and to extract data in Col A that does not appear in Col E

Your assistance in this regar is most appreciated

[bakerman]

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

[Howardc]

Thanks for the help, much appreciated