Sorting two columns to find duplicates

[wickyd]

Hi folx

I have a sorting query.

How do I go from:

a        d
s        e
w        f
e        y
d        m
r        
f
t
h
y

to

a         
s         
w        
e        e
d        d
r        
f        f
t
h
y        y
         m

1. The real data is email addresses.
2. Column B is a smaller set of data that Column A.
3. Column B will have entries that are not included in Column A, which I would like to be displayed after Column A ends.

Any help would be greatly appreciated.

Thank you.

Kind regards
wickyd

 

[Lewiy]

Try this macro, it requires that your data is in columns A and B and have a spare column C:

Sub SortMe()
Dim limita As Long
Dim limitb As Long
Dim a As Long
Dim b As Long
Dim flag As Boolean
Dim testa As Long
Dim testb As Long
limita = Cells(Rows.Count, 1).End(xlUp).Row
limitb = Cells(Rows.Count, 2).End(xlUp).Row
For b = 1 To limitb
    flag = False
    For a = 1 To limita
        If Cells(b, 2) = Cells(a, 1) Then
            Cells(a, 3) = Cells(b, 2)
            flag = True
        End If
    Next a
    If flag = False Then
        testa = Cells(Rows.Count, 1).End(xlUp).Row
        testb = Cells(Rows.Count, 3).End(xlUp).Row
        If testa > testb Then
            Cells(testa + 1, 3) = Cells(b, 2)
            Else
                Cells(testb + 1, 3) = Cells(b, 2)
        End If
    End If
Next b
Columns(2).Delete shift:=xlToLeft
End Sub

 

[wickyd]

**** Lewiy, that was quick!

Thank you, that is perfect.

wickyd