Two columns unique distinct values to listbox

Originally Posted by mohadin

Hi
As I understand

Private Sub UserForm_Initialize()
    Dim v, v2, e
    With Sheets("Hoja1")
        v = Application.Transpose(.Range("A1:a" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    With Sheets("Sheet1")
        v2 = Application.Transpose(.Range("A1:a" & .Cells(Rows.Count, 1).End(xlUp).Row))
    End With
    v = Split(Join(v, "#") & "#" & Join(v2, "#"), "#")
    With CreateObject("scripting.dictionary")
        .comparemode = 1
        For Each e In v
            If Not .exists(e) Then
                .Add e, 1
            Else
                .Remove e
            End If
        Next
        If .Count Then Me.ListBox1.List = Application.Transpose(.keys)
    End With
End Sub

thank you very much the code works