Lọc dữ liệu trùng (3 người xem)

[jinbao]

Nhờ các bác chỉ giáo

 

[hoangdanh282vn]

Nhờ các bác chỉ giáo

Bạn xem file đình kèm nha.
Nếu muốn tìm hiểu nhiều hơn về lọc duy nhất thì bạn xem thêm ở đây
http://www.giaiphapexcel.com/forum/showpost.php?p=79330&postcount=18

 

[haituan]

RE:

Bạn tham khảo nhé!
http://www.4shared.com/file/121916218/c8cf223/Locso.html
Bonne chance!







----------------------------------------------------------
Học làm chi cho đầu to, mắt trố??....

 

[giaosy]

Nếu theo yêu cầu của bác jinbao thì chỉ cần dùng chức năng remove duplicate có sẵn trong excel 2007 là xong ngay, rất đơn giản. Bác đang dùng phiên bản nào.

 

[jinbao]

Mình đang dùng Office 2003

 

[Hai Lúa Miền Tây]

Mình đang dùng Office 2003

Bạn có thể vào Data\Filter\advanced Filter, click chọn vào Unit records only là OK.
Nếu muốn copy dữ liệu lọc duy nhất sang 1 vùng mới thì bạn click vào Copy to another location, click vào copy to, chọn cell bất kỳ bạn muốn dán dữ liệu mới sau khi được lọc, sau cùng bấm ok là xong.
Thân

 

[tuongdpy]

Bạn có thể vào Data\Filter\advanced Filter, click chọn vào Unit records only là OK.
Nếu muốn copy dữ liệu lọc duy nhất sang 1 vùng mới thì bạn click vào Copy to another location, click vào copy to, chọn cell bất kỳ bạn muốn dán dữ liệu mới sau khi được lọc, sau cùng bấm ok là xong.
Thân

Hi bạn, mình đã làm theo hướng dẫn của bạn, nhưng kết quả cho giống như dữ liệu ban đầu,như vậy ko thỏa mãn điều kiện,"nếu có nhiều mã số trùng nhau thì chỉ giữ lại 1 mã số và tên bất kỳ"
Bạn còn cách nào hay hơn ko ?
Best regards

 

[Hai Lúa Miền Tây]

Hi bạn, mình đã làm theo hướng dẫn của bạn, nhưng kết quả cho giống như dữ liệu ban đầu,như vậy ko thỏa mãn điều kiện,"nếu có nhiều mã số trùng nhau thì chỉ giữ lại 1 mã số và tên bất kỳ"
Bạn còn cách nào hay hơn ko ?
Best regards

Do cột B dữ tên không giống nhau nên nó sẽ lọc ra không chính xác mặc dù cột A có trùng.
Nếu yêu cầu của bạn lọc cột A duy nhất thì chỉ lọc cột A ra thôi, đừng tô khối luôn cột B. Sau đó lấy kết quả của cột A dùng điều kiện dò tìm cột B.

Hoặc bạn dùng code sau:

Sub Loc()
dong = Sheet1.Range("A65500").End(xlUp).Row
       Sheet2.[a3:c200].ClearContents
i = 3
For J = 2 To dong
ch = Sheet1.Cells(J, 1)
With Sheet2.Range("a3:c200")
    Set c = .Find(ch, LookIn:=xlValues)
    If c Is Nothing Then
    Sheet2.Cells(i, 1) = i - 2
    Sheet2.Cells(i, 2) = Sheet1.Cells(J, 1)
    Sheet2.Cells(i, 3) = Sheet1.Cells(J, 2)
i = i + 1
End If
End With
Next
End Sub

Bạn tham khảo thêm file nhé.
Thân