Nhờ tổng hợp loại hàng xuất hiện theo ngày

[leadlong1422]

Mọi người giúp e tạo bảng tổng hợp theo thứ tự lớn dần loại hàng xuất hiện theo ngày cho 1 file có nhiều dòng cột như e mô tả trong file đính kèm. Cảm ơn tất cả ah

 

[CHAOQUAY]

Mọi người giúp e tạo bảng tổng hợp theo thứ tự lớn dần loại hàng xuất hiện theo ngày cho 1 file có nhiều dòng cột như e mô tả trong file đính kèm. Cảm ơn tất cả ah

Chạy code dưới đây

Option Explicit

Sub xxx()
Dim nguon
Dim kq
Dim rws, cls
Dim i, j, k, t
nguon = Sheet1.Range("B1", Sheet1.Range("L32"))
rws = UBound(nguon)
cls = UBound(nguon, 2)
ReDim kq(1 To cls + 1, 1 To rws)
For j = 1 To cls
    kq(j + 1, 1) = nguon(1, j)
    k = 0
    For i = 2 To rws
        If nguon(i, j) > 0 Then
            If k > 0 Then
                kq(j + 1, i - k + 1) = kq(j + 1, i - k + 1) + 1
                If t < i - k + 1 Then t = i - k + 1
                k = i
            Else
                k = i
            End If
        End If
    Next i
Next j
For j = 2 To t
    kq(1, j) = "cach" & j - 2
Next j
With Sheet1
    .Range("p1").Resize(UBound(kq), t).ClearContents
    .Range("p1").Resize(UBound(kq), t) = kq
    .Range("p1").Resize(UBound(kq), t).Borders.LineStyle = 1
End With
End Sub

 

[leadlong1422]

@CHAOQUAY em cảm ơn anh rất nhiều. a quá giỏi

 

[leadlong1422]

@CHAOQUAY a giúp e với ah. bảng excel trên phát sinh thêm 2 điều kiện như file đính kèm :

- Tạo bảng tổng hợp các loại hàng theo nhóm loại hàng "cá, gà lợn,vịt" theo ngày
- Nếu 1 ngày xuất hiện> 2 lần cùng loại hàng thì cũng chỉ tính là 1

em cảm ơn anh nhiều

 

[CHAOQUAY]

@CHAOQUAY a giúp e với ah. bảng excel trên phát sinh thêm 2 điều kiện như file đính kèm :

- Tạo bảng tổng hợp các loại hàng theo nhóm loại hàng "cá, gà lợn,vịt" theo ngày
- Nếu 1 ngày xuất hiện> 2 lần cùng loại hàng thì cũng chỉ tính là 1

em cảm ơn anh nhiều

Chạy "NDK" trong file đính kèm.
Vùng N2:N5 là nhóm loại hàng

---
Thứ tự loại hàng thống kê sẽ sắp xếp sau

 

[leadlong1422]

@CHAOQUAY code đỉnh cao quá anh ạh. e cảm ơn anh nhiều lắm

 

[leadlong1422]

@CHAOQUAY anh sửa lỗi giúp e khi e đổi từ chữ sang số thì code không chạy ah. Khi e thay đổi data ở colum AC thì code vẫn chạy bình thường đúng ko anh?
e cảm ơn anh nhiều

 

[CHAOQUAY]

@CHAOQUAY anh sửa lỗi giúp e khi e đổi từ chữ sang số thì code không chạy ah. Khi e thay đổi data ở colum AC thì code vẫn chạy bình thường đúng ko anh?
e cảm ơn anh nhiều

Các vùng dữ liệu khác nhau không nên để dính liền.
Code trong file đã điều chỉnh, lệnh cũ vẫn để lại để đối chiếu

Vùng điều kiện để tại cột AD có lẽ tốt hơn, kch thước đến đâu khai báo đến đó

 

[leadlong1422]

cảm ơn anh @CHAOQUAY đã giúp e thêm kinh nghiệm ah