Imprimir Página - Ayuda con Excel

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

Citar

ColumnA 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:

Citar

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

4>2 para la tirada que antecede:

Citar

ColumnA 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 ;)

Código:

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

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: AngelFire en 22 Febrero 2015, 19:29 pm