Sütunlara Göre Toplama İşlemi

[DMR 7]

Merhabalar, 3 sütunlu bir excelde A ve B sütunundaki değerleri aynı olan kalemlerin C sütunundaki değerlerini toplayıp tek bir satırda yazmasını istiyorum.

Tablo binlerce satırlık. sadeleştirmeyi nasıl yapabilirim ? aynı olanları toplayıp tek satır yapsın. diğerleri silinsin istiyorum. yardımcı olur musunuz ?

 

[Necdet]

Merhaba,

Sorunuzu tam anlamamakla birlikte Pivot Table'ı denemenizi öneririm. Forumda çok uygulama var bu konuda.

 

[Ömer]

Merhaba,
Özet tabloyu bende tavsiye ederim. Makro ile yapmak isterseniz;
A:C arasındaki verileri benzersiz olarak F:H arasına toplayarak listeler.

Sub Ozet()

    Dim d As Object, alan(), dizi(), deg As String, s As Long, i As Long

    alan = Range("A2:C" & Cells(Rows.Count, "A").End(xlUp).Row).Value
    Set d = CreateObject("Scripting.Dictionary")
  
    ReDim dizi(1 To UBound(alan), 1 To 3)
  
    For i = 1 To UBound(alan)
        deg = alan(i, 1) & "|" & alan(i, 2)
        If Not d.exists(deg) Then
            s = s + 1
            d.Add deg, s
            dizi(s, 1) = alan(i, 1)
            dizi(s, 2) = alan(i, 2)
        End If
        dizi(d.Item(deg), 3) = dizi(d.Item(deg), 3) + alan(i, 3)
    Next i
  
    Application.ScreenUpdating = False
    Range("F2:H" & Rows.Count).ClearContents
    Range("F2").Resize(d.Count, 3) = dizi
    [F:H].EntireColumn.AutoFit
  
End Sub