Loại các dữ liệu trùng nhau trong cùng 1 ô.

[minhtan902]

dear các anh chị,
mình có vấn đề này cần anh chị nào giúp với. Vd cells(1,1) co giá trị A-B-B-A-S-D, sau khi xử lý dữ liệu cells(1,1) có giá trị A-B-S-D. EM GUI THEO FILE DINH KEM.
CẢM ƠN.

 

[VetMini]

Giải thuật:
- Dùng hàm split tách chuỗi thành mảng thep ký tự "-"
- Bắt đầu từ phần tử đầu tiên, duyệt các phần từ còn lại và so sánh với phần tử này. Nếu thấy trùng thì đổi thành char(0)
- Tiếp tục đến phần tử áp cuối (không cần phần tử cuối cùng)
- Ráp mảng lại, phần tử nào bằng char(0) thì bỏ qua

 

[hungpecc1]

dear các anh chị,
mình có vấn đề này cần anh chị nào giúp với. Vd cells(1,1) co giá trị A-B-B-A-S-D, sau khi xử lý dữ liệu cells(1,1) có giá trị A-B-S-D. EM GUI THEO FILE DINH KEM.
CẢM ƠN.

Với dữ liệu kiểu này có khi phải dùng vba xây dựng hàm tự tạo mới ok:
Không hiểu dữ liệu này bạn lấy từ đâu ra, hay là trích xuất từ chương trình nào !!

 

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

dear các anh chị,
mình có vấn đề này cần anh chị nào giúp với. Vd cells(1,1) co giá trị A-B-B-A-S-D, sau khi xử lý dữ liệu cells(1,1) có giá trị A-B-S-D. EM GUI THEO FILE DINH KEM.
CẢM ƠN.

Dùng hàm sau của Thầy Tuấn.

Function StrUnique(Chuoi As String, LoaiDau As String) As String
  Dim i As Long, Temp
  On Error Resume Next
  Chuoi = WorksheetFunction.Trim(Replace(Chuoi, LoaiDau, " "))
  Temp = Split(Chuoi, " ")
  With CreateObject("Scripting.Dictionary")
    For i = 0 To UBound(Temp)
      .Add Temp(i), ""
    Next i
    StrUnique = Join(.Keys, LoaiDau)
  End With
End Function