Veri öbeklerini tek satır yapıp birleştirme

[drtolgacim]

Merhabalar, Excell bilmeyen biri olarak sitenizden faydalanarak veri tabanımı düzenlemeye çalışıyorum(bilimsel bir araştırma için). Ama aşamadığım ve aşamayacağım bir problemim var. Verilerim 18'er satır ve 6 sütünluk öbekler halinde duruyor(Çok sayıda). Bunları 18 satırdaki verileri yan yana yapıp daha sonra oluşan çok sayıda sütünün altına diğer öbekleri aynı şekilde açmam gerekiyor. Bu konuda yardımcı olabilecek üstadlara minnettar kalırım. Saygılar

Örnek kısım:
12 2 9 2
46 33 35 33 44 34
140 200 115 20,12
110 144 91 19,43
135 200 91 23
82 123 62 12,73
62 78 49 11,74
78 123 49 14,72
71 90 55 10,13
53 57 48 3,52
68 90 48 11,72
101 149 80 14,63
78 100 65 14,09
97 149 65 17,08
58 77 35 11,46
48 66 39 9,81
56 77 35 11,7
21,4 24,56

2 0 0 0
11 0 0 0 10 0
118 137 91 12,19
112 115 108 4,95
118 137 91 11,77
65 73 43 7,38
64 66 62 2,83
65 73 43 7,02
74 82 65 4,57
71 73 69 2,83
74 82 65 4,48
83 93 59 8,34
80 82 77 3,54
82 93 59 8
53 68 37 8,28
48 49 46 2,12
53 68 37 8,04
5,69 1,62

5 1 7 2
17 14 23 29 16 24
123 145 100 11
110 121 104 5,79
120 145 100 11,28
79 100 63 8,56
66 77 60 7,13
77 100 60 9,65
65 107 53 10,2
64 70 60 3,24
65 107 53 9,27
94 114 77 9
81 92 76 6,38
91 114 76 9,83
44 58 34 6,08
44 51 37 4,4
44 58 34 5,74
10,09 16,13

 

[ÖmerBey]

Örnek bir dosya oluşturup dosya paylaşım sitelerine yükleyerek linkini paylaşınız.

 

[drtolgacim]

Teşekkür ederim ilginize

http://www.dosya.tc/server5/wl1f2n/test.xlsx.html

 

[ÖmerBey]

Aşağıdaki makro kodunu kullanabilirsiniz.

Sub kod()
süt = 5
For a = 1 To Range("A65500").End(3).Row Step 19
    For b = 1 To 17
        For c = 1 To 6
            If Cells(a + b, c) <> "" Then
                Cells(a, süt) = Cells(a + b, c)
                Cells(a + b, c).ClearContents
                süt = süt + 1
            End If
        Next
    Next
    süt = 5
Next
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub

 

[drtolgacim]

İnanılmazsınız, çok teşekkür ederim. Günlerce 4-5 kişi uğraşacağımız işi 10 dakikada bize çözdürdünüz. Saygılarımı sunarım

 

[ÖmerBey]

Rica ederim,
İyi çalışmalar...