tek satırı 4 satıra kopyalama

[hkose61]

listede bulunan öğrencileri nasıl 4 satıra alt alta sıralayabilirim.böyle bir şey olabilir mi kopyalam yapıştırma sitili var mı.yaklaşık 1000 öğrenciyi sıralamam gerekiyor.yardımlarınız için şimdiden teşekkürler..

 

[emrehan26]

h1 sütununa 4 yazın ve e2 sütununa aşagıdaki kodu yapıştırın

=KAYDIR(D$2;YUKARIYUVARLA(SATIRSAY(E$2:E2)/$H$1;0)-1;0)

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
Application.ScreenUpdating = False
son = [D65536].End(3).Row
Range("l1:l65536").ClearContents

For i = 2 To son
Lson = [L65536].End(3).Row + 1

If Cells(i, "d") <> "" Then

Cells(Lson, "l") = Cells(i, "d")
Cells(Lson + 1, "l") = Cells(i, "d")
Cells(Lson + 2, "l") = Cells(i, "d")
Cells(Lson + 3, "l") = Cells(i, "d")
Else: End If
Next i

Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub

. . .

 

[hkose61]

teşekkürler emeğininize sağlık.