giúp em về cách lọc tách dữ liệu. (1 người xem)

[phongchot]

Hiện tại em có một bảng dữ liệu gần 1 triệu số. Vấn đề là có cách gì lọc tách trong các số đó có ÍT NHẤT 2 số trùng nhau và xóa đi không. Các bác giúp em với! em lấy ví dụ một số 1234456 trong đó có 2 số 4. có cách gì xóa 2 số 4 đó đi tạo thành số 12356 không các bác? ( tương tự với 3 và 4 số trùng nhau). Các bác giúp em với

 

[SA_DQ]

Bạn lấy 1 trang tính không xài nữa & chạy macro dưới đây trên nó

Option Explicit
Sub XoaTrungSo()
'Tù 123456 Cho Dén 9876543'
 Dim Jj As Long, Rws As Long, Ww As Byte, Col As Byte
 Const KySo As String = "1234567890"
 Dim sNum As String, StrC As String, VTr As String
 ReDim So(0 To 9):               Dim Timer_ As Double
 
 Columns("A:AA").ClearContents
 Timer_ = Timer:                 Col = 1
 For Jj = 123456 To 9876543
   sNum = CStr(Jj)
   For Ww = 1 To Len(sNum)
      StrC = Mid(sNum, Ww, 1)
      So(CLng(StrC)) = 1 + So(CLng(StrC))
      If So(CLng(StrC)) = 2 Then VTr = VTr & StrC
   Next Ww
   Rws = Cells(65535, Col).End(xlUp).Row
   If Rws > 65500 Then
      Col = Col + 2:       Rws = 1
   End If
   If Len(VTr) > 0 Then
      With Cells(Rws + 1, Col)
         .Value = Jj:      .Offset(, 1) = VTr
      End With
      VTr = ""
   End If
   For Ww = 0 To 9
      So(Ww) = 0
   Next Ww
9   If Timer - Timer_ > 99 Then
      [A1].Value = Jj:     Exit For
   End If
 Next Jj
End Sub

Các chú í cần thiết:

(*) Bạn fải có thời gian khoảng 100 gy

(*) Sau khi macro kết thúc công việc bạn hãy ngó vô ô [A1], đó là con số cuối mà macro đã khảo sát qua, kể từ con số đầu là 123456
Nếu rãnh rỗi, bạn có thể tăng thời gian cho macro ở dòng lệnh có số 9, nhưng đừng tăng đột biến

(*) Macro chỉ mới tìm ra các số cần thay; Bạn kiểm thấy ưng cái bụng thì chúng ta sẽ tiếp công đoạn thay chúng đi;
Nhưng cũng xin hỏi bạn 1 điều, rằng gặp số 202404 thí sau khi thay chả còn gì cho bạn thì để trống? (Hay số 121102 thì sẽ là con 0 tròn trịa?)

(*) Giải thuật này mới chỉ cho kết quả đúng; Còn rút ngắn hay cải tiến để nó lẹ làng hơn trong công việc thì chưa. & sẽ đợi các fát biểu từ bạn mới làm tiếp

Thân ái!

 

[phongchot]

Trước tiên xin chân thành cảm ơn HYen17 đã giúp đỡ. Macro trên hiện tại chỉ là tìm số cần thay của chuỗi từ 123456 đến . Bảng số liệu của mình là bảng dữ liệu rời rạc. gồm 11 chữ số. Cái mình cần là tìm và xoá các phần tử số trùng trong 11 chữ số đó! Thân![/COLOR][/COLOR]

 

[naveed01]

cụ thể là em có cột phiếu thu/ phiếu chi ở sheet TONGHOP. Sau khi kich vào số phiếu trên thì dữ liệu trên hàng đó sẽ chuyển sang sheet INPHIEU đã định dạng sẵn. hoặc cách nào tương tự mong được chỉ giúp.​

​