aynı veriye karşılık gelen rakamların toplamı

[fernandito]

Merhaba arkadaşlar;
a sütununda x ler ve y ler var, b sütununda da x'lerin ve y'lerin yanında rakamlar var.
Benim istediğim c1 hücresine a sütununda yinelenen x leri bir kere yazsın ve d1 hücresine de b sütunundaki x lerin yanındaki rakamların toplamını yazsın. Ayın şekilde c2 hücresine y yazılsın d2 hücresine b sütunundaki y lerin yanındaki rakamların toplamı yazılsın.
Bu işlemleri bir çok veri için tekrarlayacağım.
Teşekkürler...

 

[ASLAN7410]

Merhaba

Dosyanız ekteki linkte.

Dosya içerisindeki dizi formülleri alıntıdır, sizin sorunuzda belirmiş olduğunuz gibi uyarladım, umarım işe yarar.

http://s3.dosya.tc/server6/381cdz/Benzersiz.xlsx.html

 

[fernandito]

hocam güzel olmuş elinize sağlık, bunu diziler aynı satırda değil de aynı sütunlarda olacak şekilde yapabilir miyiz peki

 

[Emir Hüseyin Çoban]

. . .

Alternatif,

Sub KOD()
    Dim SD As Worksheet: Set SD = Sheets("Sayfa1")
    Dim SO As Worksheet: Set SO = Sheets("Sayfa1")
    Dim dic As Object, liste(), dizi()
    
    SO.Range("C:D").ClearContents
    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) = dizi(dic.Item(aranan), 2) + liste(x, 2)
    Next x
    
    SO.Range("c1").Resize(dic.Count, 2) = dizi
End Sub

. . .

 

[ASLAN7410]

Merhaba dosyanız ekteki linkte.

http://s6.dosya.tc/server4/wfuh1e/Benzersiz_ayni_sutun.xlsx.html