Sub Example01()
 Const L =  20 
 Dim i, j, Counter As Byte
 ' Заполняем исходный массив A()
 ReDim A(L)
 For i =  1  To L
  A(i) = Cells(i,  1 ).Value
 Next i
 ' Формируем результат - массив B()
 ReDim B(L)
 Counter =  0 
 For i =  1  To L
  j =  1 
  Do While j <= Counter
   If B(j) = A(i) Then Exit Do
   j = j +  1 
  Loop
  ' Числа из A() нет в B() - добавляем его
  If j > Counter Then
   Counter = Counter +  1 
   B(Counter) = A(i)
  End If
 Next i
 ' Выводим результат на лист
 Columns( 2 ).Rows("1:" & L).ClearContents
 For i =  1  To Counter
  Cells(i,  2 ).Value = B(i)
 Next i
 MsgBox "Количество различных элементов = " & Counter
End Sub