Tìm tên những người chưa có trong danh sách (1 người xem)

[thutrang019]

Tìm những người chưa có trong danh sách

e có 2 sheet
sheet1: danh sách đầy đủ gồm: họ tên, ngày sinh, nơi ở, học vấn tổ làm việc
Sheet2: danh sách đã có gồm: họ tên, ngày sinh, nơi ở, học vấn tổ làm việc
bây giờ e muốn trích lọc riêng các người ko có tên bên danh sách đầy đủ sang bên danh sách đã có hoặc cho vào sheet "danh sách còn thiếu"
e cám ơn! anh làm = công thức hoặc code cũng được ạ
vì e chẳng biết gì, dựa vào file các anh làm e áp dụng vào thực tế

 

[hoamattroicoi]

Xem file đính kèm nhé, mình trích những tên không có sang sheet sanh sách thiếu để bạn tham khảo!

 

[ndu96081631]

e có 2 sheet
sheet1: danh sách đầy đủ gồm: họ tên, ngày sinh, nơi ở, học vấn tổ làm việc
Sheet2: danh sách đã có gồm: họ tên, ngày sinh, nơi ở, học vấn tổ làm việc
bây giờ e muốn trích lọc riêng các người ko có tên bên danh sách đầy đủ sang bên danh sách đã có hoặc cho vào sheet "danh sách còn thiếu"
e cám ơn! anh làm = công thức hoặc code cũng được ạ
vì e chẳng biết gì, dựa vào file các anh làm e áp dụng vào thực tế

Để đảm bảo có người trùng tên nhưng là 2 người khác nhau, ta xét luôn ngày sinh, nơi ở.. vân vân...
Ta làm như sau:
- Tại sheet DS còn thiếu, gõ công thức này vào cell H2

=SUMPRODUCT(COUNTIF('DS đầy đủ'!$B2,'DS đã có'!$B$2:$B$15)*COUNTIF('DS đầy đủ'!$C2,'DS đã có'!$C$2:$C$15)*COUNTIF('DS đầy đủ'!$D2,'DS đã có'!$D$2:$D$15)*COUNTIF('DS đầy đủ'!$E2,'DS đã có'!$E$2:$E$15)*COUNTIF('DS đầy đủ'!$F2,'DS đã có'!$F$2:$F$15))=0

- Xong, dùng Advanced Filter lọc danh sách còn thiếu theo hướng dẫn sau:

[video=youtube;XMRrPPV9ZMg]http://www.youtube.com/watch?v=XMRrPPV9ZMg[/video]

 

[thutrang019]

cám ơn Hoamattroi
nhưng tại sao mình thêm dữ liệu và chỉnh lại công thức thì bên DS còn thiếu lại ko hiện ra nhỉ?

 

[mhung12005]

cám ơn Hoamattroi
nhưng tại sao mình thêm dữ liệu và chỉnh lại công thức thì bên DS còn thiếu lại ko hiện ra nhỉ?

Bạn chỉ cần thay đổi vùng tham chiếu là được mà.

 

[hoamattroicoi]

cám ơn Hoamattroi
nhưng tại sao mình thêm dữ liệu và chỉnh lại công thức thì bên DS còn thiếu lại ko hiện ra nhỉ?

Công thức tại ô B2 là công thức mảng bạn phải nhấn Ctrl+shift+Enter khi kết thúc công thức! Sau đó copy xuống những dòng phía dưới.
Nếu không muốn gõ CT mảng thì tạo 1 name như trong file này nhé! Nhấn Ctrl+F3 để xem name.

 

[SA_DQ]

/-)ã định không đăng bài này, nhưng cuối cùng đổi í

Trước khi tham khảo macro dưới đây, xin mời bạn nghe vài câu khó nghe như sau:

(1) Đừng bao giờ gán tên trang tính có dấu tiếng Việt & chứa khoảng trắng trong nớ!

(2) Đừng bao giờ tô màu cả 1 dòng, trong khi có chỉ dăm bảy ô trong hàng là có dữ liệu.

Option Explicit
Sub DSThiéu()
 Dim Cls As Range, Sh2 As Worksheet, sRng As Range, Sh3 As Worksheet, Rng As Range
   
 Sheet1.Select
 Set Sh2 = ThisWorkbook.Worksheets(2)
 Set Sh3 = ThisWorkbook.Worksheets(3)
 Sh3.[B1].CurrentRegion.Offset(1).ClearContents
 Set Rng = Sh2.Range(Sh2.[B1], Sh2.[B1].End(xlDown))
 For Each Cls In Range([B2], [B2].End(xlDown))
   Set sRng = Rng.Find(Cls.Value, , xlFormulas, xlWhole)
   If sRng Is Nothing Then
      With Sh3.[B65432].End(xlUp).Offset(1)
         .Resize(, 5).Value = Cls.Resize(, 5).Value
         If .Offset(-1, -1).Value = "TT" Then
            .Offset(, -1) = 1
         Else
            .Offset(, -1).Value = .Offset(-1, -1).Value + 1
         End If
      End With
   End If
 Next Cls
End Sub

Thân!