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

[dongbhhg]

Nhờ anh chị em GPEX giúp em với ạ. E có file như đính kèm.
Huyện của em là Huyện A
Bây giờ em muốn lọc danh sách tất cả những người của huyện em trùng họ tên, ngày tháng năm sinh, giới tính ra 1 sheet khác.
Cách làm hiện tại của em là bôi mầu tất cả những người của huyện em, sau đó dò từng cặp rồi lọc theo mầu mà lâu quá.
Các anh chị có cách nào giúp em với ạ, em chân thành cảm ơn!

 

[phulien1902]

Nhờ anh chị em GPEX giúp em với ạ. E có file như đính kèm.
Huyện của em là Huyện A
Bây giờ em muốn lọc danh sách tất cả những người của huyện em trùng họ tên, ngày tháng năm sinh, giới tính ra 1 sheet khác.
Cách làm hiện tại của em là bôi mầu tất cả những người của huyện em, sau đó dò từng cặp rồi lọc theo mầu mà lâu quá.
Các anh chị có cách nào giúp em với ạ, em chân thành cảm ơn!

Bạn thử:

    Application.ScreenUpdating = False
    Dim i As Long, a As Variant
    a = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value
    Range("K1:S10000").ClearContents
    For i = LBound(a, 1) To UBound(a, 1)
        On Error Resume Next
        If a(i, 2) = a(i + 1, 2) And a(i, 3) = a(i + 1, 3) And a(i, 4) = a(i + 1, 4) Then
            Range("K1").Resize(, 9).Value = Range("A1").Resize(, 9).Value
            Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).Resize(, 9) = Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6), a(i, 7), a(i, 8), a(i, 8))
         End If
    Next i
    Application.ScreenUpdating = True

 

[dongbhhg]

Bạn thử:

    Application.ScreenUpdating = False
    Dim i As Long, a As Variant
    a = Range("A2", Range("A" & Rows.Count).End(xlUp)).Resize(, 9).Value
    Range("K1:S10000").ClearContents
    For i = LBound(a, 1) To UBound(a, 1)
        On Error Resume Next
        If a(i, 2) = a(i + 1, 2) And a(i, 3) = a(i + 1, 3) And a(i, 4) = a(i + 1, 4) Then
            Range("K1").Resize(, 9).Value = Range("A1").Resize(, 9).Value
            Cells(Rows.Count, "K").End(xlUp).Offset(1, 0).Resize(, 9) = Array(a(i, 1), a(i, 2), a(i, 3), a(i, 4), a(i, 5), a(i, 6), a(i, 7), a(i, 8), a(i, 8))
         End If
    Next i
    Application.ScreenUpdating = True

Mình thử nhưng nó không chạy j cả bạn à

 

[Hoàng Tuấn 868]

Bạn tham khảo.

 

[hungpecc1]

Nhờ anh chị em GPEX giúp em với ạ. E có file như đính kèm.
Huyện của em là Huyện A
Bây giờ em muốn lọc danh sách tất cả những người của huyện em trùng họ tên, ngày tháng năm sinh, giới tính ra 1 sheet khác.
Cách làm hiện tại của em là bôi mầu tất cả những người của huyện em, sau đó dò từng cặp rồi lọc theo mầu mà lâu quá.
Các anh chị có cách nào giúp em với ạ, em chân thành cảm ơn!

Dùng Advanced Filter hoặc Data -> Remove duplicate là ok

 

[dongbhhg]

Bạn tham khảo.

Cám ơn bạn đã giúp ạ (file này đã lọc đc những người trùng trong huyện)
Nhưng do mô tả của mình còn chưa rõ nên kết quả chưa theo mong muốn.
Mình xin mô tả lại ạ:
lọc những người của huyện mình trùng họ tên, ngày sinh, giới tính với người trong huyện hoặc khác huyện
Ví dụ như dòng đầu tiên hoặc dòng 7, 8

Bài đã được tự động gộp: 27/8/20

Copy toàn bộ dữ liệu gốc ra 1 sheet khác, dùng công cụ Data -> Remove duplicate là ok

Cách của bác là xóa những người trùng, em lại muốn lấy cả, như ví dụ trong file thì sẽ lấy dữ liệu là: dòng 1,2 dòng 7,8, dòng 13,14 ạ

 

[Hoàng Tuấn 868]

Cám ơn bạn đã giúp ạ (file này đã lọc đc những người trùng trong huyện)
Nhưng do mô tả của mình còn chưa rõ nên kết quả chưa theo mong muốn.
Mình xin mô tả lại ạ:
lọc những người của huyện mình trùng họ tên, ngày sinh, giới tính với người trong huyện hoặc khác huyện
Ví dụ như dòng đầu tiên hoặc dòng 7, 8

Bạn xem đúng chưa nhé.

 

[hungpecc1]

Cám ơn bạn đã giúp ạ (file này đã lọc đc những người trùng trong huyện)
Nhưng do mô tả của mình còn chưa rõ nên kết quả chưa theo mong muốn.
Mình xin mô tả lại ạ:
lọc những người của huyện mình trùng họ tên, ngày sinh, giới tính với người trong huyện hoặc khác huyện
Ví dụ như dòng đầu tiên hoặc dòng 7, 8

Bài đã được tự động gộp: 27/8/20

Cách của bác là xóa những người trùng, em lại muốn lấy cả, như ví dụ trong file thì sẽ lấy dữ liệu là: dòng 1,2 dòng 7,8, dòng 13,14 ạ

Dùng advanced filter, tham khảo file đính kèm với điều kiện J1:J2

 

[be_09]

Nhờ anh chị em GPEX giúp em với ạ. E có file như đính kèm.
Huyện của em là Huyện A
Bây giờ em muốn lọc danh sách tất cả những người của huyện em trùng họ tên, ngày tháng năm sinh, giới tính ra 1 sheet khác.
Cách làm hiện tại của em là bôi mầu tất cả những người của huyện em, sau đó dò từng cặp rồi lọc theo mầu mà lâu quá.
Các anh chị có cách nào giúp em với ạ, em chân thành cảm ơn!

Bạn dùng thử File:
Gõ tên huyện vào B2 của sheet Loc rồi nhấn nút, sang sheet Trung xem kết quả.

 

[phulien1902]

Mình thử nhưng nó không chạy j cả bạn à

Bạn xem File