Nhờ giúp đỡ code sumifs

[Eric.Shen]

Chào các bác,
Em đang tìm hiểu về dic trong VBA, qua diễn đàn em có tham khảo được 1 đoạn code thay thế cho hàm sumif, tuy nhiên với trường hợp dữ liệu lặp lại thì nó lại chưa trả về kết quả.
Kính nhờ các bác giúp em sửa đoạn code để nó có thể chạy được ạ
Chi tiết em có gửi trong file đính kèm
Em cảm ơn ạ!

 

[bebo021999]

Góp vui thêm 1 cách nữa:

Sub Thay_SUMIF2()
Dim i&, k&, rng, dic As Object
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
    rng = .Range("B3:C" & .Cells(Rows.Count, "B").End(xlUp).Row).Value
End With
For i = 1 To UBound(rng, 1)
    dic(rng(i, 1)) = dic(rng(i, 1)) + rng(i, 2)
    Next i
Sheets("Sheet2").Activate
With Range("A3")
    .Offset(, 1).Resize(dic.Count, 2).Value = WorksheetFunction.Transpose(Array(dic.Keys, dic.Items))
    .Resize(dic.Count, 1).Value = Evaluate("=row(1:" & dic.Count & ")")
End With
End Sub

 

[Eric.Shen]

Góp vui thêm 1 cách nữa:

Sub Thay_SUMIF2()
Dim i&, k&, rng, dic As Object
Set dic = CreateObject("Scripting.Dictionary")
With Sheets("Sheet1")
    rng = .Range("B3:C" & .Cells(Rows.Count, "B").End(xlUp).Row).Value
End With
For i = 1 To UBound(rng, 1)
    dic(rng(i, 1)) = dic(rng(i, 1)) + rng(i, 2)
    Next i
Sheets("Sheet2").Activate
With Range("A3")
    .Offset(, 1).Resize(dic.Count, 2).Value = WorksheetFunction.Transpose(Array(dic.Keys, dic.Items))
    .Resize(dic.Count, 1).Value = Evaluate("=row(1:" & dic.Count & ")")
End With
End Sub

Em cảm ơn bác nhiều ạ