Test Foro de elhacker.net SMF 2.1

No se si esto va aquí pero no encuentro un mejor lugar para ponerlo:
Se tiene:

CitarColumnA ColumnB
1             1,2
2             1,3
3             4,0
4             3,0
5             5,1
6             0,0
7             1,5
8             1,7
9             1,2
10           1,5

Se desea conocer la mayor salida de números consecutivos inferiores a < 2


La Respuesta seria 4 ya que:

Citar7             1,5
8             1,7
9             1,2
10           1,5

4>2 para la tirada que antecede:

CitarColumnA ColumnB
1             1,2
2             1,3

Estoy leyendo =CONTAR.SI(B2:B1000;"<2") pero daria una cuenta de todos los valores menors que 2.
Cualquier recomendacion es bienvenida siguo en google y con la ayuda de Excel.

Gracias.

resolvi todo con esta macro, gracias a todos aquellos que al menos leyeron la pregunta ;)

Function MaxLessThanTwoTier() As Integer
   Dim tierLength As Integer, result As Integer
   result = 0
   tierLength = 0
   For i = 1 To 100000
       Set curCell = Worksheets(1).Cells(i, 2)
           If curCell.Value < 2 Then
           curCell.Interior.Color = RGB(255, 244, 233)
           tierLength = tierLength + 1
       Else
           If tierLength > result Then result = tierLength
           tierLength = 0
       End If
   Next i
   
   MaxLessThanTwoTier = result
End Function


Sub Botón1_Haga_clic_en()
   MsgBox MaxLessThanTwoTier
End Sub