Lọc số trùng nhau

[Tuan_hcth]

Chào các anh chị, em nhờ các anh chị giúp hộ em cái này cái ạ: Em có một file excel, tại cột A của file đó em có khoảng 100.000 số điện thoại nhưng trong 100.000 số này lại có rất nhiều số trùng nhau và trùng nhau nhiều lần, em muốn hỏi các bác xem có cách nào lọc các số trùng nhau. Trong các số trùng nhau đó thì xóa nó đi chỉ để lại một số thôi. Ví dụ: số 84915127123 thì có 5 cái, em muốn xóa 4 cái. Có cách nào làm nhanh không ạ. Em làm thủ công mà 100.000 số thì không biết khi nào cho xong.

 

[tigertiger]

bạn dùng Advanced filter đi

menu: Data \ Filter \ Advanced filter...
Chọn: Unique record only, và chọn copy to...

 

[Hai Lúa Miền Tây]

Chào các anh chị, em nhờ các anh chị giúp hộ em cái này cái ạ: Em có một file excel, tại cột A của file đó em có khoảng 100.000 số điện thoại nhưng trong 100.000 số này lại có rất nhiều số trùng nhau và trùng nhau nhiều lần, em muốn hỏi các bác xem có cách nào lọc các số trùng nhau. Trong các số trùng nhau đó thì xóa nó đi chỉ để lại một số thôi. Ví dụ: số 84915127123 thì có 5 cái, em muốn xóa 4 cái. Có cách nào làm nhanh không ạ. Em làm thủ công mà 100.000 số thì không biết khi nào cho xong.

Bạn dùng công cụ có sẵn là Data\Filter\ Advance Filter, chọn vào option Copy to another location, list range bạn quét chọn vùng dữ liệu nguồn, Copy to: bạn chọn nơi để ghi kết quả lọc, Chọn vào checkbox Unique records only, nhấn OK là xong.

Nếu bạn sử dụng office 2007 trở lên thì việc này rất dể

 

[kiredesune]

Chào các anh chị, em nhờ các anh chị giúp hộ em cái này cái ạ: Em có một file excel, tại cột A của file đó em có khoảng 100.000 số điện thoại nhưng trong 100.000 số này lại có rất nhiều số trùng nhau và trùng nhau nhiều lần, em muốn hỏi các bác xem có cách nào lọc các số trùng nhau. Trong các số trùng nhau đó thì xóa nó đi chỉ để lại một số thôi. Ví dụ: số 84915127123 thì có 5 cái, em muốn xóa 4 cái. Có cách nào làm nhanh không ạ. Em làm thủ công mà 100.000 số thì không biết khi nào cho xong.

Cách 1: Pivot ra luôn

Cách 2: Filter thủ công cho các số trùng nhau dồn về 1 mảng và ngồi xóa thủ công bằng lệnh delete

Cách 3: Nếu trên bảng giữ liệu còn nhiều thông tin cần giữ lại cho đúng format thì bạn dùng bảng Pivot lọc riêng để giữ lại số cần giữ, các số còn lại bị xóa bằng cách CTRL + F, vào REPLACE để replace toàn bộ các số còn lại bằng ký tự trống. Ví dụ: trong hộp REPLACE bạn gõ 84915127123 vào, sau đó ở ô dưới để bank.

 

[Tuan_hcth]

Các bác hướng dẫn em cách pivot được không ạ,. Em thấy cách dùng Filter thì lọc ra được số trùng nhau nhưng ngồi xóa nó thì mất rất nhiều thời gian. Vì data có 100.000 số mà. Cảm ơn

 

[beststudent]

Có nhiều cách lọc trùng số hay dữ liệu của 1 cột. Sau đây là 1 cách :
Ví dụ : Cột dữ liệu muốn lọc là từ A1:A10000 (Ô A1 là tiêu đề cột)
1/ Sort dữ liệu cột đó (tăng hay giảm đều được)
2/ Tại ô B2 nhập vào công thức : =IF(A2=A1,"Trung","") và copy công thức cho toàn bộ từ B3 đến B10000
3/ Auto Filter cột B, chọn giá trị "Trung"
4/ Delete các dòng trùng này

 

[ndu96081631]

Các bác hướng dẫn em cách pivot được không ạ,. Em thấy cách dùng Filter thì lọc ra được số trùng nhau nhưng ngồi xóa nó thì mất rất nhiều thời gian. Vì data có 100.000 số mà. Cảm ơn

