Tekrar eden hücreleri birleştirme

[xoox]

merhaba arkadaşlar benim sorunum şu a sütununda takrar eden değerlerin karşılığı olan b sütununda farklı değerler var. ben b sütununda tekrar eden değerleri c sütununda tek bir hücrede alt alta kaydırarak yazmasını istiyorum. ve diğer satırlarıda ortadan kaldırsın yardımcı olursanız çok ama çok sevinirim

 

[hamitcan]

Sub Makro1()
    [c:d].Clear
    Range("A2:a9").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("C2" _
        ), Unique:=True
        [c2].Delete
        For i = 2 To [c65536].End(3).Row
            For ii = 2 To [a65536].End(3).Row
                If Cells(i, "c") = Cells(ii, "a") Then
                t = t & Chr(10) & Cells(ii, "b")
                End If
            Next
        Cells(i, "d") = t
        t = ""
        Next
    [a:b].Delete
End Sub

 

[xoox]

Kodu nereye nasıl yazacağım şimdiden sağol

 

[xoox]

makro değilde formül olarak yazabilirmisin mesala alt toplamlar fonksiyonunda aynı değerlerden kaç defa tekrar ettiğini sayabiliyor. fakat tekrarlanan değerlerin hücrelere birleştirilemiyor. formül olarak yazarsan sevinirim

 

[hamitcan]

Kodu nereye nasıl yazacağım şimdiden sağol

Vba düzenleyicisi>Insert>Modul içine ekleyin.

 

[Korhan Ayhan]

Selamlar,

Eğer kod kullanmadan çözüm arıyorsanız. A1 ve B1 hücrelerine başlık tanımlamak şartıyla ÖZET TABLO özelliğini kullanabilirsiniz. Bu özelliğe aşağıdaki menüden ulaşabilirsiniz.

VERİ - ÖZET TABLO VE ÖZET GRAFİK RAPORU