Tìm số lượng người bán theo ngưỡng cho trước

Chia sẻ bởi:hands

★★★★★

‹ Hàm tự tạo chuyển ngày dương lịch... Vọc chơi với những thuật toán nén... ›

Quảng cáo

Em xin chào anh chị và các bạn trên diễn đàn ạ,
Em có vấn đề xin trợ giúp của anh chị và mọi người ạ. Em thấy pivotable trong excel nó có liệt kê và tính theo ngưỡng nào đó. Vậy ví dụ em có cột A là mã người bán, cột B là doanh thu thì code như nào để như yêu cầu như vùng E:G ạ.
1849

Em cảm ơn anh chị và mọi người ạ.

Kiểm tra lại . . .

Option Explicit
Sub ABC()
  Dim arr(), aDT, dic As Object, tmp
  Dim sRow&, sR&, i&, r&

Set dic = CreateObject("scripting.dictionary")
  aDT = Array(0, 500, 1000, 2000, 2500) 'Các to
  sR = UBound(aDT)
  ReDim res(1 To sR + 1, 1 To 2)
  arr = Sheet1.Range("A2", Sheet1.Range("B" & Rows.Count)).Value
  sRow = UBound(arr)
  For i = 1 To sRow 'Tong doanh thu tung nguoi ban
    dic(arr(i, 1)) = dic(arr(i, 1)) + arr(i, 2)
  Next i
  For Each tmp In dic.items
    For r = 1 To sR
      If tmp < aDT(r) Then Exit For
    Next r
    res(r, 1) = res(r, 1) + 1
    res(r, 2) = res(r, 2) + tmp
  Next tmp
  Sheet1.Range("F4").Resize(sR + 1, 2) = res
End Sub

www.giaiphapexcel.com/diendan/threads/t%C3%ACm-s%E1%BB%91-l%C6%B0%E1%BB%A3ng-ng%C6%B0%E1%BB%9Di-b%C3%A1n-theo-ng%C6%B0%E1%BB%A1ng-cho-tr%C6%B0%E1%BB%9Bc.163879/