Sub btnDeggasad_Click()
Dim aOld, aNew, i As Long, str As String
Start! = Timer
aOld = [a1:a12000]
str = ""

For i =  1  To UBound(aOld)
    If i =  1  Then
     If InStr( 1 , str, aOld(i,  1 )) =  0  Then str = aOld(i,  1 )
    Else
        If InStr( 1 , str, aOld(i,  1 )) =  0  Then str = str & "|" & aOld(i,  1 )
    End If
Next i
aNew = Split(str, "|")

For i =  0  To UBound(aNew)
    Cells(i +  1 ,  2 ) = aNew(i)
Next
  Cells( 2 ,  5 ) = Timer - Start
  Cells( 2 ,  6 ) = UBound(aNew) +  1 

[CalcTime] = Timer - Start
End Sub

Sub btnCollections1_Click()
Dim NewMyArray(), MyArray
Dim Col As New Collection
Start! = Timer
On Error Resume Next
MyArray = [a1:a12000]
For Each a In MyArray
  Col.Add a, CStr(a)
Next a
'Если работа с коллекцией далее неприемлема, то перебросить её в массив
'ReDim NewMyArray(1 To Col.Count)
i =  1 
For Each a In Col
'  NewMyArray(i) = a
  Cells(i,  2 ) = a
  i = i +  1 
Next
  Cells( 3 ,  5 ) = Timer - Start
  Cells( 3 ,  6 ) = Col.Count
[CalcTime] = Timer - Start
End Sub

Sub btnCollections2_Click()
Dim NewMyArray(), MyArray
Dim Col As New Collection
Start! = Timer
On Error Resume Next
MyArray = [a1:a12000]
For Each a In MyArray
  Col.Add a, CStr(a)
Next a
'Если работа с коллекцией далее неприемлема, то перебросить её в массив
ReDim NewMyArray( 1  To Col.Count)
For i =  1  To Col.Count
'  NewMyArray(i) = Col(i)
    Cells(i,  2 ) = Col(i)
Next
  Cells( 4 ,  5 ) = Timer - Start
  Cells( 4 ,  6 ) = Col.Count
[CalcTime] = Timer - Start

End Sub

Sub btnDictionary_Click()
Dim NewMyArray, MyArray, D
Start! = Timer
On Error Resume Next
Set D = CreateObject("Scripting.Dictionary")
MyArray = [a1:a12000]
For Each a In MyArray
  D.Add CStr(a), a
Next a
NewMyArray = D.Items
For i =  0  To UBound(NewMyArray)
    Cells(i +  1 ,  2 ) = NewMyArray(i)
Next
  Cells( 5 ,  5 ) = Timer - Start
  Cells( 5 ,  6 ) = UBound(NewMyArray) +  1 
[CalcTime] = Timer - Start
End Sub