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

[luongkiengxuong]

chào mọi người, nhờ mọi người viết giúp mình đoạn code lọc các giá trị trùng của cột code với điều kiện có sự khác biệt về giá trị của các cột từ cột số 9 trở đi, mỗi dòng là số liệu của một người tương ứng với 1 tháng mình muốn lọc ra ds nhưng người có code trùng có số liệu thay đổi ở bất kỳ cột nào bắt đầu từ cột số 9 cảm ơn mọi người. vì file lớn ko cho úp mình share trên ggle drive mong mọi người thông cảm
https://drive.google.com/drive/folders/1pwMfwm0gRJdhjRwtMauBkkPk8FK6465L?usp=sharing

 

[Ba Tê]

chào mọi người, nhờ mọi người viết giúp mình đoạn code lọc các giá trị trùng của cột code với điều kiện có sự khác biệt về giá trị của các cột từ cột số 9 trở đi, mỗi dòng là số liệu của một người tương ứng với 1 tháng mình muốn lọc ra ds nhưng người có code trùng có số liệu thay đổi ở bất kỳ cột nào bắt đầu từ cột số 9 cảm ơn mọi người. vì file lớn ko cho úp mình share trên ggle drive mong mọi người thông cảm
https://drive.google.com/drive/folders/1pwMfwm0gRJdhjRwtMauBkkPk8FK6465L?usp=sharing

Dữ liệu "oải" thì lấy ít lại chừng vài trăm dòng, vài chục cột, nhưng giải thích là có thể 100.000 dòng, 100 cột ... cho nhẹ file.

Public Sub GPE_Loc()
Dim sArr(), dArr(), I As Long, J As Long, K As Long, R As Long, Tem As String
sArr = Sheets("Thang1").Range("A6", Sheets("Thang1").Range("B6").End(xlDown)).Resize(, 100).Value2
R = UBound(sArr): ReDim dArr(1 To R, 1 To 100)
With CreateObject("Scripting.Dictionary")
    For I = 1 To R
        Tem = sArr(I, 2)
        For J = 9 To 100
            Tem = Tem & "#" & sArr(I, J)
        Next J
        If Not .Exists(Tem) Then
            K = K + 1: .Item(Tem) = K
            For J = 1 To 100
                dArr(K, J) = sArr(I, J)
            Next J
        End If
    Next I
End With
Sheets("Filter").Range("A2").Resize(K, 100) = dArr
End Sub

 

[luongkiengxuong]

Mình cảm ơn bạn Ba Tê đã giúp đỡ mình test thử code của bạn viết rồi nhưng kết quả chưa đúng ý mình có thể do mình viết yêu cầu chưa rõ , ý của mình là chỉ so sánh sự khác biệt cac cột của nhưng mã code trùng thôi còn các mã code khác nhau thi ko cần xử lý vi dụ 20030101 có 13 dòng trung nhau thì so sánh 13 dòng của cột số 9 lần luợt đến cột 90 nếu có thay đỏi iá trị thì copy ra em cảm ơn bạn Ba Tê!

 

[luongkiengxuong]

Mình gởi file xóa bớt dòng vì lớn qua ko up được , mong bạn BaTeegiusp đỡ

 

[NguyenNgocThuHien]

Mình gởi file xóa bớt dòng vì lớn qua ko up được , mong bạn BaTeegiusp đỡ

Cái này chỉ đúng khi một mã số xuất hiện không quá 3 lần. Sài tạm công thức, khi nào rảnh viết macro sau.

 

[luongkiengxuong]

Cảm ơn bạn ngọc NguyenNgocThuHien rất nhiều, mình xử lý tạm thủ công theo cách của bạn, vì số liệu thực của mình mỗi code trùng xuất hiện tới 13 lần và số dòng lên tới 23000, cảm oơn bạn nhiều . Noel sắp tới rồi sẵn mình chúc bạn một mùa giáng sinh an lành và gặp nhiều may mắn!

 

[Ba Tê]

Mình cảm ơn bạn Ba Tê đã giúp đỡ mình test thử code của bạn viết rồi nhưng kết quả chưa đúng ý mình có thể do mình viết yêu cầu chưa rõ , ý của mình là chỉ so sánh sự khác biệt cac cột của nhưng mã code trùng thôi còn các mã code khác nhau thi ko cần xử lý vi dụ 20030101 có 13 dòng trung nhau thì so sánh 13 dòng của cột số 9 lần luợt đến cột 90 nếu có thay đỏi iá trị thì copy ra em cảm ơn bạn Ba Tê!

Có thể là yêu cầu không rõ, cũng có thể người đọc không hiểu rõ???
Bạn xem lại kết quả này xem sao.

 

[luongkiengxuong]

Kết quả đúng rồi bạn Ba Tê , cảm ơn bạn BaTê nhiều, chúc bạn giáng sinh vui vẻ và năm mới nhièu may mắn!

 

[NguyenNgocThuHien]

Cảm ơn bạn ngọc NguyenNgocThuHien rất nhiều, mình xử lý tạm thủ công theo cách của bạn, vì số liệu thực của mình mỗi code trùng xuất hiện tới 13 lần và số dòng lên tới 23000, cảm oơn bạn nhiều . Noel sắp tới rồi sẵn mình chúc bạn một mùa giáng sinh an lành và gặp nhiều may mắn!

 

[luongkiengxuong]

Cảm ơn bạn NguyenNgocThuHien rất nhiều! cuối tuần vui vẻ nhé!