• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

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

Katılım
16 Aralık 2015
Mesajlar
3
Excel Vers. ve Dili
2013
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
 
Örnek bir dosya oluşturup dosya paylaşım sitelerine yükleyerek linkini paylaşınız.
 
Aşağıdaki makro kodunu kullanabilirsiniz.
Kod:
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
 
İ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
 
Rica ederim,
İyi çalışmalar...
 
Geri
Üst