Hãy làm theo cách mà Tigertiger hướng dẩn tại bài #2 ấy ---> Yêu cầu này dùng Advanced Filter là nhanh nhất (không cần đến PivotTable đâu ---> thừa)
Và nếu dùng Advanced Filter thì 1 nhát nó ra luôn ---> Đâu cần phải xóa gì mà bạn nói mất thời gian chứ?

 

[Tuan_hcth]

Cảm ơn các bác đã nhiệt tình giúp đỡ. Nhưng dùng Advanced filter thì chỉ lọc ra được những số trùng nhau. Trong 100.000 số đó thì cũng có những số không trùng nhau. Em muôn sau khi lọc và xóa những số trùng nhau thì vẫn giữ lại data của những số không trùng với một số của những số trùng nhau. Nhờ các bác giúp em cái ạ.

 

[ThuNghi]

Cảm ơn các bác đã nhiệt tình giúp đỡ. Nhưng dùng Advanced filter thì chỉ lọc ra được những số trùng nhau. Trong 100.000 số đó thì cũng có những số không trùng nhau. Em muôn sau khi lọc và xóa những số trùng nhau thì vẫn giữ lại data của những số không trùng với một số của những số trùng nhau. Nhờ các bác giúp em cái ạ.

Nếu dữ liệu có 100.000 dòng thì chắc là dùng Excel 2007.
Ví dụ dữ liệu ở cột A.
Bạn copy sang cột B.
Và vào menu Data/Remove Duplicates. Nhớ chọn cột B. Kết quả sẽ nằm ở cột B là những số không trùng nhau.

 

[congthanh6868]

Hỏi về lọc dữ liệu và merge dữ liệu

Chào các bạn, mong các bạn giúp mình vấn đề sau:
Trong File dữ liệu mẫu, mình muốn lọc bỏ các số trùng nhau ở các cột A1, B1 thành A2, B2. Sau đó mình muốn merge A2, B2 thành A3, B3 thì có được không và làm như thế nào? Cám ơn các bạn.

 

[ndu96081631]

Chào các bạn, mong các bạn giúp mình vấn đề sau:
Trong File dữ liệu mẫu, mình muốn lọc bỏ các số trùng nhau ở các cột A1, B1 thành A2, B2. Sau đó mình muốn merge A2, B2 thành A3, B3 thì có được không và làm như thế nào? Cám ơn các bạn.

Cột A2 và B2 bạn có thể dùng Advanced Filter để lọc (quá đơn giản)
Riêng cột A3 và B3 ta dùng 1 hàm tự tạo như sau:

Function JointUnique(Range As Range, Optional Sep As String = " ") As String
  Dim Dic, Clls As Range
  On Error Resume Next
  With CreateObject("Scripting.Dictionary")
    For Each Clls In Range
      If Clls <> "" Then .Add Clls.Value, ""
    Next Clls
   JointUnique = Join(.Keys, Sep)
  End With
End Function

Xem file

 

[congthanh6868]

Cột A2 và B2 bạn có thể dùng Advanced Filter để lọc (quá đơn giản)
Riêng cột A3 và B3 ta dùng 1 hàm tự tạo như sau:

Function JointUnique(Range As Range, Optional Sep As String = " ") As String
  Dim Dic, Clls As Range
  On Error Resume Next
  With CreateObject("Scripting.Dictionary")
    For Each Clls In Range
      If Clls <> "" Then .Add Clls.Value, ""
    Next Clls
   JointUnique = Join(.Keys, Sep)
  End With
End Function

Cám ơn bạn ndu96081631
Nhưng tại sao mình không làm được tiếp C3? (Bảng 2)
Và nếu mình có nhiều dữ liệu hơn (Bảng 2) thì làm thế nào? Bạn có thê làm cho mình công thức sẵn để mình có thể paste công thức sang các ô khác được không?
Cám ơn bạn nhiều.

 

[ndu96081631]

Cột A2 và B2 bạn có thể dùng Advanced Filter để lọc (quá đơn giản)
Riêng cột A3 và B3 ta dùng 1 hàm tự tạo như sau:
PHP Code:
Function JointUnique(Range As Range, Optional Sep As String = " ") As String
Dim Dic, Clls As Range
On Error Resume Next
With CreateObject("Scripting.Dictionary")
For Each Clls In Range
If Clls <> "" Then .Add Clls.Value, ""
Next Clls
JointUnique = Join(.Keys, Sep)
End With
End Function

Cám ơn bạn ndu96081631
Nhưng tại sao mình không làm được tiếp C3? (Bảng 2)
Và nếu mình có nhiều dữ liệu hơn (Bảng 2) thì làm thế nào? Bạn có thê làm cho mình công thức sẵn để mình có thể paste công thức sang các ô khác được không?
Cám ơn bạn nhiều.

