Sub TestArrayFilterV()
    'Dim bVBA As New BedvitCOM.VBA 'раннее связывание
    Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
    Dim i, j, t, testSize As Long: testSize = 100
    Dim ArrV: ReDim ArrV(1 To testSize, 1 To 9)
    Dim arrRes
    
    For i = 1 To testSize
        For j = 1 To 9
        ArrV(i, j) = CLng(Rnd * 2)
        Next
    Next
   bVBA.ArrayFilterV ArrV, 1, 1, 1, 1, arrRes
   
   'Cells(1, 1).Resize(UBound(arrRes, 1), UBound(arrRes, 2)) = arrRes
End Sub

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 = 10000000 'строки
    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
    
    t = Timer
    bVBA.ArrayFilterV ArrV, 1, 1, 1, 1, arrRes 'фильтруем по первому столбцу, значения=1
    Debug.Print Timer - t

End Sub

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

Dim Rng As Range, RngRes As Range, Ub As Long, App As Application, fv As Variant    
    fv = 2 'искомое значение
    Set App = Application
    Set Rng = Cells(1).Resize(UBound(ArrV, 1), UBound(ArrV, 2))
    t = Timer
    Set RngRes = Rng.Find(fv) 'без финда ни куда)
    If Not RngRes Is Nothing Then
        For i = 1 To testSize2
            bVBA.ArrayFilterV ArrV, 1, i, fv, 1, arrRes
            Ub = UBound(arrRes)
            If Ub >= 1 Then
                With Rng.Columns(i)
                    For j = 1 To Ub
                        Set RngRes = App.Union(RngRes, .Cells(arrRes(j)))
                    Next
                End With
            End If
        Next
        RngRes.Select
    End If
    Debug.Print "Время формирования диапазона искомых ячеек: " & Timer - t
    Stop