Sub jjj()

    Dim arrSrc(), clRes As New Collection, arrRes()
    Dim lr As Long, i As Long
    
    Application.ScreenUpdating = False
    
    Range("C2:C" & Rows.Count).Value = Empty
    
    lr = Columns("A").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    arrSrc() = Range("A1:A" & lr).Value
    
    On Error Resume Next
    
    For i = 2 To UBound(arrSrc)
        If WorksheetFunction.CountIf(Columns("B"), arrSrc(i, 1)) = 0 Then
            clRes.Add Item:=arrSrc(i, 1), Key:=arrSrc(i, 1)
        End If
    Next

    lr = Columns("B").Find(What:="*", LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False _
        , SearchFormat:=False).Row
    arrSrc() = Range("B1:B" & lr).Value
   
    For i = 2 To UBound(arrSrc)
        If WorksheetFunction.CountIf(Columns("A"), arrSrc(i, 1)) = 0 Then
            clRes.Add Item:=arrSrc(i, 1), Key:=arrSrc(i, 1)
        End If
    Next
    
    On Error GoTo 0
    
    ReDim arrRes(1 To clRes.Count, 1 To 1)
    For i = 1 To clRes.Count
        arrRes(i, 1) = clRes(i)
    Next
    
    Range("C2").Resize(UBound(arrRes)).Value = arrRes()
    
    Application.ScreenUpdating = True
    
End Sub

=ИНДЕКС(A$2:B$6;НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ(A$2:B$6;A$2:B$6)=1;СТРОКА(A$2:A$6)-1);СТРОКА(C1));ОКРУГЛ(ОСТАТ(НАИМЕНЬШИЙ(ЕСЛИ(СЧЁТЕСЛИ(A$2:B$6;A$2:B$6)=1;СТРОКА(A$2:A$6)+СТОЛБЕЦ(A$2:B$6)/10);СТРОКА(C1));1)*10;))

Sub selectData()
                
    '(если только это уже не было проделано ранее, то)
    'Перед запуском в редакторе VB в меню Tools\References установить ссылку (включить галку)
    'на библиотеку "Microsoft ActiveX Data Objects ... Library", где ... - номер версии.
    'Можно выбрать любой максимальный (6.0, 2.8, 2.5...) из того, что установлено на компьютере.
            
    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
            
    Range("C2:C" & Rows.Count).ClearContents
    
    cnn.Open _
    "Provider=Microsoft.ACE.OLEDB.12.0;" & _
    "Data Source=" & ThisWorkbook.FullName & ";" & _
    "Extended Properties='Excel 12.0;HDR=No'"
            
    rst.Open _
    "SELECT F1 FROM (" & _
    "SELECT F1 FROM [Лист1$A2:B1000] UNION ALL " & _
    "SELECT F2 FROM [Лист1$A2:B1000]" & _
    ") GROUP BY F1 HAVING Count(*) = 1" _
    , cnn
    
    [Лист1!C2].CopyFromRecordset rst
    rst.Close
    
    Set rst = Nothing
    Set cnn = Nothing
End Sub

Sub test()
  Dim z, z1, j&, i&, m&: z = Range("A2:B" & Range("A" & Rows.Count).End(xlUp).Row).Value
    ReDim z1(1 To UBound(z) * 2, 1 To 1)
    With CreateObject("scripting.dictionary"): .CompareMode = 1
   For j = 1 To 2
    For i = 1 To UBound(z): .Item(z(i, j)) = .Item(z(i, j)) + 1: Next i, j
For j = 1 To 2
  For i = 1 To UBound(z)
         If .Item(z(i, j)) = 1 Then m = m + 1:   z1(m, 1) = z(i, j)
   Next i, j
  Range("C2").Resize(m, 1).Value = z1
   End With
End Sub