Nhờ anh chị giúp lọc danh sách theo điều kiện sang sheet khác (2 người xem)

[ngoivn]

Kính gửi các anh chị

Em có danh sách khá nhiều dòng ở sheet "Thực hiện", nhờ các anh chị giúp lọc danh sách theo điều kiện tháng, năm (ví dụ từ tháng 2 đến tháng 10 năm 2021) sang sheet "Lọc theo tháng năm" bằng VBA.
Trân trọng cảm ơn anh chị.

 

[kbw1]

Cái này bạn dùng Advance filter được mà.
Cần chi phức tạp.

 

[Ronaldinho7]

Kính gửi các anh chị

Em có danh sách khá nhiều dòng ở sheet "Thực hiện", nhờ các anh chị giúp lọc danh sách theo điều kiện tháng, năm (ví dụ từ tháng 2 đến tháng 10 năm 2021) sang sheet "Lọc theo tháng năm" bằng VBA.
Trân trọng cảm ơn anh chị.

Bạn nhập tháng, năm vào P9, Q9 ở sheet 'thuc hien' và chạy code sau:

Sub Loc_dl()
Dim Arr(), Res(), Lr&, i&, j&, k&
With Sheet10
    Lr = .Range("B" & Rows.Count).End(xlUp).Row
    Arr = .Range("A11:R" & Lr).Value
    ReDim Res(1 To UBound(Arr), 1 To 18)
    For i = 1 To UBound(Arr)
        If Arr(i, 16) = .Range("P9").Value And Arr(i, 17) = .Range("Q9").Value Then
            k = k + 1
            Res(k, 1) = k
            For j = 2 To 18
                Res(k, j) = Arr(i, j)
            Next j
        End If
    Next i
    Sheet1.Range("A11").Resize(UBound(Arr), 18).Value = Res
End With
End Sub