tablo değişikliği yardım...

[lepricon]

Herkese iyi günler;
benim sorum şu şekilde

elimde d sütununda ürünün rengini belirten tarzda bir tablo var
misal kahverengi 10-15 ayrı satırda olabilir şöyle ki

renk beden
kahve 1
sarı 2
kahve 1
kahve 3
beyaz 2
sarı 3

bu tabloyu her rengi tek satıra denk gelecek şekilde çeviremezmiyiz
yani:

renk beden
kahve 1 1 3
sarı 2 3
beyaz 2






biraz karmaşık sordum galiba kusuruma bakmayın
yardımcı olabileceklere şimdiden teşekkür ederim
ekte benzer sorunu içeren dosya koydum
iyi çalışmalar

 

[lepricon]

yok mu bana yardım edebilecek biriii

help.....

 

[Ferhat Pazarçevirdi]

Merhabalar

Aşağıdaki kodu standart bir modul sayfasına kopyalayarak çalıştırınız. G ve H sütunlarında, benzersiz listelerin oluştuğunu göreceksiniz.

Sub Benzersizler()
    Dim col As New Collection
    Dim i%, j%, s%
    
    On Error Resume Next
    
    For j = 4 To 5
        For i = 2 To Cells(65536, j).End(xlUp).Row
            
            col.Add Cells(i, j), CStr(Cells(i, j))
            If Err = 0 Then
                s = s + 1
                Cells(s, j + 3) = Cells(i, j)
            End If
            Err = 0
        Next i
        
        Set col = New Collection
        Err = 0
        s = 0
    
    Next j
End Sub