range to array: сжать массив вариантов до логического массива

Question

Рассмотрим этот код:

Dim array As Variant
array = Range("a1:a1000000").Value2

Зная, что столбец A содержит только логические (1 или 0) числа, какой самый эффективный способ уменьшить массив, преобразовав его тип данных в логическое значение?