Phân chia, lọc dữ liệu trong excel

[dinhhong04]

Các bác giúp em vụ này với khó quá, mà em lại dang rất cần. Em có gửi kèm thêm file đây. Thank!!

 

[SA_DQ]

Bạn thêm trong file đính kèm

Option Explicit
Sub ThongKe()
 Dim eRw As Long:                       Dim sLot As String
 Dim Col As Byte, Dong As Byte
 Dim Rng As Range, Clls As Range
 Const Ngay As String = "NGAY":         Const Dem As String = "DEM"
 
 
 Col = [IV3].End(xlToLeft).Column
 eRw = [b4].End(xlDown).Row
 Range(Cells(eRw + 2, "B"), Cells(9 * eRw, "I")).Clear
 Union(Cells(eRw + 3, "C"), Cells(eRw + 3, "G")).Value = "LOT"
 Cells(eRw + 3, "E") = Ngay:            Cells(eRw + 3, "I") = Dem
 Set Rng = [b4].CurrentRegion.SpecialCells(xlCellTypeConstants, 1)
 For Each Clls In Rng
    If sLot = "" Or sLot <> Cells(Clls.Row, "B").Value Then
        sLot = Cells(Clls.Row, "B").Value
        Dong = 1
    Else
        Dong = 0
    End If
    With [C65500].End(xlUp).Offset(1 + Dong)
        If Cells(3, Clls.Column) = Ngay Then
            .Value = sLot
            .Offset(, 1) = Cells(2, Clls.Column).Value
            .Offset(, 2) = Clls.Value
        Else
            .Offset(-1, 4) = sLot
            .Offset(-1, 5) = Cells(2, Clls.Column).Value
            .Offset(-1, 6) = Clls.Value
        End If
    End With    
 Next Clls
End Sub

 

[dinhhong04]

Rehelp me!

với dữ liệu nhỏ thì bác làm như vậy còn dữ liệu lớn thì sao?
Bác xem file này rồi giúp em nha, vả lại em phải nhóm theo ngày nữa cơ, vi dụ 13/2 -> 19/2 sau đó mới làm như vậy bác giúp em với. Em đang rất cần


thank!!!

 

[dinhhong04]

các bác ơi các bác xem file của em thế nào? em đã thử sử dụng code của bác HYen17 rồi nhưng không được, em không biêt đã làm sai gì cả. Đầu tiên em copy toàn bộ du liệu sang một sheet sau đó em sử dụng code của các bác nhưng nó không chạy. các bác giúp em với.

 

[boyxin]

Các bác giúp em vụ này với khó quá, mà em lại dang rất cần. Em có gửi kèm thêm file đây. Thank!!

Mời bạn xem File đính kèm trong bài này
Chỉ là 1 giải pháp
​

 

[ChanhTQ@]

Không biết đường nào mà lần luôn.

Lần đầu bạn đưa lên là ít & iêu cầu tổng hợp vô bên dưới ;
Cho nên mọi người tiến hành như vậy
Sau đó lại đưa lên quá nhiều & quả thật mình không biết phải tổng hợp từ trang tính nào nữa cơ, Comb Hay CopyTab

Và Bạn phải khẳng định 1 cái này nữa: Tổng hợp vô đâu, vô trang tính mới phải không?

Đừng tiếp tục cùng nhau làm tốn thời gian của cộng đồng, đây là lời khuyên chí tình của mình, mong bạn cứ zận!

 

[dinhhong04]

bạn nói cũng đúng vì mình không biêt phải giải thích thế nào cả. mình hiểu vấn đề nhưng không biết phải giải thích thế nào, bạn đầu thì mình chia nhỏ bài ra rồi làm từng phần. sau thấy phức tạp mà vẫn chưa đạt yêu cầu thì mình post cả bài lên điễn đàn để các bác giúp thôi, tự em làm cái này khó quá, vì em cũng chỉ mới học thôi.