Giúp bạn thế này vậy!
Như thế này phải không?THANK BẠN NHIỀU NHÉ!!! Mình muốn hỏi thêm chút nữa là khi mình chuyển hết dữ liệu từ sheet THỤ LÝ sang sheet ĐÃ NỘP XONG thì nó có thể tự động xóa hết dữ liệu ở sheet THỤ LÝ sau khi đã chuyển qua sheet ĐÃ NỘP XONG được không vậy bạn?
Mình đang cần gấp để làm thống kê. Mong các pro ra tay giúp đỡ...Thanks !!!!!!
Sub copyDL()
Dim i As Long
With Sheet1
For i = 7 To [B65536].End(3).Row
If .Cells(i, 3) = 1 Then
.Cells(i, 3).EntireRow.Copy Sheet2.[A65536].End(3).Offset(1)
.Cells(i, 3).EntireRow.Delete
End If
Next
.Range("A7:K" & .[B65536].End(3).Row).Copy Sheet3.[A6]
End With
End Sub
Sub Lamlai()
Dim i As Long, n As Long, kNOP As Long, kchuaNOP As Long, j As Long, m As Long
Dim sArr(), dArrNOP(), dArrchuaNOP()
sArr = Sheet1.Range("A7:A" & Sheet1.[B65536].End(xlUp).Row).Resize(, 11).Value
n = UBound(sArr, 1)
m = UBound(sArr, 2)
ReDim dArrNOP(1 To n, 1 To m)
ReDim dArrchuaNOP(1 To n, 1 To m)
For i = 1 To n
If sArr(i, 3) = 1 Then
kNOP = kNOP + 1
For j = 1 To m
dArrNOP(kNOP, j) = sArr(i, j)
Next j
Else
kchuaNOP = kchuaNOP + 1
For j = 1 To m
dArrchuaNOP(kchuaNOP, j) = sArr(i, j)
Next j
End If
Next
Sheet2.[A7].Resize(kNOP, 11) = dArrNOP
Sheet3.[A6].Resize(kchuaNOP, 11) = dArrchuaNOP
End Sub
CODE có trong file đính kèm rùi, bạn bấm nút RUN CODE trong sheet THỤ LÝ và kiểm tra kết quả - tôi khuyên bạn nên dùng cách tôi làm cho bạn KUMI, yêu cầu giống nhau.mình chỉ mới tập tành với excel nên k hiểu đoạn code như trên thì đưa vào chỗ nào vậy bạn. sao mình chẳng thấy nó lọc dữ liệu qua các sheet kia vậy...
Mình hỏi thêm chút nữa nhé?
Mình hỏi lại xíu có phải điều kiện bạn định diễn tả thế này không vì thấy bạn viết khó hiểu quá nhất là cái chỗ LÚC ĐÓ.....
dù sao cũng thank bạn đã góp ý nhưng giờ mình đã làm được rồi..
Thank bạn nhiều nhé! Nhưng mình không hiểu đoạn code chỗ này bạn có thể giải thích giúp mình được không? Chỗ -6 nghĩa là thế nào vậy ?
ROW('THỤ LÝ'!$C$7:$C$12) trả về kết quả là mảng {7;8;9;10;11;12} và ROW('THỤ LÝ'!$C$7:$C$12)-6 trả về kết quả là mảng {1;2;3;4;5;6} làm đối số cho hàm SMALL().
thank bạn nhé! Mình còn gà nên chưa hiểu lắm. Hi.
thank bà chị nhiều nhé 
