Altışarlı Sayı Yazmanın Kolay Yolu

Özgür sordu Merhaba, ben tez çalışmam için gireceğim veriler altışarlı şekilde artması gerekiyor bunu Excel dosyasına girmenin kolay bir yolu var mıdır? Teşekkürler… 1 1 1 2 2 2 3 3 3 Merhaba; Boş bir Excel açın. Alt + F11 tuşuna basarak makro kısmına geçin ve aşağıdaki kodu yapıştırın. Kodda kacaKadar kısmını ne kadar ilerletmek istiyorsanız sayı yazın. Ben 20 yazdım. F5 ile kodu çalıştırdığınızda istediğiniz şekilde 6’şar tekrar yapacaktır. Sub sayiUret() Dim i As Integer Dim j As Integer Dim say1 As Integer Dim say2 As Integer Dim kacaKadar As Integer say1 = 1 say2 = 1 kacaKadar = 20 For j = 1 To kacaKadar For i = 1 To 6 Range("A" & say1).Value = say2 say1 = say1 + 1 Next say2 = say2 + 1 Next End Sub