Nhờ các bạn chỉ giúp Lọc và Trích xuất dữ liệu trùng (1 người xem)

[Moveem]

Xin chào anh, chị và các bạn GPE
Mình có 1 file dữ liệu có số dòng dữ liệu lớn, trong đó có 1 số dữ liệu bị trùng, giờ mình muốn lọc tất cả những những khách có số ĐT giống nhau (tên có thể trùng hoặc khác nhau) sang 1 sheet khác để mình rà soát, xử lí lại phần dữ liệu trùng này. Mong được các bạn giúp đỡ. Xin cảm ơn các bạn !

P/s, Ý mình là bên Sheet Dữ liệu có bao nhiêu dòng có số ĐT trùng nhau đều được trích xuất sang hết Sheet Lọc lại chứ ko phải là tổng hợp lại

 

[Ronaldinho7]

Xin chào anh, chị và các bạn GPE
Mình có 1 file dữ liệu có số dòng dữ liệu lớn, trong đó có 1 số dữ liệu bị trùng, giờ mình muốn lọc tất cả những những khách có số ĐT giống nhau (tên có thể trùng hoặc khác nhau) sang 1 sheet khác để mình rà soát, xử lí lại phần dữ liệu trùng này. Mong được các bạn giúp đỡ. Xin cảm ơn các bạn !

P/s, Ý mình là bên Sheet Dữ liệu có bao nhiêu dòng có số ĐT trùng nhau đều được trích xuất sang hết Sheet Lọc lại chứ ko phải là tổng hợp lại

Bạn dùng hàm Countif() đếm số lần xuất hiện của sđt, Filter >1 thì copy sang sheet tiếp theo và xử lý tiếp công việc của bạn thôi.

 

[Moveem]

Cảm ơn bạn Ronaldinho7 ! Trên file mình đưa Ví dụ như vài chục dòng dữ liệu như vậy còn thực tế số lượng dòng dữ liệu và SĐT rất nhiều (hàng chục k) nên mình muốn nhờ các bạn GPE 1 cách làm gọn, bớt thủ công hơn. Rất mong nhận được sự giúp đỡ của các anh chị và các bạn !

 

[Ronaldinho7]

Cảm ơn bạn Ronaldinho7 ! Trên file mình đưa Ví dụ như vài chục dòng dữ liệu như vậy còn thực tế số lượng dòng dữ liệu và SĐT rất nhiều (hàng chục k) nên mình muốn nhờ các bạn GPE 1 cách làm gọn, bớt thủ công hơn. Rất mong nhận được sự giúp đỡ của các anh chị và các bạn !

Nếu bạn muốn cách khác thì có thể sử dụng pivot/code VBA với Dictionary nha.

 

[Maika8008]

Cảm ơn bạn Ronaldinho7 ! Trên file mình đưa Ví dụ như vài chục dòng dữ liệu như vậy còn thực tế số lượng dòng dữ liệu và SĐT rất nhiều (hàng chục k) nên mình muốn nhờ các bạn GPE 1 cách làm gọn, bớt thủ công hơn. Rất mong nhận được sự giúp đỡ của các anh chị và các bạn !

Bạn nghĩ Hàm và công thức Excel có thể làm được điều bạn yêu cầu sao mà đăng vào box này?
Ít nhất bạn cũng nghĩ là nó thuộc lĩnh vực của 2 box này chứ:

 

[Phy Phy 87]

Cho e ké với ạ. E muốn tìm dữ liệu trùng nhau giữa 2 cột. Khi e dùng Duplicate thì dữ liệu trùng trong 1 cột nó cũng hiển thị luôn. Có cách nào khác ko ạ

 

[Moveem]

Sorry các bạn ! Nhờ các Mod xóa hộ bài này để mình đăng lại bài vào Box phù hợp. Xin cảm ơn !

Bạn dùng hàm Countif() đếm số lần xuất hiện của sđt, Filter >1 thì copy sang sheet tiếp theo và xử lý tiếp công việc của bạn thôi.

Bạn nghĩ Hàm và công thức Excel có thể làm được điều bạn yêu cầu sao mà đăng vào box này?
Ít nhất bạn cũng nghĩ là nó thuộc lĩnh vực của 2 box này chứ:
View attachment 288451

 

[Maika8008]

Sorry các bạn ! Nhờ các Mod xóa hộ bài này để mình đăng lại bài vào Box phù hợp. Xin cảm ơn !

Code cho bạn, nếu mod chưa xóa thì dùng:

