Loại bỏ các giá trị trùng nhau trong 1 ô (2 người xem)

[ditimdl]

Ví dụ tại ô A1 chứa các giá trị sau:
M5; I6; M8; M6; M8; M6; M5; I6. Mình muốn chỉ giữ lại những giá trị xuất hiện duy nhất trong ô.
Mong các bạn giúp mình.

 

[quanluu]

Ví dụ tại ô A1 chứa các giá trị sau:
M5; I6; M8; M6; M8; M6; M5; I6. Mình muốn chỉ giữ lại những giá trị xuất hiện duy nhất trong ô.
Mong các bạn giúp mình.

Bạn chạy thử với function
Áp dụng: B1 = =uniquefunc(A1,";")

Function uniquefunc(chuoi As String, delimeter As String) As String
    Dim mang, i
    mang = Split(chuoi, delimeter)
    For i = 0 To UBound(mang)
        If InStr(1, delimeter & uniquefunc & delimeter, delimeter & Trim(mang(i)) & delimeter) = 0 Then uniquefunc = uniquefunc & delimeter & Trim(mang(i))
    Next
    If Left(uniquefunc, Len(delimeter)) = delimeter Then uniquefunc = Right(uniquefunc, Len(uniquefunc) - Len(delimeter))
End Function

 

[♫ђöล♥ßล†♥†µ♫]

Cho em bon chen với

Function UniqueString(ByVal Delimiter As String, ByVal str As String) As String
    Dim dic As Object, aTmp
Set dic = CreateObject("Scripting.Dictionary")
For Each aTmp In Split(str, Delimiter)
    dic.Item(aTmp) = 1
Next
If dic.Count Then UniqueString = Join(dic.Keys, Delimiter)
End Function

Công thức B1=UniqueString("; ";A1)

 

[Phuocam]

Bạn chạy thử với function
Áp dụng: B1 = =uniquefunc(A1,";")

Gặp chuỗi này sao ta?

M50; I61; M82; M63; M8; M6; M5; I6

 

[phulien1902]

Bạn chạy thử với function
Áp dụng: B1 = =uniquefunc(A1,";")

Function uniquefunc(chuoi As String, delimeter As String) As String
    Dim mang, i
    mang = Split(chuoi, delimeter)
    For i = 0 To UBound(mang)
        If InStr(1, uniquefunc, Trim(mang(i))) = 0 Then uniquefunc = uniquefunc & delimeter & Trim(mang(i))
    Next
    If Left(uniquefunc, Len(delimeter)) = delimeter Then uniquefunc = Right(uniquefunc, Len(uniquefunc) - Len(delimeter))
End Function

Trường hợp dưới xem ra chưa ổn?

 

[quanluu]

Gặp chuỗi này sao ta?

M50; I61; M82; M63; M8; M6; M5; I6

Mình cập nhật lại function, không biết là còn trường hợp nào nữa không.
Bài này tốt nhất là dùng dic

 

[AutoReply]

Mình cập nhật lại function, không biết là còn trường hợp nào nữa không.
Bài này tốt nhất là dùng dic

Ý đừng chuyển sang dùng đít to nhá, Instr mới hấp dẫn chứ. Mình ủng hộ bạn.

 

[befaint]

dic.Item(aTmp) = 1

Xin lỗi mình nhầm.
(Tự xóa).

 

[ditimdl]

Mình cập nhật lại function, không biết là còn trường hợp nào nữa không.
Bài này tốt nhất là dùng dic

Hiện tại mình dùng thấy ổn. Cảm ơn bạn rất nhiều!