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

Liên hệ QC
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.
PHP:
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
 

File đính kèm

  • GPE LOC TRUNG SO THEO HANG.rar
    18 KB · Đọc: 68
Lần chỉnh sửa cuối:
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 ạ.
 
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 đỡ.
 

File đính kèm

  • thiết bị.xlsx
    159.3 KB · Đọc: 12
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
 
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 ạ
 
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
 
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 ...


Loc 2.jpg
 

File đính kèm

  • Tong hop _Q.xls
    263.5 KB · Đọc: 8
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 !
 

File đính kèm

  • Tong hop _Q2.xls
    265 KB · Đọc: 8
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 ...
 

File đính kèm

  • Tong hop _Q2.rar
    45.1 KB · Đọc: 36
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:
Mã:
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
 
Chạy thử code này:
Mã:
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........
 
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 ..
 

File đính kèm

  • BC thieu .xlsx
    99.8 KB · Đọc: 10
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.
 

File đính kèm

  • BC thieu .xlsx
    88.3 KB · Đọc: 31
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!
 

File đính kèm

  • BD_Loc_Trung_Ma.xlsx
    350 KB · Đọc: 21
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!
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

Đã 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é....
 
Đã 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
 
Web KT
Back
Top Bottom