Sub KHTrungSDT()
    Dim dic As Object, aData, aRes, aKey
    Dim i&, j&, k&, d&
    
    Set dic = CreateObject("Scripting.Dictionary")
    aData = Sheet1.Range("A5:B" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row).Value
    ReDim aRes(1 To UBound(aData), 1 To 2)
    
    For i = 1 To UBound(aData)
        If Not dic.Exists(aData(i, 2)) Then
            dic.Add aData(i, 2), aData(i, 1)
        Else
            k = k + 1
            aRes(k, 1) = aData(i, 1)
            aRes(k, 2) = aData(i, 2)
        End If
    Next
    d = k
    aKey = dic.keys
    For i = 0 To UBound(aKey)
        For j = 1 To k
            If aKey(i) = aRes(j, 2) Then
                d = d + 1
                aRes(d, 1) = dic.Item(aKey(i))
                aRes(d, 2) = aKey(i)
                Exit For
            End If
        Next
    Next
    Sheet2.Range("A4").Resize(d, 2) = aRes
End Sub

 

[Moveem]

Code cho bạn, nếu mod chưa xóa thì dùng:

Sub KHTrungSDT()
    Dim dic As Object, aData, aRes, aKey
    Dim i&, j&, k&, d&
   
    Set dic = CreateObject("Scripting.Dictionary")
    aData = Sheet1.Range("A5:B" & Sheet1.Range("A" & Rows.Count).End(xlUp).Row).Value
    ReDim aRes(1 To UBound(aData), 1 To 2)
   
    For i = 1 To UBound(aData)
        If Not dic.Exists(aData(i, 2)) Then
            dic.Add aData(i, 2), aData(i, 1)
        Else
            k = k + 1
            aRes(k, 1) = aData(i, 1)
            aRes(k, 2) = aData(i, 2)
        End If
    Next
    d = k
    aKey = dic.keys
    For i = 0 To UBound(aKey)
        For j = 1 To k
            If aKey(i) = aRes(j, 2) Then
                d = d + 1
                aRes(d, 1) = dic.Item(aKey(i))
                aRes(d, 2) = aKey(i)
                Exit For
            End If
        Next
    Next
    Sheet2.Range("A4").Resize(d, 2) = aRes
End Sub

Cảm ơn bạn Maika8008 rất nhiều ! Để mình thử rồi có gì sẽ báo cáo lai bạn nhé. Thân !

 

[Moveem]

Chào Maika8008 ! Cảm ơn bạn rất nhiều đã giúp đỡ mình. Mình đã test thử và code chạy ok rồi bạn à. Mong bạn vui lòng chỉnh thêm giúp mình 1 chút với nhé.
- Hiện tại code khi trích xuất dữ liệu sang Sheet2 chỉ lấy dữ liệu của 2 trường Họ tên và SĐT. Nhờ bạn chỉnh giúp để khi trích xuất sang sẽ lấy toàn bộ dòng dữ liệu có SĐT bị trùng đó thay vì chỉ lấy Họ tên và SĐT
- Về mặt trình bầy bảng dữ liệu mình có thay đổi như file đính kèm (thêm 2 cột và thay đổi vị trí cột), nhờ bạn chỉnh lại giúp mình với nhé.
Mong bạn giúp đỡ. Cảm ơn bạn !

 

[Maika8008]

Chào Maika8008 ! Cảm ơn bạn rất nhiều đã giúp đỡ mình. Mình đã test thử và code chạy ok rồi bạn à. Mong bạn vui lòng chỉnh thêm giúp mình 1 chút với nhé.
- Hiện tại code khi trích xuất dữ liệu sang Sheet2 chỉ lấy dữ liệu của 2 trường Họ tên và SĐT. Nhờ bạn chỉnh giúp để khi trích xuất sang sẽ lấy toàn bộ dòng dữ liệu có SĐT bị trùng đó thay vì chỉ lấy Họ tên và SĐT
- Về mặt trình bầy bảng dữ liệu mình có thay đổi như file đính kèm (thêm 2 cột và thay đổi vị trí cột), nhờ bạn chỉnh lại giúp mình với nhé.
Mong bạn giúp đỡ. Cảm ơn bạn !

File mới của bạn. Sau này có nhờ ai thì nhớ đưa cấu trúc thật của file để nhờ nhé.

 

[Moveem]

File mới của bạn. Sau này có nhờ ai thì nhớ đưa cấu trúc thật của file để nhờ nhé.

Thực sự cảm ơn bạn Maika8008 đã nhiệt tình giúp đỡ mình rất rất nhiều. File đã hoạt động tốt rồi. Mình sẽ ghi nhớ những góp ý của bạn. Thân !