Lọc dữ liệu và cộng dồn số liệu có mã giống nhau

[duynhat84]

em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều

 

[ppc0312]

em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều

Tìm hiểu PIVOT TABLE là làm nhanh nhất, bạn đọc và làm theo chức năng đó là xong báo cáo

 

[HungQuoc49]

em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều

sheet Baocao E15

=SUMIFS('Nhập liệu'!E$8:E$28,'Nhập liệu'!$B$8:$B$28,$B15,'Nhập liệu'!$C$8:$C$28,$C15)

copy sang các ô khác

 

[hpkhuong]

em muốn lọc tự động khi các dòng có mã guống nhau thị chỉ giữ lại 1 nhưng số tiền thì cộng dồn lại
các bái giúp em vối (em gửi f kèm theo)
em cảm ơn nhiều

Option Explicit
Public Sub GPE()
Dim Dic As Object, I As Long, J As Long, K As Long
Dim Tmp As String, Arr, dArr
Arr = Sheet1.Range("B8:O28").Value
ReDim dArr(1 To UBound(Arr), 1 To UBound(Arr, 2))
Set Dic = CreateObject("Scripting.Dictionary")
    With Dic
        For I = 1 To UBound(Arr)
        Tmp = Arr(I, 1) & "#" & Arr(I, 2)
            If Not .Exists(Tmp) Then
                K = K + 1
                .Add Tmp, K
                For J = 1 To UBound(Arr, 2)
                    dArr(K, J) = Arr(I, J)
                Next J
            Else
                For J = 4 To UBound(Arr, 2)
                    dArr(.Item(Tmp), J) = dArr(.Item(Tmp), J) + Arr(I, J)
                Next J
            End If
        Next I
    End With
With Sheet2
    .Range("B15:O25").ClearContents
    .Range("B15").Resize(K, UBound(Arr, 2)) = dArr
End With
Set Dic = Nothing
End Sub

 

[duynhat84]

HPKhuong ơi Cái này làm như nào bạn làm gúp vào file cho dễ hiểu lưu ý là lược bớt các mã trùng nhau gùm nha
Cảm ơn nhiều

 

[hpkhuong]

HPKhuong ơi Cái này làm như nào bạn làm gúp vào file cho dễ hiểu lưu ý là lược bớt các mã trùng nhau gùm nha
Cảm ơn nhiều

Nó là VBA code. Bạn search cách dùng nó là được mà... Search đi cho quen...Sau này còn ứng dụng....

----------------
1. Excel trên máy bạn phải được Enable Macro
2. Alt+F11. Click phải vùng VBA Project (góc trái phía trên) -> Insert/ Module: copy Paste code trên vào. Quay lại File excel của bạn... nhấn : Alt+F8: Run cái Macro mới paste vào lúc nãy...Xem kết quả tại sheet Báo Cáo