THỐNG KÊ DỮ LIỆU

[mailanchi89]

Chào các bạn,
Giúp mình với mình muốn thống kê 1 bảng tồn kho,
gồm có mã hàng, tên hàng, và số lượng

mình đã sử dụng pivotable cho bảng tính, nhưng nó k đc gọn, mỗi dòng đều xuất hiện 1 dòng mã, 1 dòng số và 1 dòng tổng hợp, cứ mỗi mã là mỗi dòng total
Mình chỉ muốn liệt kê 1 cột mã, 1 cột tên, và 1 cột tổng số lượng

Trong pivot thì chỉ tổng hợp đc 2 cột

 

[kokano90]

Bạn muốn thế này à

Bài đã được tự động gộp: 3/9/19

Chào các bạn,
Giúp mình với mình muốn thống kê 1 bảng tồn kho,
gồm có mã hàng, tên hàng, và số lượng

 

[mailanchi89]

ồ wao, đúng r, chỉ mình với............................

 

[kokano90]

ồ wao, đúng r, chỉ mình với............................

Bạn muốn chỉ thế nào? và bạn biết được cái gì rồi ạ

 

[LamNA]

Chào các bạn,
Giúp mình với mình muốn thống kê 1 bảng tồn kho,
gồm có mã hàng, tên hàng, và số lượng

mình đã sử dụng pivotable cho bảng tính, nhưng nó k đc gọn, mỗi dòng đều xuất hiện 1 dòng mã, 1 dòng số và 1 dòng tổng hợp, cứ mỗi mã là mỗi dòng total
Mình chỉ muốn liệt kê 1 cột mã, 1 cột tên, và 1 cột tổng số lượng

Trong pivot thì chỉ tổng hợp đc 2 cột

Vào cái vùng tô đỏ vọc để ra cái mình cần, tự vọc mới nhớ được

 

[phulien1902]

Chào các bạn,
Giúp mình với mình muốn thống kê 1 bảng tồn kho,
gồm có mã hàng, tên hàng, và số lượng

mình đã sử dụng pivotable cho bảng tính, nhưng nó k đc gọn, mỗi dòng đều xuất hiện 1 dòng mã, 1 dòng số và 1 dòng tổng hợp, cứ mỗi mã là mỗi dòng total
Mình chỉ muốn liệt kê 1 cột mã, 1 cột tên, và 1 cột tổng số lượng

Trong pivot thì chỉ tổng hợp đc 2 cột

Cách khác:

Sub Tes()
    Dim DL, KQ(), i%, j%, d, k%, dk
    DL = Range([A3], [A65000].End(xlUp)).Resize(, 3).Value
     Set d = CreateObject("scripting.dictionary")
    ReDim KQ(1 To UBound(DL, 1), 1 To UBound(DL, 2))
    For i = 1 To UBound(DL)
        dk = DL(i, 1) & DL(i, 2)
        If Not d.exists(dk) Then
            k = k + 1
            d.Add dk, k
            KQ(k, 1) = DL(i, 1): KQ(k, 2) = DL(i, 2): KQ(k, 3) = DL(i, 3)
        Else
            j = d.Item(dk)
            KQ(j, 3) = KQ(j, 3) + DL(i, 3)
        End If
    Next i
    Range("E2:G2").Value = Range("A2:C2").Value
    Range("E3").Resize(5000, UBound(DL, 2)).ClearContents
    Range("E3").Resize(UBound(KQ), UBound(DL, 2)) = KQ
End Sub

 

[mailanchi89]

Okela, đã mò đc ạ, cám ơn nhiều ạ

 

[nguyen nguyen phuc]

Giúp mình về tình huống này với, mình làm bảng Piviot Table, nó ra đc kq như này:

Giờ mình muốn thêm 1 cột với công thức: nếu cột đánh giá >0 thì bằng cột đánh giá * cột hệ số điều chỉnh, còn lại là bằng cột đánh giá ( có thể hinh dung hàm: if(đánh giá>0,đánh giá * hệ số điều chỉnh, đánh giá). Em nhờ mấy Bác giúp mình với. Rất cảm ơn!