How to extract unique values from two columns Excel VBA

Question

I need to get the unique values between Column (A) and Column (C) to be shown in Column (E)

Do you want values that appear in column A or column C, but not both?? — Gary's Student
– Gary's Student, Commented Aug 17, 2015 at 13:51
i need to compare the values between Column(A) and Column(C) and show the unique at Column (E). — Abdo El Husseini
– Abdo El Husseini, Commented Aug 17, 2015 at 13:54

Gary's Student · Accepted Answer · 2015-08-17 14:04:38Z

1

This code:

Sub GetUniques()
    Dim Na As Long, Nc As Long, Ne As Long
    Dim i As Long
    Na = Cells(Rows.Count, "A").End(xlUp).Row
    Nc = Cells(Rows.Count, "C").End(xlUp).Row
    Ne = 1

    For i = 1 To Na
        Cells(Ne, "E").Value = Cells(i, "A").Value
        Ne = Ne + 1
    Next i
    For i = 1 To Na
        Cells(Ne, "E").Value = Cells(i, "C").Value
        Ne = Ne + 1
    Next i

    Range("E:E").RemoveDuplicates Columns:=1, Header:=xlNo
End Sub

will produce this type of result:

answered Aug 17, 2015 at 14:04

Gary's Student

96.9k10 gold badges66 silver badges104 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Abdo El Husseini Over a year ago

Dears it's wonderful but i need it like below . Column(A) Mike Joe Ralph Column(c) Mike joe Column(E) Ralph

Collectives™ on Stack Overflow

How to extract unique values from two columns Excel VBA

1 Answer 1

1 Comment

Your Answer

Linked

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Linked

Related