Tek Sütundaki Metinleri Çoklu Bölme

[SizinWeb]

Merhaba Elimde bir Dosya var A Sütünunda 500 Satır Metin var Ben Bu 5,6,7,8 İSTEDİĞİM ŞEKİLDE EŞİT olarak bölmek ve B,C,D,E Stunlarına Almak istiyorum.
Örnek Dosya

 

[Asri]

Aşağıdaki şekilde deneyiniz.

B1 hücresine kaç satırda bir bölüneceğini yazınız. Örnek 100

Sub bol_kopyala()
     Columns("C:Z").Select
     Selection.ClearContents
     Range("C1").Select
    
     sonsatir = Cells(Rows.Count, "A").End(3).Row
     kacsatirtasi = Cells(1, 2).Value
     kackolon = WorksheetFunction.RoundUp(sonsatir / kacsatirtasi, 0)
     secilksatir = 1
     
     For i = 1 To kackolon
         secsonsatir = secilksatir + kacsatirtasi - 1
         secim = "A" & secilksatir & ":A" & secsonsatir
         Range(secim).Select
         Selection.Copy
         Cells(1, i + 2).Select
         ActiveSheet.Paste
         Application.CutCopyMode = False
         Range("C1").Select
         secilksatir = secsonsatir + 1
     Next i
     
End Sub

 

[Asri]

Kodu eklemekte sorun yaşayanlar için örnek dosya;

http://s5.dosya.tc/server3/kimw1x/bol_kopyala.zip.html

 

[SizinWeb]

Kodu eklemekte sorun yaşayanlar için örnek dosya;

http://s5.dosya.tc/server3/kimw1x/bol_kopyala.zip.html

Elinize sağlık hocam çok teşekkürler