Bir den fazla satırlar, tek bir sütunda alt alta...

[VdtS]

Değerli arkadaşlar bir satırında veriler bulunan, birden fazla satırdaki verileri tek bir Sütunda SIRASIYLA yazmak için makro, formül ...
Örnek Dosya mümkün olduğunca açıklayıcı şekilde ektedir. yardımlarınız için şimdiden teşekkür eder, çalışmalarınızda başarılar dilerim.

 

[Necdet]

Merhaba,

Aşağıdaki kodları bir modüle kopyalayıp deneyiniz.

Sub Deneme()

    Dim i   As Long, _
        j   As Long
    
    Application.ScreenUpdating = False
    j = 1
    
    For i = 1 To Cells(Rows.Count, "A").End(3).Row
        Range("A" & i & ":H" & i).Copy
        Range("K" & j).PasteSpecial Paste:=xlPasteValues, Transpose:=True
        j = j + 8
    Next i
    
    Application.ScreenUpdating = False
    MsgBox "İşlem Tamam..."
    
End Sub