Parçalı sütunu satırlara dönüştürme

[Kanakinli]

Merhabalar,
A ve B sütunumda 18'er satır süren veri setlerim var. Her veri seti arasında da bir boşluk var. İstediğim 18x2 lik blokları alıp C sütunundan başlayarak devrik (transpose) şekilde altalta boşluksuz taşımak. Örnek dosya: http://s3.dosya.tc/server6/xgjul4/3Ozet.xlsx.html
Şimdiden teşekkürler.

 

[alicimri]

Aşağıdaki makrolardan hangisi işinizi görüyorsa onu uygulayın, kolay gelsin.

Sub duz()
satir = 1
For i = 1 To Range("A65535").End(xlUp).Row Step 19
sutun = 3
Range("A" & i).CurrentRegion.Copy
Cells(satir, sutun).PasteSpecial Transpose:=True
satir = satir + 2
Next
End Sub

Sub duz()
satir = 1
For i = 1 To Range("A65535").End(xlUp).Row Step 19
sutun = 4
For e = 1 To Range("A" & i).CurrentRegion.Count
Cells(satir, sutun).Value = Range("A" & i).CurrentRegion(e)
sutun = sutun + 1
Next
satir = satir + 1
Next
End Sub

 

[Kanakinli]

Tesekkur

Cok tesekkur ederim. Ilkini kastetmistim isimi gordu.
Elinize saglik.