Option Explicit
Option Private Module
'====================================================================================================
Const valDef$ = "TestValue"
'====================================================================================================
Sub FillTable()
Dim arr(1 To 1000000, 1 To 2)
Dim r&

    For r = 4 To 1000000 Step 4
        arr(r - 3, 1) = 1:  arr(r - 3, 2) = valDef
        arr(r - 2, 1) = 2:  arr(r - 2, 2) = valDef
        arr(r - 1, 1) = 3:  arr(r - 1, 2) = valDef
        arr(r, 1) = 4:      arr(r, 2) = valDef
    Next r

shTest.Cells(2, 1).Resize(UBound(arr, 1), UBound(arr, 2)).Value = arr
End Sub
'====================================================================================================
Sub Start()
Dim x, arrOut(1 To 30, 1 To 4) As Single
Dim t!, p&, f&, r&, c&

t = Timer
    For f = 0 To 4
        For p = 0 To 5
            r = r + 1: Application.StatusBar = "Step: " & r & " out of 30"
            x = StandTest(f, p)

            For c = 1 To UBound(arrOut, 2)
                arrOut(r, c) = Format$(x(c - 1), "0.00")
                If arrOut(r, c) = 0 Then arrOut(r, c) = 0.01
            Next c
        Next p
    Next f
Application.StatusBar = False
[_res].Value = arrOut: Calculate
If ActiveSheet.Name <> shComp.Name Then shComp.Select
MsgBox "DONE", vbInformation, Format$(Timer - t, "0.00 sec")
End Sub
'====================================================================================================
Function StandTest(iFilt&, iPos&) As Single() ' iFilt(0-4), iPos(0-5)
Dim rng As Range, cl As Range
Dim arr, valFind, arrTimes(3) As Single, arrOne(1 To 1, 1 To 1)
Dim t!, a&, p&, r&, c&

valFind = "FindMe"
Set rng = [_val]

' choose search position
If iPos = 0 Then GoTo nx1                   ' NOTHING to FIND
If iPos = 1 Then p = 1002:      GoTo nx1    ' POS at the START
If iPos = 2 Then p = 10002:     GoTo nx1    ' POS is near the START
If iPos = 3 Then p = 500002:    GoTo nx1    ' POS is in the MIDDLE
If iPos = 4 Then p = 990002:    GoTo nx1    ' POS is near the END
If iPos = 5 Then p = 999002:    GoTo nx1    ' POS at the END
Err.Raise xlErrNA
nx1:
If p Then shTest.Cells(p, 2).Value = valFind

' фильтр
t = Timer
If iFilt = 0 Then GoTo nx2                                  ' NO filter
If iFilt = 1 Then Filt (Array("1")):            GoTo nx2    ' ONE value
If iFilt = 2 Then Filt (Array("1", "2")):       GoTo nx2    ' THREE
If iFilt = 3 Then Filt (Array("1", "2", "3")):  GoTo nx2    ' TWO separate
If iFilt = 4 Then Filt (Array("1", "3")):       GoTo nx2    ' ONE value, TWO near, THREE, TWO separate)
Err.Raise xlErrNA
nx2:
Set rng = rng.SpecialCells(xlCellTypeVisible)
shTest.Cells(1, 1).AutoFilter
arrTimes(0) = Timer - t                                         ' время ФИЛЬТРА

' поиск в массиве
t = Timer
    For a = 1 To rng.Areas.Count
        arr = rng.Areas(a).Value
        If Not IsArray(arr) Then arrOne(1, 1) = arr: arr = arrOne
    
        For c = 1 To UBound(arr, 2)
            For r = 1 To UBound(arr, 1)
                If arr(r, c) = valFind Then
                    Set cl = rng.Areas(a).Cells(r, c): GoTo EX1 ' время МАССИВА
                End If
            Next r
        Next c
    Next a
EX1: arrTimes(1) = Timer - t

' поиск методом Range.Find
t = Timer
If rng(1).Value = valFind Then Set cl = rng(1): GoTo EX2
Set cl = rng.Find(valFind, , xlValues, xlWhole, xlByRows, xlNext, False, False, False)
EX2: arrTimes(2) = Timer - t                                    ' время МЕТОДА

' поиск перебором
t = Timer
    For Each cl In rng
        If cl.Value = valFind Then GoTo EX3
    Next cl
Set cl = Nothing
EX3: arrTimes(3) = Timer - t                                    ' время ПЕРЕБОРА

If p Then shTest.Cells(p, 2).Value = valDef
If iPos And cl Is Nothing Then Err.Raise xlErrNA
StandTest = arrTimes
End Function
'====================================================================================================
Sub Filt(arrFilt)
    shTest.ListObjects(1).Range.AutoFilter Field:=1, Criteria1:=arrFilt, Operator:=xlFilterValues
End Sub
'====================================================================================================
'====================================================================================================
Sub Pause(Optional iSec! = 1)
Dim iEnd!
    iEnd = Timer + iSec: DoEvents
    Do While Timer < iEnd: Loop
End Sub
'====================================================================================================

Option Explicit
'====================================================================================================
Sub t()
Dim rng As Range, cl As Range
Dim t!

Set rng = Columns(1)
rng.ClearContents

'rng.Value = "TestValue"
rng.Cells(1000000, 1).Value = "=10"

t = Timer
    Set cl = rng.Find(10, , xlValues, xlWhole, xlByRows, xlNext, True, False, False)
Debug.Print Fix(1000 * (Timer - t))

MsgBox cl.Address
End Sub
'====================================================================================================