3lü birleşik hücreye 1er sıra ile veri çekme

[euphrates55]

A1den A230 a kadar olan verilerimi sırayla E1,E4,E7,E10..... şeklinde hücrelere sıralamak istiyorum. nedense exceli ekleyemedim

 

[Muzaffer Ali]

Merhaba.
Bir modüle kopyalayıp çalıştırın.

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

 

[euphrates55]

ö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.