Rybki

Sub rybki()

Dim i As Integer
Dim j As Integer
Dim tablica(0 To 8) As LongLong
Dim n As LongLong
Dim x As LongLong

For i = 1 To 300
tablica(Arkusz1.Cells(i, 1)) = tablica(Arkusz1.Cells(i, 1)) + 1
Next i

For i = 1 To 256
For j = 0 To 8
    If j = 0 Then n = tablica(0) Else: tablica(j - 1) = tablica(j)
    Next j
tablica(6) = tablica(6) + n
tablica(8) = n
Next i

For i = 0 To 8
    x = x + tablica(i)
    Next i

Arkusz1.Cells(5, 5) = x


End Sub