Lần đầu tiên phân tích dữ liệu từ một mảng quá phê như vậy, đã thiệt đó!
Sub PhanTichDuLieu()
Dim blnExtra As Boolean
Dim arrData, arrBaoCao, arrTemp(1 To 1, 2 To 34)
Dim shData As Worksheet, shBaoCao As Worksheet
Dim c As Long, e As Long, h As Long, i As Long, j As Long, k As Long, n As Long, r As Long, t As Long, u As Long
Set shData = Sheets("data")
Set shBaoCao = Sheets("baocao")
e = shData.Range("A" & shData.Rows.Count).End(xlUp).Row
arrData = shData.Range("A6:I" & e).Value
u = UBound(arrData)
ReDim arrBaoCao(1 To u, 1 To 34)...Quá tuyệt vời Anh ạ, em cảm ơn Anh rất nhiều,
Nếu muốn tôi cập nhật cho bạn thì bạn liệt kê toàn bộ lên sheet data và các cột ở sheet baocao. VBA các cột được cố định nên bạn xóa hay thêm đều xảy ra lỗi. Cho nên bạn lường tất cả các trường hợp rồi tôi làm giúp một lần luôn chứ tôi không có thời gian sửa chữa cho bạn nhiều lần được đâu. Làm sẵn đi, sáng mai rảnh tôi update cho.
Thực chất em nhờ Anh viết code để xuất ra 1 sheet trung gian, sau đó mới xào xáo thành báo cáo vì có nhiều loại mẫu khác nhau.
