tìm các cặp ký tự giống nhau và xoá bớt chúng trong cell

Chia sẻ bởi:hands

★★★★★

‹ VBA xóa dòng trùng, trống Xóa dữ liệu trùng bằng VBA ›

Quảng cáo

nhờ các cao nhân chỉ giáo

tôi có một ô excell A1 có dạng như sau:
MI,LI,MN,NN,MI,NN,MI (có thể có nhiều cặp ký tự hơn)
tôi muốn xoá các cặp ký tự giống nhau và cho ra ô A2: MI,LI,MN,NN.
em có một dãy các ký tự như sau:
: MI,LI,DI,MN,XI,DI,MI,LI
nếu dùng công thức anh hướng dẫn không ra được kết quả mong muốn,em muốn ra như này:
: MI,LI,DI,MN,XI
Function xoatrung(Text As String, Optional Sep) As String
  Dim i As Long, Temp
  On Error Resume Next
  If IsMissing(Sep) Then
    xoatrung = Left(Text, 1)
    For i = 1 To Len(Text)
      If InStr(xoatrung, Mid(Text, i, 1)) = 0 Then xoatrung = xoatrung & Mid(Text, i, 1)
    Next i
  Else
    Temp = Split(WorksheetFunction.Trim(Replace(Text, CStr(Sep), " ")), " ")
    With CreateObject("Scripting.Dictionary")
      For i = 0 To UBound(Temp)
        .Add Temp(i), ""
      Next i
      xoatrung = Join(.Keys, Sep)
    End With
  End If
End Function
nhờ các cao nhân chỉ giáo

Trời… đâu ra cái dấu 2 chấm ở trước chuổi thế chứ —> Xóa nó đi là được rồi
Còn nhất định giữ nguyên dấu 2 chấm ở đầu chuổi thì phải tùy biến chút xíu chứ
Xem file

www.giaiphapexcel.com/diendan/threads/t%C3%ACm-c%C3%A1c-c%E1%BA%B7p-k%C3%BD-t%E1%BB%B1-gi%E1%BB%91ng-nhau-v%C3%A0-xo%C3%A1-b%E1%BB%9Bt-ch%C3%BAng-trong-cell.46621/