Lọc dữ liệu trùng trong Excel

[Emyeuexcel]

Cũng chẳng thấy file.
Bạn xem cách làm trong file này rồi vận dụng vào file của bạn vậy.

Chào anh Ba Tê,

Mình không dùng Name được ko anh?

 

[Ba Tê]

Chào anh Ba Tê,

Mình không dùng Name được ko anh?

Không dùng Name thì dùng VBA, bấm nút 1 phát cho xong, chứ công thức tôi bị "nhức đầu" lắm, mò không ra.

 

[trinhduykhanh02091991]

- Quét chọn vùng dử liệu gốc
- vào menu Data\Filter\ Advanced Filter
- Trong cửa sổ Advanced Filter, chọn mục "Copy to another location"
- Nhấp chuột vào khung "Copy to" rồi dùng chuột chọn 1 cell trên bảng tính, nơi đặt dử liệu sau khi lọc
- Đánh dấu Unique Records Only ---> OK

cao thủ excel bái phục!

 

[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é!