Очистка коллекции перед заполнением.

[pivas]

Надо взять уникальные элементы из разных столбцов на другой лист.

For z = 1 To 122 Step 11
Dim i As Long, j As Long, x As New Collection, a, b()
    Range(Cells(6, z), Cells(50, z)).ClearContents
    a = .Range(.Cells(6, q), .Cells(Rows.Count, q).End(xlUp)).Value
    ReDim b(1 To UBound(a, 1), 1 To 1)
    j = 1
    For i = 1 To UBound(a, 1)
        If a(i, 1) <> "" Then
            On Error Resume Next
            x.Add a(i, 1), CStr(a(i, 1))
            If Err = 0 Then
                b(j, 1) = a(i, 1)
                j = j + 1
            Else: On Error GoTo 0
            End If
        End If
    Next
    Range(Cells(6, z), Cells(UBound(b, 1) + 1, z)).Value = b
    q = q + 12
Next z

Вопрос: как очистить коллекцию перед новым заполнением из следующего столбца?

[EducatedFool]

Sub test()
    Dim x As New Collection
    x.Add 1: x.Add 5
    Debug.Print x.count ' возвратит 2
    
    Set x = New Collection ' очистка коллекции
    Debug.Print x.count ' возвратит 0
End Sub

[pivas]

Как всегда быстро и точно. Большое спасибо за помощь!

[SAS888]

Можно и так:

Set x = Nothing

[pivas]

SAS888, ещё раз спасибо!