Nasıl sıralama yapacağım?

[semira_]

Sırasıyla 5 er tane 1, daha sonra 5 tane 2 , 5 tane 3, ve aynı şekilde ardışık olarak 5 er adet sayıları nasıl artırabilirim? :frown:

 

[ÖmerBey]

A1 hücresine aşağıdaki formülü yazıp aşağı çekerek çoğaltınız.

=NSAT((SATIR()-1)/5)+1

 

[hamitcan]

Sub BeserArtir()
    s = InputBox("Bir Sayı Girin")
    For i = 1 To s
        For j = 1 To 5
            k = k + 1
            Cells(k, 1) = i
        Next
    Next
End Sub