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

  • Thread starter Thread starter Moveem
  • Ngày gửi Ngày gửi
Liên hệ QC

Người dùng đang xem chủ đề này

Tôi tuân thủ nội quy khi đăng bài

Moveem

Thành viên mới
Tham gia
22/5/14
Bài viết
15
Được thích
2
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
 

File đính kèm

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.
 
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 !
 
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.
 
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ứ:
1680595358674.png
 
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 ạ
 
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
 
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:
Rich (BB code):
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
 
Code cho bạn, nếu mod chưa xóa thì dùng:
Rich (BB code):
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 !
 
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 đính kèm

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é.
 

File đính kèm

Web KT

Bài viết mới nhất

Back
Top Bottom