Sub test()
Dim Bak As Integer
Dim Sira As Integer
Sira = 1
For Bak = 1 To Cells(Rows.Count, "A").End(xlUp).Row
Cells(Sira, "E") = Cells(Bak, "A")
Sira = Sira + 3
Next
End Sub
öncelikle teşekkürler. formülle sonuç alamıyoruz sanırım. ben de her hücrenin yanına 1den yukarı doğru sıraladım. sıra kadarını alt alta 2 kere kopyaladım ve küçükten büyüğe sıraladım. sonuçta alt alta 1 ler sonra 2 ler sıralandı ve her bir sayımın altında 2 boş hücre oldu.
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.