Aynı satırların hakkında

[ugursirin]

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]

dosya ekleyebilirmisin

 

[catalinastrap]

parçaal fonksiyonu çözer gibi ancak sorununu tam anlayabilmemiz için örnekle desteklersen daha hızlı cevap alabilirsin

 

[aliveli06]

aşağıdaki kodlar ile yapabilirsiniz.

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