farklı olan değerlerin elde edilmesi

[irfanm]

merhaba bir veri listem var burada ilk kolonda yazdıklarım için ikinci kolonda bir yada birkaç değer olabilir benim istediğim örneğin a için birden farklı değer varsa bunlar yanyana gelsin.eğer tek değer varsa bu tek değer gelsin.

teşekkürler

 

[Ömer]

Merhaba,

Eki inceleyiniz..

.

 

[hamitcan]

Bu da makrolu çözüm.

Sub Makro2()
    [B4:B17].AdvancedFilter Action:=xlFilterCopy, CopyToRange:=[G4], Unique:=True
    For i = 5 To 17
        c = 7
        For Each hcr In [B5:B17]
            If Cells(i, "G") = hcr.Text Then
                c = c + 1
                Cells(i, c) = hcr.Offset(0, 1).Value
            End If
        Next
        c = 0
    Next
End Sub

 

[irfanm]

teşekkür ederim.sağolun