Cộng số lượng đơn hàng theo điều kiện (1 người xem)

[dongbhhg]

E có đơn hàng như trong file đính kèm, giờ em muốn cộng dồn số lượng theo các điều kiện được mô tả trong file.
- Nhờ các anh chị giúp đỡ ạ

 

[snow25]

E có đơn hàng như trong file đính kèm, giờ em muốn cộng dồn số lượng theo các điều kiện được mô tả trong file.
- Nhờ các anh chị giúp đỡ ạ

Cái này dùng Sumifs là được mà bạn.

=SUMIFS($G$5:$G$17,$E$5:$E$17,M5,$I$5:$I$17,Q5)

 

[vanaccex]

E có đơn hàng như trong file đính kèm, giờ em muốn cộng dồn số lượng theo các điều kiện được mô tả trong file.
- Nhờ các anh chị giúp đỡ ạ

Bạn có thể dùng hàm sumifs hoặc dùng pivottable hoặc dùng code thì bạn thử sub này xem

Sub TongMaHang()
Dim I As Long, ArrDuLieu(), KetQua(), Dic As Object, K As Long, t As Long
Dim j As Long
Dim DieuKien As Variant
Set Dic = CreateObject("Scripting.Dictionary")
ArrDuLieu = Sheet1.Range("E5:J17").Value
    ReDim KetQua(1 To UBound(ArrDuLieu, 1), 1 To 6)
  For I = 1 To UBound(ArrDuLieu, 1)
    DieuKien = ArrDuLieu(I, 1)
    If Not Dic.Exists(DieuKien) Then
        K = K + 1
        Dic.Add DieuKien, K
        KetQua(K, 1) = K
        KetQua(K, 2) = ArrDuLieu(I, 1)
        KetQua(K, 3) = ArrDuLieu(I, 2)
        KetQua(K, 4) = ArrDuLieu(I, 3)
        KetQua(K, 5) = ArrDuLieu(I, 4)
        KetQua(K, 6) = ArrDuLieu(I, 5)
   End If
        t = Dic.Item(DieuKien)
        KetQua(t, 4) = KetQua(t, 4) + ArrDuLieu(I, 3)
        KetQua(t, 5) = KetQua(t, 5) + ArrDuLieu(I, 4)
        KetQua(t, 6) = KetQua(t, 6) + ArrDuLieu(I, 5)
 
   Next
    Sheet1.Range("L5:R1000").ClearContents
If K <> 0 Then
    Sheet1.Range("L5").Resize(K, 6).Value = KetQua
End If
End Sub