Aynı satırların hakkında

Katılım
30 Mart 2007
Mesajlar
26
Excel Vers. ve Dili
2003 2007
D sütunumda aynı içeriklere sahip satırların E sütunundaki içeriklerin yanyana sıralanmasını istiyorum. Nasıl bir yol izleyebilirim ?


D E F
1 a a,b,c
1 b a,b,c
1 c a,b,c
2 d d,e,f
2 e d,e,f
2 f d,e,f
 

catalinastrap

Destek Ekibi
Destek Ekibi
Katılım
19 Ağustos 2006
Mesajlar
541
Excel Vers. ve Dili
Office 2010 / Türkçe
parçaal fonksiyonu çözer gibi ancak sorununu tam anlayabilmemiz için örnekle desteklersen daha hızlı cevap alabilirsin
 
Katılım
22 Mayıs 2014
Mesajlar
125
Excel Vers. ve Dili
2013 türkçe
aşağıdaki kodlar ile yapabilirsiniz.

Kod:
Sub benzerbirlestir()
    Application.ScreenUpdating = False
    say = 1
    For i = 1 To Range("d65536").End(3).Row
        If WorksheetFunction.CountIf(Range("d:d"), Cells(i, "d")) >= 1 Then
            Cells(say, "f") = Cells(i, "e")
                For j = 1 To Range("d65536").End(3).Row
                    If Cells(j, "d") = Cells(say, "D") Then
                        hcr = hcr & Cells(j, "e") & ", "
                     End If
                 Next j
                Cells(say, "f") = Left(hcr, Len(hcr) - 2)
                hcr = Empty
                say = say + 1
        End If
    Next i
  Application.ScreenUpdating = True
End Sub
 
Üst