Nhờ sư phụ giúp trích lọc dữ liệu (2 người xem)

[XxXmen]

Do nhu cầu công việc nên rất cần mấy sư phụ giúp đơ. cám ớn trước!

 

[befaint]

Gợi ý: Advanced filter hoặc pivot table.

 

[phulien1902]

Do nhu cầu công việc nên rất cần mấy sư phụ giúp đơ. cám ớn trước!

Code cho bài toán của bạn:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DL, KQ(1 To 1000, 1 To 6), DK$, i&, k&
    If Target.Address = "$C$2" Then
        DK = [C2].Value
        DL = Sheets(1).Range("A4", Sheets(1).Range("A65000").End(3)).Resize(, 7)
        Application.ScreenUpdating = False
        For i = 1 To UBound(DL)
            If DL(i, 2) = DK And DK <> Empty Then
                k = k + 1
                KQ(k, 1) = k
                KQ(k, 2) = DL(i, 3)
                KQ(k, 3) = DL(i, 4)
                KQ(k, 4) = DL(i, 5)
                KQ(k, 5) = DL(i, 6)
                KQ(k, 6) = DL(i, 7)
            End If
        Next i
        If i Then
            Range("A4:F65000").ClearContents
            Range("A4").Resize(i, 6) = KQ
            Range("A4:F65000").Borders.LineStyle = xlNone
            Range("A4", Range("A65000").End(3)).Resize(, 6).Borders.LineStyle = xlContinuous
        Else
            Range("A4:F65000").ClearContents
            Range("A4:F65000").Borders.LineStyle = xlNone
        End If
    End If
End Sub

 

[XxXmen]

Cảm ơn bạn nhiều lắm!
Làm ơn thì làm ơn cho chót, giờ nhờ bạn cho code vào file mình úp lên dùm nhe!

 

[phulien1902]

Cảm ơn bạn nhiều lắm!
Làm ơn thì làm ơn cho chót, giờ nhờ bạn cho code vào file mình úp lên dùm nhe!

Bạn xem File tôi đính kèm nhé

 

[XxXmen]

Cám ơn bạn Phulien1902 lắm. chúc bạn luôn thành công trong cuộc sống