Vui lòng hướng dẫn cách tìm và xóa số bị trùng (1 người xem)

[nhatkhoa]

Vui lòng hướng dẫn cách tìm và xóa số bị trùng


Mình có 1 danh sách số điện thoại 10,000 số . bắt đầu 0926.35.0000 đến 0926.35.9999

trong đó có khoảng 1000 số đẹp, mình đã lựa số đẹp đánh thành 1 file, còn 9700 số còn lại mình Kéo cho nó tự tăng lên 1000 .

bây giờ mình muốn lọc ra thành 2 sheet, 1 sheet chỉ toàn số đẹp và 1 sheet toàn số xấu thì làm thế nào các bác giúp với

đính kèm file cho các bác dễ xem thử giúp em nhé !

Cảm ơn các bác rất nhiều

 

[nhatkhoa]

File List số đẹp đúng ra là 2000 số
kéo từ 0926350000 - 0926350999 và kéo từ 0926353000 đến 0926353999

các bác kéo hộ em nhé !

 

[DOSNET]

Vui lòng hướng dẫn cách tìm và xóa số bị trùng


Mình có 1 danh sách số điện thoại 10,000 số . bắt đầu 0926.35.0000 đến 0926.35.9999

trong đó có khoảng 1000 số đẹp, mình đã lựa số đẹp đánh thành 1 file, còn 9700 số còn lại mình Kéo cho nó tự tăng lên 1000 .

bây giờ mình muốn lọc ra thành 2 sheet, 1 sheet chỉ toàn số đẹp và 1 sheet toàn số xấu thì làm thế nào các bác giúp với

đính kèm file cho các bác dễ xem thử giúp em nhé !

Cảm ơn các bác rất nhiều

Bạn thử dùng file này xem. Muốn tách như nào thì chỉ sửa lại điều kiện trong công thức, Thân!

 

[thon]

mình chào tất cả các thành viên trong giải pháp Excel !
mình muốn hỏi quản lý kho trong Excel như thế nào là tốt nhất ( theo dõi nhập, xuất, tồn)

 

[nhatkhoa]

bảng exell của bác DOSNET cực hay, tiếc là em ko biết sử dụng như thế nào ?

bác có thể hướng dẫn cho em cách nhập data số chưa soạn ở đâu không ạ ?

cảm ơn bác lắm lắmhttp://www.giaiphapexcel.com/forum/member.php?u=13716

 

[SA_DQ]

Từ phương cách của DOSNET xin giới thiệu 1 macro như sau

Option Explicit
[B]Sub TimSoDep()[/B]
 Dim eRw As Long, jJ As Long:          Dim Clls As Range
  
 eRw = [A65500].End(xlUp).Row:         Application.ScreenUpdating = False
 For Each Clls In Range("A4:A" & eRw)
   If SoDep(Clls.Value Mod 10 ^ 4, 1) Then
      Clls.Interior.ColorIndex = 34
   ElseIf SoDep(Clls.Value Mod 10 ^ 7, 2) Then
      Clls.Interior.ColorIndex = 36
   ElseIf SoDep(Clls.Value Mod 10 ^ 4, 3) Then
      Clls.Interior.ColorIndex = 38
   ElseIf SoDep(Clls.Value Mod 10 ^ 3, 4) Then
      Clls.Interior.ColorIndex = 38
   ElseIf SoDep(Clls.Value Mod 100, 5) Then
      Clls.Interior.ColorIndex = 37
   ElseIf SoDep(Clls.Value Mod 10 ^ 4, 6) Then
      Clls.Interior.ColorIndex = 39
   ElseIf SoDep(Clls.Value Mod 10 ^ 3, 7) Then
      If (Clls.Value \ 10 ^ 5) + 1 = (Clls.Value) \ 10 ^ 4 _
         And (Clls.Value \ 10 ^ 4) + 1 = (Clls.Value \ 1000) Mod 10 Then
         Clls.Interior.ColorIndex = 44
      ElseIf (Clls.Value \ 10 ^ 4) + 1 = (Clls.Value \ 1000) Mod 10 Then
         Clls.Interior.ColorIndex = 8
      End If
      Clls.Font.ColorIndex = 5
   End If
 Next Clls
[B]End Sub[/B]

[B]Function SoDep(Nums As Long, Type_ As Byte) As Boolean[/B]
   
 Select Case Type_
 Case 1
   If Nums \ 1000 = Nums Mod 10 And (Nums \ 100) Mod 10 = (Nums \ 10) Mod 10 _
      And Nums \ 1000 <> (Nums \ 10) Mod 10 Then
      SoDep = True:           Exit Function
   End If
 Case 2
   If Nums \ 10 ^ 5 = (Nums \ 10 ^ 4) Mod 10 And (Nums \ 100) Mod 10 = (Nums \ 10) Mod 10 _
      And (Nums \ 10 ^ 4) Mod 10 <> (Nums \ 10 ^ 3) Mod 10 Then
      SoDep = True:           Exit Function
   End If
 Case 3
   If Nums \ 1000 = Nums Mod 10 And (Nums \ 100) Mod 10 = (Nums \ 10) Mod 10 _
      And Nums \ 1000 = (Nums \ 10) Mod 10 Then
      SoDep = True:           Exit Function
   End If
 Case 4
   If Nums \ 100 = Nums Mod 10 And (Nums \ 10) Mod 10 = Nums \ 100 Then
      SoDep = True:           Exit Function
   End If
 Case 5
   If (Nums \ 10 = 8 And Nums Mod 10 = 6) Or (Nums \ 10 = 6 And Nums Mod 10 = 8) Then
      SoDep = True:           Exit Function
   End If
 Case 6
   If Nums \ 100 = 68 And Nums Mod 10 = 68 Then
      SoDep = True:           Exit Function
   End If
 Case 7
   If (Nums \ 100) + 1 = (Nums \ 10) Mod 10 And (Nums \ 10) Mod 10 = (Nums Mod 10) - 1 Then
      SoDep = True:           Exit Function
   End If
 End Select
[B]End Function[/B]

Xin xem thêm trong file đính kèm;

Bạn có thể nhập tiếp các số điện thoại khác xem sao?!

 

[DOSNET]

bảng exell của bác DOSNET cực hay, tiếc là em ko biết sử dụng như thế nào ?

bác có thể hướng dẫn cho em cách nhập data số chưa soạn ở đâu không ạ ?

cảm ơn bác lắm lắm

Tất nhiên là nhập tiếp ở cột A [Số TB] rồi. Để lọc được thì copy công thức ở các cột còn lại xuống. Vì chưa định nghĩa thế nào là đẹp nên tôi chỉ thử đưa ra vài trường hợp, bạn có thể định nghĩa và post lại, tôi hoàn thiện giúp, thân!