Tìm nhiều điều kiện và cộng nhiều điều kiện.

[thkd09]

Em có một bài toán như thế này (file kèm theo). Vì dữ liệu nhiều nên mất nhiều thời gian để tìm ra có bao nhiêu mặt hàng, chất lượng hàng, sản lượng hàng để rồi cộng tổng giá thành lại bằng SUMIFS như file. Kính mong ACE trong 4rum hướng dẫn giúp em làm các nào nhanh nhất. Xin chân thành cảm ơn ace trước.

 

[Ba Tê]

Em có một bài toán như thế này (file kèm theo). Vì dữ liệu nhiều nên mất nhiều thời gian để tìm ra có bao nhiêu mặt hàng, chất lượng hàng, sản lượng hàng để rồi cộng tổng giá thành lại bằng SUMIFS như file. Kính mong ACE trong 4rum hướng dẫn giúp em làm các nào nhanh nhất. Xin chân thành cảm ơn ace trước.

Dùng tạm Sub này thử xem:

Public Sub GPE()
Dim Rng(), Arr(), I As Long, J As Long, K As Long, Dic As Object, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
Rng = Range([A2], [A65000].End(xlUp)).Resize(, 4).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 4)
    For I = 1 To UBound(Rng, 1)
        Tem = Rng(I, 1) & "#" & Rng(I, 2) & "#" & Rng(I, 3)
        If Not Dic.exists(Tem) Then
            K = K + 1
            Dic.Add Tem, K
            For J = 1 To 4
                Arr(K, J) = Rng(I, J)
            Next J
        Else
            Arr(Dic.Item(Tem), 4) = Arr(Dic.Item(Tem), 4) + Rng(I, 4)
        End If
    Next I
[H2:K65000].ClearContents
[H2].Resize(K, 4).Value = Arr
Set Dic = Nothing
End Sub

 

[ndu96081631]

Em có một bài toán như thế này (file kèm theo). Vì dữ liệu nhiều nên mất nhiều thời gian để tìm ra có bao nhiêu mặt hàng, chất lượng hàng, sản lượng hàng để rồi cộng tổng giá thành lại bằng SUMIFS như file. Kính mong ACE trong 4rum hướng dẫn giúp em làm các nào nhanh nhất. Xin chân thành cảm ơn ace trước.

Bài toán của bạn không gì sướng hơn là dùng PivotTable. Xem file