Sütunu diğer sütunlara dağıtma...

[murtaza_sahin]

iyi günler
excel dosyamın A sütununda 1600 satır var. Bu 1600 satırı, B-Sütunundan başlayarak her sütunda sırasıyla 16 satır olacak şekilde (toplam 100 sütun) dağıtmama yardımcı olursanız memnun olurum.
Şimdiden teşekkürler...

 

[Orion1]

Buyurun.

Sub dagit59()
Dim i As Long, sonsat As Long, sut As Long, sat As Long, j As Long
sonsat = Cells(Rows.Count, "A").End(xlUp).Row
sut = 2
sat = 17
For i = 11 To sonsat Step 16
    For j = 1 To 16
        Cells(j, sut).Value = Cells(sat, "A").Value
        sat = sat + 1
    Next j
    sut = sut + 1
Next i
MsgBox "Bitti" & "evrengizlen@hotmail.com"
End Sub

 

[muygun]

Merhaba;
Alternatif olsun.
Sayfanın kod bölümüne;

Sub analiz()
Application.ScreenUpdating = False
On Error Resume Next
Range("b1:ıv65536").ClearContents
süt = 2
sat = 1
For i = 1 To Range("A65536").End(xlUp).Row
If sat > 16 Then süt = süt + 1
If sat > 16 Then sat = 1
Cells(sat, süt) = Cells(i, 1)
sat = sat + 1
Next i
Application.ScreenUpdating = True
MsgBox "İşlem TAMAM.", vbInformation
End Sub

Kodlarını yerleştirerek deneyin.

İyi çalışmalar.

 

[murtaza_sahin]

Orion1 ve muygun.
Teşekkürler