contare le sequenza di un evento V

[raimea]

ciao
tramite una macro vorrei conteggiare quante volte
si e' presentata la stessa sequenza di V nella colonna L

partendo dalla riga 8 fino all 'ultima riga ,
che sara sempre piu in basso col passare del tempo

la sequenza in col L si interrompe quando trova una cella vuota.

quindi vorrei sapere :
quante volte c'e stata 1na sola V ?
quante volte ci sono state 2 V consecutive ?
quante volte ci sono state 3 V consecutive ?

e scrivere i risultati in col S
a fianco del relativo numero



https://www.dropbox.com/s/olytezcooxd2ga5/bot_radar_20%20-%20Copia.rar?dl=0



vi allego il file

grazie

[Anthony47]

Probabilmente:

Codice: Seleziona tutto

Sub VHMany()
Dim WArr, Oarr(), VCnt As Long, lB0 As Long, I As Long, LastE As Long
'
LastE = Cells(Rows.Count, "E").End(xlUp).Row
WArr = Range("L8:L" & LastE).Value
lB0 = LBound(WArr)
ReDim Oarr(1 To 30, 1 To 1)
'
For I = LBound(WArr) To UBound(WArr)
    If WArr(I, lB0) <> "v" And WArr(I, lB0) <> "V" Then
        If VCnt > 0 Then
            Oarr(VCnt, 1) = Oarr(VCnt, 1) + 1
            VCnt = 0
        End If
    Else
        VCnt = VCnt + 1
    End If
Next I
If VCnt > 0 Then Oarr(VCnt, 1) = Oarr(VCnt, 1) + 1
Range("S8").Resize(30, 1).Value = Oarr
Beep
End Sub


Ciao

[raimea]

ciao

tutto ok
fa cio' che chiedevo

grazie 1000