Lọc dữ liệu từ 1 sheet sang nhiều sheets?

Xin chào tất cả các bạn,
Nhờ các bạn giúp đỡ trường hợp lọc dữ liệu từ 1 sheet sang nhiều sheets theo điều kiện trong tập tin gửi kèm với ạ.

Tóm lại là chỉ copy qua sheet kết quả có 2 cột là Tieude3; Tieude4 hay sao?

Xin chào hpkhuong,
Dạ vâng hiện tại Sếp mới chỉ yêu cầu hàng ngày phải như vậy ạ , nhờ bạn xem giúp 🙂

Public Sub GPE()
Dim sArr, dArr, zArr, K As Long, I As Long, J As Long, Ws As Worksheet
sArr = Sheet1.Range("C1", Sheet1.Range("C1").End(4)).Resize(, 7).Value
ReDim dArr(1 To UBound(sArr), 1 To 2)
ReDim zArr(1 To UBound(sArr), 1 To 2)
For I = 2 To UBound(sArr)
    If sArr(I, 2) = "DK1" And sArr(I, 6) = Empty Then
        K = K + 1
        dArr(K, 1) = sArr(I, 3): dArr(K, 2) = sArr(I, 4)
    End If
    If sArr(I, 6) = "DK2" Then
        J = J + 1
        zArr(J, 1) = sArr(I, 3): zArr(J, 2) = sArr(I, 4)
    End If
Next
With Sheet2
    .Range("C1").CurrentRegion.Offset(1).ClearContents
    .Range("C2").Resize(K, 2).Value = dArr
End With
With Sheet3
    .Range("C1").CurrentRegion.Offset(1).ClearContents
    .Range("C2").Resize(J, 2).Value = zArr
End With
End Sub

www.giaiphapexcel.com/diendan/threads/l%E1%BB%8Dc-d%E1%BB%AF-li%E1%BB%87u-t%E1%BB%AB-1-sheet-sang-nhi%E1%BB%81u-sheets.130910/

Khóa học SprinGO phù hợp

Học Nhân sự Tổng hợp – Trở thành chiến binh nhân sự vững nghiệp vụ

Con người là một trong những yếu tố quan trọng của công ty, là tài sản quý giá của doanh nghiệp. Chính vì thế,...

Xem khóa học