Sub TestArrayFilterV()
    'Dim bVBA As New BedvitCOM.VBA
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA")
    Dim i, j, t, arrRes
    Dim testSize1 As Long: testSize1 = 10 'строки
    Dim testSize2 As Long: testSize2 = 5 'столбцы
    Dim ArrV: ReDim ArrV(1 To testSize1, 1 To testSize2)
      
    For i = 1 To testSize1
        For j = 1 To testSize2
        ArrV(i, j) = CLng(Rnd * 2)
        Next
    Next
    Cells.ClearContents
    Cells(1, 1).Resize(UBound(ArrV, 1), UBound(ArrV, 2)) = ArrV 'печатаем исходные условия
     
    t = Timer
    bVBA.ArrayFilterV ArrV, 1, 1, 1, 1, arrRes 'фильтруем по первому столбцу, значения равными = 1, выводим массив индексов в массив arrRes
    Debug.Print Timer - t
     
    bVBA.Array1Dto2D arrRes, 1, 1, 1 'преобразуем в двухмерный с 1 столбцам, нижние границы измерений = 1, порядок данных сохраняется исходный
    Cells(1, 7).Resize(UBound(arrRes, 1), UBound(arrRes, 2)) = arrRes 'выводим массив полученных индексов, совпавших с условием по фильтру
     
    bVBA.Array2Dto1D ArrV 'преобразуем ArrV в одномерный (нижняя граница = 0 - по умолчанию)
    bVBA.Array1Dto2D ArrV, 1, 1, 10 'преобразуем ArrV в двухмерный с 10ю столбцами, нижние границы измерений = 1, порядок данных сохраняется исходный
    Cells(1, 9).Resize(UBound(ArrV, 1), UBound(ArrV, 2)) = ArrV 'печатаем нового размера массив ArrV с сохранением исходного порядка следования элементов
 
End Sub

arr= rng.Value
→ arr(1 To rng.Rows.Count, 1 To rng.Columns.Count)