Excelde 20 şer aralıklarla sıralama yapmak

[semira_]

Excelde 20 ar aralıkla sırasıyla 1, 2,3...... gidecek şekildee sıralama yapmak istiyorum ,
mesela A1 den başlayıp A20 kadar olan kısım "1",
daha sonra A21 den A41 kadar olan kısım 2,
daha sonra A31 den A51 kadar olan kısım 3,

gibi bu şekilde sırayla 20 şer aralıkta 1 birim artacak şekilde sıralama yapmak istiyorum, sizce nasıl yapabilirim bunun kolay yolu var mı ? sayılarla aklım karışmadan otomatik olarak atayacak bir formül yada excel makro var mı ?

Şimdiden teşekkürler.:hihoho:

 

[ÖmerBey]

Merhaba, aşağıdaki kodu deneyiniz.
B sütunundaki son veriye göre çalışır. Kırmızı kısmı dilediğiniz bir satır numarasıyla değiştirebilirsiniz.

Sub KOD()
For a = 1 To [COLOR="Red"]Range("B65500").End(3).Row[/COLOR] Step 20
    x = x + 1
    Range("A" & a & ":A" & a + 19) = x
Next
End Sub

 

[Orion1]

Buyurun.

Sub aralik59()
Dim sayi As Long
sayi = 1
For i = 1 To 41 Step 20
    For j = 1 To 20
        sat = sat + 1
        Cells(sat, "A").Value = sayi
    Next j
    sayi = sayi + 1
Next i
End Sub

 

[Ömer BARAN]

Merhaba.

Formül ile öneri isterseniz, aşağıdaki formülü kullanabilirsiniz.
Formülü A1 hücresine uygulayın ve istediğiniz kadar aşağı doğru kopyalayınız.

 

[Ömer BARAN]

Geri dönüş olmayınca konu sayfasına baktığımda; formülü yapıştırmadığımı fark ettim.
Buyurunuz, A1 hücresine 1 yazın ve A2 hücresine aşağıdaki formülü uygulayıp istediğiniz kadar aşağı doğru kopyalayınız.

=EĞER(SATIR()=1;1;EĞER(MOD(SATIR();20)=1;A1+1;A1))

 

[semira_]

Çok teskkur ederım ,