Tính tổng từng đoạn với nhiều đoạn

chutichmao

Thành viên mới
Tham gia ngày
25 Tháng năm 2011
Bài viết
4
Được thích
0
Điểm
363
Tuổi
24
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 o_Oo_O. Vậy mong mọi người chỉ cho mình cách tính nhanh, hiệu quả hơn.:):)

Cảm ơn!
 

File đính kèm

hpkhuong

######
Tham gia ngày
20 Tháng năm 2011
Bài viết
4,616
Được thích
4,054
Điểm
560
Nơi ở
Quận 2 - TP.HCM
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é!
 

chutichmao

Thành viên mới
Tham gia ngày
25 Tháng năm 2011
Bài viết
4
Được thích
0
Điểm
363
Tuổi
24
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

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,447
Được thích
2,313
Điểm
360
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 o_Oo_O. 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 à.
 

snow25

Thành viên gắn bó
Tham gia ngày
24 Tháng bảy 2018
Bài viết
2,447
Được thích
2,313
Điểm
360
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.
Mã:
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
 

File đính kèm

Top Bottom