Aynı olmayan girişleri iki excel sayfasından iki sütuntan ayırma [kapalı]

Aşağıda gösterildiği gibi bir excel sayfasında iki sütun var.

Column A    Column B
87            87
107           107
108           108
117           117
119           119
153           153
170           170
174           174
209           209
409106386989  409014007285
409110099164  174

Burada hem A hem de B sütunlarında 11 giriş var.
Şimdi her iki sütundan da aynı olmayan girdileri bulmam gerekiyor.
409106386989 ve 409110099164 girişleri yalnızca A sütununda bulunur ancak B
sütununda yoktur.

Akıllıca girişler 409014007285 gibi sadece B sütununda bulunur, ancak A'da yoktur.
Ayrıca B sütununda iki giriş 174 vardır, ancak A sütununda sadece bir giriş vardır.
Bu yüzden bu iki girişi yani 409014007285 ve 174 sütununu B'den ayırmak zorundayım.

Dolayısıyla Çıktı aşağıdaki gibi olmalıdır.

    Column A               Column B       A but not B        B but not A
          87                     87      409106386989                174
         107                    107      409110099164       409014007285
         108                    108
         117                    117
         119                    119
         153                    153
         170                    170
         174                    174
         209                    209
409106386989           409014007285
409110099164                    174

Bu işlemi el ile yapıyorum, bu girişlerin bin olduğu zaman çok zaman alıyor.

Bazı kodları çalıştırarak bunu yapmak mümkün mü (VB komut dizisini kullanarak) ...?

Bunu bir deneyin:

Sub GetUnique()
    Dim N As Long, M As Long, i As Long, K As Long, L As Long
    Dim r As Range
    N = Cells(Rows.Count, "A").End(xlUp).Row
    M = Cells(Rows.Count, "B").End(xlUp).Row

    K = 1
    For i = 1 To N
        v = Cells(i, "A").Value
        Set r = Range(Cells(1, 2), Cells(M, 2)).Find(v)
        If r Is Nothing Then
            Cells(K, "C").Value = v
            K = K + 1
        End If
    Next i

    K = 1
    For i = 1 To M
        v = Cells(i, "B").Value
        Set r = Range(Cells(1, 1), Cells(N, 1)).Find(v)
        If r Is Nothing Then
            Cells(K, "D").Value = v
            K = K + 1
        End If
    Next i

End Sub

DÜZENLEME 1.

Bu makro A ve B sütunlarındaki verileri işler . Çıktı verileri C ve D sütunlarına yerleştirilir .

Genel olarak makrolar hakkında daha fazla bilgi için bkz.

http://www.mvps.org/dmcritchie/excel/getstarted.htm

ve

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Bunun çalışması için makrolar etkinleştirilmelidir!

DÜZENLEME 2.

Bu makro, birincisine benzer şekilde, A & B sütunlarının her ikisinde de aynı değerdeki çoklu oluşumları idare edecektir.

Sub FindNonDuplicates()
    Range("A:A").Copy Range("C1")
    Range("B:B").Copy Range("D1")
    Dim nC As Long, nD As Long, v As Variant
    Dim i As Long, j As Long
    nC = Cells(Rows.Count, "C").End(xlUp).Row
    nD = Cells(Rows.Count, "D").End(xlUp).Row

    For i = nC To 1 Step -1
        v = Cells(i, "C").Value
        For j = 1 To nD
            If v = Cells(j, "D").Value Then
                Cells(i, "C").Delete Shift:=xlUp
                Cells(j, "D").Delete Shift:=xlUp
                nD = nD - 1
                GoTo qwerty
            End If
        Next j
qwerty:
    Next i
End Sub