Tæl sammenhængende antal 365 dages range

Prøv med denne makro, som tester rækkerne 2 til 11 og lægger resultatet i kolonne ND. Jeg har taget hensyn til skudår, så den tester på kolonne 2 til 367.

Sub test()
Dim A, B, C, D As Long
For A = 2 To 11 ' start 2. række slut 11. række
C = 0 'antal sammenhængende celler
D = 0 ' antal områder af sammenhængende celler
For B = 2 To 367
If Cells(A, B) = 1 Then
C = C + 1
Else
If C > 2 Then
D = D + 1
End If
C = 0
End If
Next
Cells(A, 368) = D
D = 0
Next
End Sub

Det virker :-)