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

[Ba Tê]

Anh quên mất tên em rồi, ẹc. Em cũng thuộc dạng bác sĩ miệt vườn nè. Chuyên mỗ những ca cực kỳ cục cựa. Đa số bệnh nhân đều ngủm củ tỏi.

Đúng là ca khó muốn "ngủm", thoi thóp thở chút coi, oải thiệt đó.
Giải thích mơ hồ, "vái" trúng.

Public Function Hic(Rng As Range) As String
Dim Dic As Object, Tem, I As Long, Num As Long, KQ, J As Long
Set Dic = CreateObject("Scripting.Dictionary")
    Tem = Split(Rng, "/")
    J = -1
    ReDim KQ(UBound(Tem))
    With CreateObject("VBScript.RegExp")
        .Global = True
        .Pattern = "[A-Z]"
        For I = 0 To UBound(Tem)
            Num = .Replace(Tem(I), "")
            If Not Dic.Exists(Num) Then
                Dic.Add Num, ""
                J = J + 1
                ReDim Preserve KQ(J)
                KQ(J) = Tem(I)
            End If
        Next I
    End With
    Hic = Join(KQ, "/")
Set Dic = Nothing
End Function

 

[nguyenhongphong]

Cảm ơn tất cả các thầy đã hỗ trợ nhiệt tình ạ

Dạ trước tiên em xin cảm ơn tất cả các Thầy đã hỗ trợ.

Dựa theo y/c của bài toán thì em áp dụng công thức của các Thầy vào bài toán thì kết quả là của Thầy phuocam và Thầy Ba Tê cho kết quả chính xác ạ.
Em nghĩ, do em chia sẻ yêu cầu của bài toán có 1 vài điểm chưa rõ ràng nên các Thầy khác chưa giải quyết hết y/c thôi. Chứ em phục các Thầy sát đất.

Một lần nữa, xin cảm ơn tất cả các Thầy ạ.

 

[danhlecti]

Em chào các thầy.
Mong các thầy giúp dùm.Em muốn lọc như sau.Em muốn bắt đầu từ cột E2 (Designation) tới cột E2084.Dữ liệu chỉ được xuất hiện 1 lần không trùng lập.Nếu xuất hiện trùng lập thì xóa luôn cả dòng đi chung tương ứng ví dụ E3 bị trùng thì xóa luôn A3,B3,C3,E3,F3,G3.
Mong các thầy giúp đỡ.

 

[ndu96081631]

Em chào các thầy.
Mong các thầy giúp dùm.Em muốn lọc như sau.Em muốn bắt đầu từ cột E2 (Designation) tới cột E2084.Dữ liệu chỉ được xuất hiện 1 lần không trùng lập.Nếu xuất hiện trùng lập thì xóa luôn cả dòng đi chung tương ứng ví dụ E3 bị trùng thì xóa luôn A3,B3,C3,E3,F3,G3.
Mong các thầy giúp đỡ.

Dùng công cụ Remove Duplicates (nằm trong tab Data) nhé bạn

 

[danhlecti]

Dùng công cụ Remove Duplicates (nằm trong tab Data) nhé bạn

cảm ơn thầy nhiều.

 

[z11bvt]

https://www.fshare.vn/file/WCQB4EEJ75UL
xin các thầy và các anh chỉ giáo cho ạ, em có file này nhưng không biết làm sao loc đc các dữ liệu trùng nhau và ghép thành 1.
Ví dụ có 2 từ Gạo tẻ thì tìm và chỉ cho ra 1 từ, sử dụng bằng hàm hoặc cái gì nhưng miễn sao khi điền từ đó thì nó tự động tìm chứ không phải sử dụng lệnh nhé. Sử dụng lệnh thì chỉ được mỗi lúc mình sử dụng thôi. cần gấp lắm mong mọi người giúp đỡ với ạ

 

[z11bvt]