Trời ơi... file của người ta có code đàng hoàng (bấm Alt + F11 sẽ nhìn thấy) ---> Bạn mang sang file bạn mà chẳng mang code theo thì lấy gì mà chạy

 

[congthanh6868]

Cảm ơn bạn ndu96081631.
Sau khi chờ đợi mãi không nhận được sự trợ giúp, mình đã tự mày mò + lấy code của bạn, giờ thì mình đã làm ra được kết quả theo ý muốn. Cám ơn bạn rất nhiều. Cảm giác có 1 phần công sức của mình khi ra được kết quả vẫn sung sướng hơn là không động não gì cả!!!

 

[congthanh6868]

Sát nhập các ô mà vẫn giữ được dữ liệu, kể cả trùng nhau.

Chào các bạn, vẫn với file dữ liệu cũ, nhưng giờ mình muốn Sát nhập các ô mà vẫn giữ được dữ liệu, kể cả trùng nhau thì có làm được không nhỉ. Bạn nào biết cách thì giúp mình với. Cám ơn các bạn nhiều.

 

[ndu96081631]

Chào các bạn, vẫn với file dữ liệu cũ, nhưng giờ mình muốn Sát nhập các ô mà vẫn giữ được dữ liệu, kể cả trùng nhau thì có làm được không nhỉ. Bạn nào biết cách thì giúp mình với. Cám ơn các bạn nhiều.

Cái này lại càng dể! Tặng bạn hàm này:

Function JoinText(Range As Range, Optional Sep As String = ", ") As String
  On Error GoTo NextStp
  With Application.WorksheetFunction
    JoinText = Join(.Transpose(Range), Sep)
    Exit Function
NextStp:
    JoinText = Join(.Transpose(.Transpose(Range)), Sep)
  End With
End Function

 

[congthanh6868]

JoinText dữ liệu từ các sheet khác nhau.

Chào bạn ndu96081631, nhờ sự giúp đỡ của bạn mình đã làm được công thức JoinText, giờ mình có vần đề này nhờ bạn và các thành viên giaiphapexcel giúp đỡ: trong file Dữ liệu mẫu đính kèm, ở Sheet Tổng hợp mình cần công thức để tự động lấy dữ liệu của 4 sheet kia về sheet Tổng hợp, sau đó mình sẽ áp dụng Công thức JoinText của bạn để sát nhập dự liệu. Hoăc nếu có cách nào để sử dụng Công thức JoinText luôn trên sheet Tông hợp (bỏ qua buớc lấy dữ liệu của 4 sheet kia về từng hàng của Sheet Tổng hợp). Cám ơn các bạn nhiều.

 

[ndu96081631]

Chào bạn ndu96081631, nhờ sự giúp đỡ của bạn mình đã làm được công thức JoinText, giờ mình có vần đề này nhờ bạn và các thành viên giaiphapexcel giúp đỡ: trong file Dữ liệu mẫu đính kèm, ở Sheet Tổng hợp mình cần công thức để tự động lấy dữ liệu của 4 sheet kia về sheet Tổng hợp, sau đó mình sẽ áp dụng Công thức JoinText của bạn để sát nhập dự liệu. Hoăc nếu có cách nào để sử dụng Công thức JoinText luôn trên sheet Tông hợp (bỏ qua buớc lấy dữ liệu của 4 sheet kia về từng hàng của Sheet Tổng hợp). Cám ơn các bạn nhiều.

Ủa... nhìn dử liệu tôi đâu thấy có chổ nào cần phải JoinText đâu ta
Tại sheet Tonghop, cell C2 bạn chỉ cần gõ công thức này là được:

=VLOOKUP($A2,INDIRECT("'"&C$1&"'!A2:B1000"),2,0)

Kéo fill sang phải và xuống dưới

 

[congthanh6868]

Tại sao paste công thức lại không được?

Đây là file dữ liệu mình làm rõ hơn. Mình cũng đã copy công thức của bạn vào nhưng không hiểu sao lại không ra kết quả. Mong bạn chỉ giúp mình với. Cám ơn bạn nhiểu.

 

[ndu96081631]

Đây là file dữ liệu mình làm rõ hơn. Mình cũng đã copy công thức của bạn vào nhưng không hiểu sao lại không ra kết quả. Mong bạn chỉ giúp mình với. Cám ơn bạn nhiểu.

Công thức thì đúng, nhưng bạn chú ý dử liệu từ C1 đến F1 phải trùng với tên sheet chứ
Tên Sheet là TQ1 trong khi tại C1 bạn gõ chữ Sheet TQ1 thì trời nào nó hiểu