Tính tổng từng đoạn với nhiều đoạn (2 người xem)

[chutichmao]

Chào tất cả mọi người!

Mình có một bảng theo dõi doanh số bán hàng, cần tính tổng số thùng hàng mà mỗi khách hàng đã mua tại cột "Số thùng" như file đính kèm. Vấn đề ở chỗ, danh sách mình theo dõi có rất nhiều khách hàng, nếu tính tổng theo hàm SUM cho từng khách hàng thì mất rất nhiều thời gian . Vậy mong mọi người chỉ cho mình cách tính nhanh, hiệu quả hơn.

Cảm ơn!

 

[chutichmao]

Bắt cái thằng viết phần mềm đổ báo cáo dạng "Raw Data" rồi lấy mà PivotTable.
Còn không thì bắt nó viết ra cái mình muốn là "ABC" hoặc "XYZ" luôn...
Đừng kiểu nửa Nạt/ nửa Mỡ thế này nhé!

Cảm ơn bác @hpkhuong, em là nhân viên thời vụ, mới vào làm việc nên chưa nhờ hỗ trợ được từ những người khác. Bác xem có cách nào thì chỉ giúp em với.

 

[snow25]

Chào tất cả mọi người!

Mình có một bảng theo dõi doanh số bán hàng, cần tính tổng số thùng hàng mà mỗi khách hàng đã mua tại cột "Số thùng" như file đính kèm. Vấn đề ở chỗ, danh sách mình theo dõi có rất nhiều khách hàng, nếu tính tổng theo hàm SUM cho từng khách hàng thì mất rất nhiều thời gian . Vậy mong mọi người chỉ cho mình cách tính nhanh, hiệu quả hơn.

Cảm ơn!

Dùng VBA bạn à.

 

[chutichmao]

Dùng VBA bạn à.

Mình không rành về VBA. Bạn hướng dẫn cụ thể hơn giúp mình được k?

 

[echo07]

Nếu dữ liệu của bạn xuất ra đúng format như file thì tham khảo cách này nhá.

 

[snow25]

Mình không rành về VBA. Bạn hướng dẫn cụ thể hơn giúp mình được k?

Đây bạn xem.

Sub tinhtong()
   Dim arr, i As Long, tong As Double, lr As Long
   With Sheets("sheet2")
        lr = .Range("B" & Rows.Count).End(xlUp).Row
        arr = .Range("B5:F" & lr).Value
        For i = UBound(arr, 1) To 1 Step -1
            If arr(i, 1) <> Empty And arr(i, 3) <> Empty Then
                tong = tong + arr(i, 5)
            ElseIf arr(i, 1) <> Empty And arr(i, 3) = Empty Then
                arr(i, 5) = tong
                tong = 0
             End If
        Next i
       .Range("B5:F" & lr).Value = arr
  End With
End Sub

 

[chutichmao]

Cảm ơn @echo07 và @snow25 rất nhiều. Mình đã làm theo và thực hiện được rồi.