nnếu dùng consolidate thì dễ nhưng chỉ đc lúc ấy, chứ nó không tự chạy khi ta thay đổi dữ liệu

 

[kaka2005]

Cảm ơn cả nhà rất nhiều !

Nhờ cả nhà xem hộ mình cái lỗi này với ???, mình đang cần gấp lắm ...

 

[giaiphap]

Cảm ơn cả nhà rất nhiều !

Nhờ cả nhà xem hộ mình cái lỗi này với ???, mình đang cần gấp lắm ...


View attachment 156040

Code của bạn cơ bản sai thiếu dòng For và lệnh If. Bạn muốn làm việc gì thì nêu ở đây mọi người giúp cho.

 

[kaka2005]

cảm ơn các bạn !
Minh gửi các bạn file các cạn giúp mình nhé !

Mình muốn lọc và tính tổng tất cả dữ liệu các cột A, B, C, D, E vào lại với nhau , đoạn code kia có mày chạy vẫn đươc nhưng máy mình thì lại chay ko dc ! các bạn code lại giúp mình với !

 

[Ba Tê]

cảm ơn các bạn !
Minh gửi các bạn file các cạn giúp mình nhé !

Mình muốn lọc và tính tổng tất cả dữ liệu các cột A, B, C, D, E vào lại với nhau , đoạn code kia có mày chạy vẫn đươc nhưng máy mình thì lại chay ko dc ! các bạn code lại giúp mình với !

Bạn xem file đính kèm,
Rút kinh nghiệm, dòng màu đỏ dưới đây sẽ làm cho bài của bạn không ai trả lời.

Nhờ cả nhà xem hộ mình cái lỗi này với ???, mình đang cần gấp lắm ...

 

[concogia]

cảm ơn các bạn !
Minh gửi các bạn file các cạn giúp mình nhé !

Mình muốn lọc và tính tổng tất cả dữ liệu các cột A, B, C, D, E vào lại với nhau , đoạn code kia có mày chạy vẫn đươc nhưng máy mình thì lại chay ko dc ! các bạn code lại giúp mình với !

Chạy thử code này:

Sub UmBaLa_XiMaChao()
    Dim Dic As Object, I, K, kK, Tam, Kq, Vung
    Set Dic = CreateObject("Scripting.Dictionary")
    Vung = Range([A2], [A50000].End(xlUp)).Resize(, 5)
    ReDim Kq(1 To UBound(Vung), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung)
            If Vung(I, 2) <> 0 Then
                Tam = Vung(I, 1) & "@" & Vung(I, 2) & "@" & Vung(I, 3)
                    If Not Dic.exists(Tam) Then
                        K = K + 1
                        Dic.Add Tam, K
                        Kq(K, 1) = Vung(I, 1): Kq(K, 2) = Vung(I, 2): Kq(K, 3) = Vung(I, 3):
                        Kq(K, 4) = Kq(K, 4) + Vung(I, 4): Kq(K, 5) = Kq(K, 5) + Vung(I, 5)
                    Else
                        kK = Dic.Item(Tam)
                        Kq(kK, 4) = Kq(kK, 4) + Vung(I, 4): Kq(kK, 5) = Kq(kK, 5) + Vung(I, 5)
                    End If
              End If
        Next I
   [G2:K100].ClearContents
   [G2].Resize(K, 5) = Kq
End Sub

Code trong bài mà chạy được.....mới lạ. Híc
Thân

 

[Ba Tê]

Chạy thử code này:

Sub UmBaLa_XiMaChao()
    Dim Dic As Object, I, K, kK, Tam, Kq, Vung
    Set Dic = CreateObject("Scripting.Dictionary")
    Vung = Range([A2], [A50000].End(xlUp)).Resize(, 5)
    ReDim Kq(1 To UBound(Vung), 1 To UBound(Vung, 2))
        For I = 1 To UBound(Vung)
            If Vung(I, 2) <> 0 Then
                Tam = Vung(I, 1) & "@" & Vung(I, 2) & "@" & Vung(I, 3)
                    If Not Dic.exists(Tam) Then
                        K = K + 1
                        Dic.Add Tam, K
                        Kq(K, 1) = Vung(I, 1): Kq(K, 2) = Vung(I, 2): Kq(K, 3) = Vung(I, 3):
                        Kq(K, 4) = Kq(K, 4) + Vung(I, 4): Kq(K, 5) = Kq(K, 5) + Vung(I, 5)
                    Else
                        kK = Dic.Item(Tam)
                        Kq(kK, 4) = Kq(kK, 4) + Vung(I, 4): Kq(kK, 5) = Kq(kK, 5) + Vung(I, 5)
                    End If
              End If
        Next I
   [G2:K100].ClearContents
   [G2].Resize(K, 5) = Kq
End Sub

Code trong bài mà chạy được.....mới lạ. Híc
Thân

Thầy nào trò nấy, Anh nào em nấy............
Y chang!
Ẹc........

 

[kaka2005]

Mình đã giải quyết xong rồi . Cảm ơn các bạn nhé !

Còn 1 vần đề nữa

Mình có 1 file dữ liêu ( Trong file đính kèm)

Mình muốn khi mình nhập " x" vào cột kết quả -> thì cả dòng đó sẽ đổi cả màu chữ và màu nền .

Bác nào biết chỉ giúp mình với ..

 

[giaiphap]

Mình đã giải quyết xong rồi . Cảm ơn các bạn nhé !

Còn 1 vần đề nữa

Mình có 1 file dữ liêu ( Trong file đính kèm)

Mình muốn khi mình nhập " x" vào cột kết quả -> thì cả dòng đó sẽ đổi cả màu chữ và màu nền .

Bác nào biết chỉ giúp mình với ..

Bạn xem đúng ý chưa.

 

[kaka2005]

Bạn xem đúng ý chưa.

Đúng rùi !

Cảm ơn bạn nhiều nhé !

 

[toanqni]

Gửi các bác!
Tình hình em muốn lọc những thằng có mã trùng nhau ra 1 vùng riêng (các mã trùng nhau và có đầy đủ các trường đi kèm mã trùng đấy)
Em có file sheet All là dữ liệu đầy đủ.
Sheet Bo_Ma_Trung là e thực hiện remove duplicates
Sheet2: Thực hiện Privot table
Tuy nhiên vẫn không đúng theo mục đích được
Nhờ các bác chỉ giùm các lọc riêng những thằng có 1 mã, những thằng lặp nhiều hơn 1 mã (kết quả vẫn đầy đủ các trường có sẵn) hiện tại ở Sheet All
Cám ơn các bác nhiều!

 

[toanqni]

Đã loại bỏ trùng thì sao các trường vẫn còn đầy đủ. Còn chăng chỉ là dòng dữ liệu ứng với mã đầu tiên chứ. Mã của bạn ở đây có phải là Cột Ma không?

Dòng đầu tiên thì có thể lấy lại được đầy đủ 8 cột cho bạn...còn từ dòng trùng thứ 2 trở đi thì đã loại bỏ rồi...làm sao lấy lên cho bạn được...

Nói túm lại: bạn phải nói rõ ràng nhé....

Có nghĩa e muốn lọc những dòng có mã trùng ở Cột Ma ra riêng

 

[toanqni]

Vậy bạn tìm hiểu Advanced Filter sẽ lọc ra cho bạn...Rất đơn giản, xem link sau:http://www.giaiphapexcel.com/forum/showthread.php?8-Tìm-hiểu-về-Advanced-Filter

Thực ra mình đã thử của filter nhưng không được như ý, bác hộ mình cái file kèm theo để mình tham khảo xem thế nào được không? Thanks...

 

[phu_romeo]

Ai giúp mình xóa những dòng trùng mã khách hàng ra dùm