Alt Alta Yapıştırılan Sütunun Yan Yana Birden Fazla Yazılması

[ERRİC]

Selamlar, ekteki excel tablomuzun 1.sayfasındaki yaklaşık 1000 satır lık dökümü "OLMASI GEREKEN" adlı sayfadaki gibi dökebilir miyiz ; kopyala işlemi terse çevir dedim ama topu olduğu için hepsini yine yan yana tek satıra yapıştırıyor umarım anlatabildim ; yardımlarınız için teşekkürler
Saygılar

 

[Necdet]

Merhaba,

Aşağıdaki kodlar B sütunundan itibaren yazdırır.

Gerekirse A sütunu kod sonunda sildirilir.

Sub Duzenle()
    
    Dim i   As Long, _
        j   As Long
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row Step 4
        Range("A" & i & ":A" & i + 3).Copy
        j = j + 1
        Range("B" & j).Select
        Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
            False, Transpose:=True
    Next i

End Sub

 

[ERRİC]

Sayın Necdet bey çok teşekkür ederim tam istediğim gibi elinize sağlık
Saygılar