Как извлечь уникальные значения из двух столбцов Excel VBA

Question

Мне нужно, чтобы получить уникальные значения между колонной (А) и Column (C), который будет показан в колонке (E)

Answer 1

Этот код:

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 

будет производить этот тип результата: