Excel satırları nasıl bölebilirim?

Arkadaşlar excelde 1488 satırlık veri var. Ben 50 satırda bir bu satırları yan yana koymak istiyorum. Yani 0-50 satır a sütunu 51-101 b sütunu diye ayırmak istiyorum. Bunu nasıl yapabilirim?

Şöyle bir makro buldum internette.

Sub bolyaz() For say = 1 To Worksheets.Count son = Sheets(say).Cells(653000, "A").End(3).Row uz = WorksheetFunction.RoundUp(son / 50, 0) i = 1 For sut = 2 To uz + 1 For sat = 1 To 12 Sheets(say).Cells(sat, sut) = Sheets(say).Cells(i, 1) i = i + 1 Next sat Next sut Next say End Sub

Kaynak

Excel vba (makro) biliyor iseniz kod ile yoksa formül yardımıyla hocam
Yardımcı olabilirim

Şöyle de olabilir; 1-1488 arası sırayla alt alta sütun oluşturun. En üst satıra da filtre ekleyin. Buradan işinizi görebilirsiniz yine de.

Teşekkür ederim arkadaşlar makro olarak araştırıp çözeceğim. Kendim öğrenmek için bunu araştırıyorum. Yapar ya da yapamazsam buradan belirtirim. 🙂

Gönderdiğim makro iş görmedi mi hocam. Kaynakta ki linkte talep sizinkiyle aynıydı. O arkadaşın işini çözmüş

Büyük ihtimalle olacaktır. Baktım aynı mantık pc başına geçince bakacağım. Sabahtan beri kafam şiştiği için bırakmıştım. Ama pc başına geçince deneyeceğim. Tekrar teşekkür ederim. 🙂