Thêm dòng tổng cộng cho những mặt hàng có quy cách

[moihocvba]

Xin chào anh chị GPE!
Em có một hóa đơn bao nhiều tôn và phụ kiện, đối với tôn thì có quy cách, còn phụ kiện thì không. Giờ em muốn thêm dòng tổng cộng dưới những dòng cùng 1 mặt hàng và có quy cách, mục đích để biết số tổng của mặt hàng đó. Đối với phụ kiện ko có dữ liệu ở cột quy cách thì ko cần tổng. Như hình dưới em minh họa:

Đây là bảng gốc:


Đây là bảng kết quả em muốn (dán ra sheet khác)




Cám ơn anh chị rất nhiều!

 

[befaint]

15 ký tự + 1 .

 

[Ba Tê]

Đây là bảng kết quả em muốn (dán ra sheet khác)

Thử với Sub này:

Public Sub Gpe()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Dem As Long, Txt As String
    sArr = Sheets("Goc").Range("A5", Sheets("Goc").Range("A5").End(xlDown).Offset(1)).Resize(, 8).Value
    R = UBound(sArr) - 1
ReDim dArr(1 To R * 2, 1 To 8)
Txt = sArr(1, 2)
For I = 1 To R
    K = K + 1
    For J = 1 To 8
        dArr(K, J) = sArr(I, J)
    Next J
    If sArr(I, 3) <> Empty Then
        Dem = Dem + 1
        If sArr(I + 1, 2) <> Txt Then
            K = K + 1
            dArr(K, 2) = "C" & ChrW(7897) & "ng"
            dArr(K, 4) = "=SUM(R[-" & Dem & "]C:R[-1]C)"
            dArr(K, 5) = sArr(I, 5)
            dArr(K, 7) = "=SUM(R[-" & Dem & "]C:R[-1]C)"
            Txt = sArr(I + 1, 2)
            Dem = 0
        End If
    Else
        Dem = 0
    End If
Next I
    Sheets("KetQua").Range("A5").Resize(K, 8) = dArr
End Sub

 

[cadafi]

Bạn thử 1 chút xem cho vui:

Sub mSubTotal()
ActiveSheet.[A4:H15].Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub

 

[moihocvba]

Cám ơn anh befaint và @Ba Tê anh đã giúp em, code chạy nhanh và chuẩn ạ!
Tuy nhiên nếu như giữa các mặt hàng có quy cách, người dùng chen ngang 1 mặt hàng không có quy cách vào, thì mình phải sửa code lại như thế nào ạ?

Ví dụ như:

​

 

[befaint]

Tuy nhiên nếu như giữa các mặt hàng có quy cách, người dùng chen ngang 1 mặt hàng không có quy cách vào, thì mình phải sửa code lại như thế nào ạ?

15 ký tự + 2 .