数组范围：将变量数组缩小为布尔数组

Question

考虑以下代码：

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

知道A列仅包含布尔（1或0）数字，缩小数组以将其数据类型转换为布尔值的最有效方法是什么？