Một bài lọc dữ liệu trong Excel (1 người xem)

[binmaocom]

Em có một danh sách các bạn trong lớp có 2 cột, cột đầu là tên tất cả các bạn trong lớp, cột thứ 2 là danh sách các bạn đã nộp tiền.
Vậy cho em hỏi là làm sao để đưa ra được cột thứ 3 là cột danh sách các bạn chưa nộp tiền!
File gửi kèm là danh sách gồm chưa đến 50 bản ghi. Hi vọng mọi người giúp em để áp dụng cho file gồm nhiều bản ghi hơn nhiều! Em xin cảm ơn!
View attachment Thong ke.xls

 

[mhung12005]

Em có một danh sách các bạn trong lớp có 2 cột, cột đầu là tên tất cả các bạn trong lớp, cột thứ 2 là danh sách các bạn đã nộp tiền.
Vậy cho em hỏi là làm sao để đưa ra được cột thứ 3 là cột danh sách các bạn chưa nộp tiền!
File gửi kèm là danh sách gồm chưa đến 50 bản ghi. Hi vọng mọi người giúp em để áp dụng cho file gồm nhiều bản ghi hơn nhiều! Em xin cảm ơn!
View attachment 83777

Bạn xem file đính kèm nhé.

 

[binmaocom]

Nếu bài này em muốn sử dụng maccro có được không ạ? Nếu được xin chỉ giúp em với ạ!

 

[quangdiepctmbk]

Bạn dùng công thức mảng này nhé D4={INDEX($B$4:$B$47,MATCH(1,($B$4:$B$47<>"")*(COUNTIF($C$4:$C$9,$B$4:$B$47)=0)*(COUNTIF($D$33,$B$4:$B$47)=0),0))}

 

[Ba Tê]

Nếu bài này em muốn sử dụng maccro có được không ạ? Nếu được xin chỉ giúp em với ạ!

Muốn Macro thì tặng bạn một cái nè, thử xem có ổn không?

Public Sub GPE()
Dim Dic As Object, I As Long, J As Long, K As Long, Rng(), Rng2(), Arr()
    Set Dic = CreateObject("Scripting.Dictionary")
        Rng2 = Sheet1.Range(Sheet1.[C4], Sheet1.[C65000].End(xlUp)).Value
        Rng = Sheet1.Range(Sheet1.[B4], Sheet1.[B65000].End(xlUp)).Value
ReDim Arr(1 To UBound(Rng, 1), 1 To 1)
Sheet1.Range(Sheet1.[D4], Sheet1.[D4].End(xlDown)).ClearContents
    For I = 1 To UBound(Rng2, 1)
        If Not Dic.exists(Rng2(I, 1)) Then
            Dic.Add Rng2(I, 1), ""
        End If
    Next I
        For J = 1 To UBound(Rng, 1)
            If Not Dic.exists(Rng(J, 1)) Then
                K = K + 1
                    Arr(K, 1) = Rng(J, 1)
            End If
        Next J
    If K Then Sheet1.[D4].Resize(K).Value = Arr
Set Dic = Nothing
End Sub