Hozzászólás: [Resolved] Előfordulás és előfordulás közti sorok száma kersés

Átírtam a makrót.
Futtatás előtt az O1 cellába írd be a keresendő értéket.

Sub UresSorokSzama()
    Dim sor As Long, usor As Long, ures As Long, sorGyujto As Long
    
    ures = 0: sorGyujto = 1
    Columns("L:M").ClearContents
    usor = Range("A" & Rows.Count).End(xlUp).Row
    Range("L1:L" & usor).FormulaR1C1 = "=COUNTIF(RC[-11]:RC[-2],R1C15)"
    For sor = 1 To usor
        If Cells(sor, "L") = 0 Then
            Do While Cells(sor, "L") = 0
                ures = ures + 1
                Cells(sorGyujto, "M") = ures
                sor = sor + 1
                If sor > usor Then Exit Sub
            Loop
            sorGyujto = sorGyujto + 1
            ures = 0
        End If
    Next
End Sub