How to extract unique data from two columns

My spreadsheet has two columns : Name list and Sezi, please help me to extract unique data from this two columns and display result like attachment file.

Thanks in advanced!

Sorry Alkey! I want to write code in this case, my data has about 5000 rows. I want to use Dictionary Object in this case but I cant beacuse I dont know to use Dictionary Object.
Your formula not display the result that I desire, with name list is AA in column F, sezi is : 0333, 0444M, 0022 but your result is : 0333, 0333, 0444M, 0022, hix
Who can hepl me, please?

see attachment

Try this:-
Results start "F1"

Sub MG22Dec31
Dim Rng     As Range
Dim n       As Long
Dim Dn      As Range
Dim Dic     As Object
Dim oDup    As Variant
Set Dic = CreateObject("scripting.dictionary")
    Dic.CompareMode = vbTextCompare
        Set Rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
            With CreateObject("scripting.dictionary")
                .CompareMode = vbTextCompare
For Each Dn In Rng
    If Not Dn = vbNullString Then
        If Not .exists(Dn.Value) Then
            .Add Dn.Value, Format(Dn.Offset(, 1), "@")
    Else
        .Item(Dn.Value) = .Item(Dn.Value) & ", " & Dn.Offset(, 1)
        oDup = Split(.Item(Dn.Value), ", ")
            For n = 0 To UBound(oDup)
                Dic(oDup(n)) = Empty
            Next n
        .Item(Dn.Value) = Join(Dic.keys, ", ")
        Dic.RemoveAll
    End If
End If
Next
Range("F1").Resize(.Count, 2) = Application.Transpose(Array(.keys, .items))
Range("G1").Resize(.Count).NumberFormat = "@"
End With

End Sub

Regards Mick

The output is in sheet2.