Díky, to zní zajímavě. Mě nakonec napadlo toto:
Sub zapsat()
For i = 1 To 6
For j = 2 To 28
c = Cells(i, 1).Value
d = Cells(i, 2).Value
If j >= c And j <= d Then Cells(j, 5).Value = "1"
Next j
Next i
End Sub
Ještě to musím ověřit na těch velkých datech.
Díky