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

Liên hệ QC

moihocvba

Thành viên thường trực
Tham gia
16/8/20
Bài viết
207
Được thích
49
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:
1617853980595.png

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

1617854009265.png


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

File đính kèm

  • Sum ten hang co quy cach.xlsm
    25.9 KB · Đọc: 12
Đây là bảng kết quả em muốn (dán ra sheet khác)
Thử với Sub này:
PHP:
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
 
Upvote 0
Bạn thử 1 chút xem cho vui:

PHP:
Sub mSubTotal()
ActiveSheet.[A4:H15].Subtotal GroupBy:=2, Function:=xlSum, TotalList:=Array(7), Replace:=True, PageBreaks:=False, SummaryBelowData:=True
End Sub
 
Upvote 0
Cám ơn anh befaint@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ư:
1617859850354.png


 
Upvote 0
Web KT
Back
Top Bottom