Lọc dữ liệu

[dakrain]

Hiện em đang làm excel về kho cho công ty. Trong kho thì có khá nhiều mặt hàng được tổng hợp, sau đó các mặt hàng đó thì được cấp cho từng nhân viên. Giờ em muốn làm một thống kê cho tất cả các mặt hàng (số lượng) mà các nhân viên đang nắm dữ thì làm như thế nào ah. Em có file mẫu

 

[be_09]

Hiện em đang làm excel về kho cho công ty. Trong kho thì có khá nhiều mặt hàng được tổng hợp, sau đó các mặt hàng đó thì được cấp cho từng nhân viên. Giờ em muốn làm một thống kê cho tất cả các mặt hàng (số lượng) mà các nhân viên đang nắm dữ thì làm như thế nào ah. Em có file mẫu

Nhập liệu tên nhân viên tại cột E rồi sử dụng PivotTable (xem kết quả sheet 4).

 

[dakrain]

Bác hướng dẫn em làm được ko ạ

 

[dakrain]

Cái file excel mà hệ thống của em nó xuất ra là như thế đó bác ơi. Không mặt hàng thì nhiều lắm. Còn nhân viên thì no sắp y rang cái của em gửi dài từ trên xuống dưới, có mặt hàng nào thì để cái đó với thêm số lượng. Về excel em không rành lắm.

 

[Ba Tê]

Cái file excel mà hệ thống của em nó xuất ra là như thế đó bác ơi. Không mặt hàng thì nhiều lắm. Còn nhân viên thì no sắp y rang cái của em gửi dài từ trên xuống dưới, có mặt hàng nào thì để cái đó với thêm số lượng. Về excel em không rành lắm.

Nếu chịu xài VBA thì tặng bạn Sub này tuỳ nghi sử dụng:

Public Sub KyQua()
Dim Dic As Object, sArr(), dArr(), I As Long, K As Long, Col As Long, Tem As String
Set Dic = CreateObject("Scripting.Dictionary")
sArr = Range([A11], [A65536].End(xlUp)).Resize(, 4).Value
ReDim dArr(1 To UBound(sArr, 1), 1 To UBound(sArr, 1) / 2)
Col = 1
K = 1
For I = 1 To UBound(sArr, 1)
    If sArr(I, 2) = Empty Then
        Col = Col + 1
        dArr(1, Col) = sArr(I, 1)
    Else
        Tem = sArr(I, 1)
        If Not Dic.Exists(Tem) Then
            K = K + 1
            Dic.Add Tem, K
            dArr(K, 1) = Tem
            dArr(K, Col) = sArr(I, 4)
        Else
            dArr(Dic.Item(Tem), Col) = sArr(I, 4)
        End If
    End If
Next I
[I2].Resize(K, Col) = dArr
Set Dic = Nothing
End Sub