pivottable ile mümkünmü?

[xlomba]

Arkadaşlar elimdeki listede
Ahmet 5
Ahmet 10
Ahmet 15
Ahmet 5
Mehmet 20
Mehmet 42

gibi 2 sütunlu bir excel mevcut. Pivotla yapmak istediğim şöyle bir şey;
ahmet 5 10 15 5
mehmet 20 42

ancak yapabildiğim;
............5 10 15 20 42
ahmet 2 1 1
mehmet.............. 1 1

varmı bunun bir yolu, pivottable ile mümkün değilse başka bir biçimde?

 

[Emir Hüseyin Çoban]

. . .

Sub KOD()
    Dim SD As Worksheet: Set SD = Sheets("Sayfa1")
    
    SD.Range("D:E").ClearContents
    
    Dim dic As Object, liste(), dizi()
    son = SD.Cells(Rows.Count, "A").End(3).Row
    liste = SD.Range("A1:B" & son).Value
    ReDim dizi(1 To son, 1 To 2)

    Set dic = CreateObject("scripting.dictionary")
    For x = 1 To UBound(liste, 1)
        aranan = liste(x, 1)
        
        If Not dic.exists(aranan) Then
            n = n + 1
            dic.Add aranan, n
            ReDim Preserve dizi(1 To son, 1 To 2)
            dizi(n, 1) = liste(x, 1)
        End If
        
        dizi(dic.Item(aranan), 2) = Trim(dizi(dic.Item(aranan), 2) & " " & liste(x, 2))
    Next x
    
    SD.Range("D1").Resize(dic.Count, 2) = dizi
    
End Sub

. . .

 

[xlomba]

teşekkürler, eline sağlık. çok işimize yaradı.