'===================================
' Данная коллекция (Collection_) включает как стандартные (расширенные)
' методы и свойства, так и добавленные (надеюсь, полезные).
'===================================
          
' Расширенные св-ва/методы:
' 1. Remove - возвращает удаленное значение
' (в стандартной коллекции просто удаление).
' Пример:
          
      col.Add True
      col.Add False
      x = col.Remove(2)     ' <--
      col.Remove (1)
      Stop

'-----------------------------------

' 2. Item - позволяет не только читать, но и          
' записывать значения (в стандартной реализации          
' только чтение). Пример:
           
' добавляем значения, так же как и в нативную коллекцию
      col.Add 1
      col.Add 2
          
' меняем его
      col.Item(2) = col.Item(2) + 5     ' <--
      Stop

      MsgBox col(2)     ' свойство/метод по умолчанию
      Stop
'===================================

' Добавленные методы:
' 1. RemoveAll - удаляет все элементы из коллекции
' (аналогичен одноименному методу словаря). Пример:
          
      col.RemoveAll     ' <--
      MsgBox col.Count
      Stop
          
'-----------------------------------

' 2. Exists - проверяет наличие элемента по ключу.
' Регистр имеет значение. Пример:
          
      col.Add False, "1"
      col.Add False, "0"
      MsgBox col.Exists(1)     ' <--
      MsgBox col.Exists("0")     ' <--
      MsgBox col.Exists(3)  ' <--
      Stop
          
'-----------------------------------

          
' 3. ToString - формирует строку из элементов коллекции.
' Пример:

' добавляем значения
      col.Add 1
      col.Add 2
      col.Add 3

      line = col.ToString()     ' <--
      Stop

' разделитель можно задавать (по умолчанию пробел)
      line = col.ToString(",")    ' <--
      Stop

'-----------------------------------

' 4. ToArray - формирует массив из элементов коллекции.
' Пример:
          
      arr = col.ToArray()     ' <--
      Stop

' размерность массива можно задавать: одномерный/двумерный
' (по умолчанию двумерный)
          
      arr = col.ToArray(1)    ' <--
      Stop
      col.RemoveAll

'-----------------------------------

' 5. AddUnique - добавляет в коллекцию уникальные значения.
' Пример:
          
      col.AddUnique (ActiveSheet.UsedRange.Cells)   ' <--
      Stop
      col.RemoveAll
          
' можно добавлять прямо из массива
      col.AddUnique (Array(1, 2, 3, 4, 5, 4, 3, 2, 1))  ' <--
      Stop
      col.RemoveAll
          
'-----------------------------------

' 6. Sort - сортирует элементы коллекции. Пример:

      col.AddUnique (ActiveSheet.UsedRange.Cells)   ' добавили уникальные
      col.Sort  ' <-- отсортировали по возрастанию
      Stop
          
' порядок сортировки пожно менять
      col.Sort (xlDescending) ' <-- xlDescending = 2
      Stop