выбрать из колонки неповторяющияся символы в матрицу

Option Explicit
 
Sub subscet()
    Dim a(), i&, bi&, bbi&, x&, ii&, t$, el
 
    With CreateObject("Scripting.Dictionary")
        .CompareMode = 1
 
        a = Sheets("Справочник").[a1].CurrentRegion.Value
 
        For i = 1 To UBound(a)
            t = Trim(a(i, 1))
            If Not .exists(t) Then .Add t, CreateObject("Scripting.Dictionary")
            For x = 2 To UBound(a, 2)
                .Item(t).Item(Trim(a(i, x))) = 0&
            Next
        Next
 
        a = Sheets("База").[b1].CurrentRegion.Resize(, 5).Value
 
        ReDim b(1 To UBound(a), 1 To 4)
        ReDim bb(1 To UBound(a), 1 To 4)
        b(1, 1) = "счет"
        b(1, 2) = "субсчет"
        b(1, 4) = "сума.сума"
        bb(1, 1) = "счет"
        bb(1, 2) = "субсчет"
        bb(1, 4) = "сума.сума"
        bi = 1: bbi = 1
        
        For i = 2 To UBound(a)
            t = CStr(a(i, 1))
            If .exists(t) Then
                If Not .Item(t).exists(CStr(a(i, 3))) Then
                    bbi = bbi + 1
                    bb(bbi, 1) = a(i, 1)
                    bb(bbi, 2) = a(i, 3)
                    bb(bbi, 4) = a(i, 5)
                Else
                    bi = bi + 1
                    b(bi, 1) = a(i, 1)
                    b(bi, 2) = a(i, 3)
                    b(bi, 4) = a(i, 5)
                End If
            Else
                bbi = bbi + 1
                bb(bbi, 1) = a(i, 1)
                bb(bbi, 2) = a(i, 3)
                bb(bbi, 4) = a(i, 5)
            End If
        Next
 
    End With
 
    Sheets("Результат(сума)с Базы").[a1].Resize(bi, 4) = b
    Sheets("Несоотвествие").[a1].Resize(bbi, 4) = bb
 
End Sub

If .exists(t) Then
                If Not .Item(t).exists(CStr(a(i, 3))) Then
...
Else