Lọc dữ liệu theo 1 điều kiện

[danhdaidao]

Dạ chào các anh chị! Em muốn lấy dữ liệu từ dòng dữ liệu lên ô hiển thị dữ liệu từ số tham chiếu tại ô tham chiếu và Vùng chứa dữ liệu sẽ hiện như thế đầy đủ từ dòng số 1 (công việc 1) đến dòng cuối (dòng cuối cùng). Nhờ anh chị giúp em với ạ. Em cám ơn !!!!

 

[HUONGHCKT]

Dạ chào các anh chị! Em muốn lấy dữ liệu từ dòng dữ liệu lên ô hiển thị dữ liệu từ số tham chiếu tại ô tham chiếu và Vùng chứa dữ liệu sẽ hiện như thế đầy đủ từ dòng số 1 (công việc 1) đến dòng cuối (dòng cuối cùng). Nhờ anh chị giúp em với ạ. Em cám ơn !!!!
View attachment 265719

Bạn dùng thử code này xem sao. Hy vọng đúng ý

Option Explicit
Sub Loc()
Dim i&, j&, Lr&, c&, d&, t&
Dim Arr(), KQ(), DK
With Sheets("Data")
    Lr = .Cells(Rows.Count, 1).End(xlUp).Row
    Arr = .Range("A11:AW" & Lr).Value
    d = UBound(Arr, 1): c = UBound(Arr, 2)
    ReDim KQ(1 To d, 1 To c)
    For i = 1 To d
        DK = Arr(i, 2)
        If DK = .Cells(6, 1).Value Then
        t = t + 1
            For j = 1 To c
                KQ(t, j) = Arr(i, j)
            Next j
        End If
    Next i
If t Then
    .[A7].Resize(1, c) = KQ
End If
End With
End Sub

Gán vào nút lên xuống và chạy thử.

 

[BuiQuangThuan]

Dạ chào các anh chị! Em muốn lấy dữ liệu từ dòng dữ liệu lên ô hiển thị dữ liệu từ số tham chiếu tại ô tham chiếu và Vùng chứa dữ liệu sẽ hiện như thế đầy đủ từ dòng số 1 (công việc 1) đến dòng cuối (dòng cuối cùng). Nhờ anh chị giúp em với ạ. Em cám ơn !!!!

Ban thử file này coi

 

[danhdaidao]

Ban thử file này coi

Dạ em cám ơn anh rất nhiều ạ!!!!!