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