Cần xóa các số trùng nhau trong ô được ngăn cách bởi dấu phẩy (Giữ lại 1 số trùng đó) (2 người xem)

[hung2412]

Xin chào các Anh chị và các bạn GPE!
Nhờ các Anh chị và các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Dọc theo cột B có các ô chứa số như vầy:

Trong các ô trên cột B đó có những ô chứa số trùng nhau (Ví dụ: Ô B7 có 3 số trùng nhau là 133111) => Làm thế nào để loại bỏ các số trùng nhau đó (Và giữ lại 1 số duy nhất trong các số trùng nhau đó tính từ bên trái qua phải)?
Ví dụ:
152, 152, 152, 133111 => 152, 133111
642, 133111, 133111, 133111 => 642, 133111
621, 335, 335, 627, 133111 => 621, 335, 627, 133111
152, 152, 642, 152 => 152, 642
Kết quả mong muốn như hình dưới đây:

Mong các Anh chị và các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[VetMini]

Yêu cầu code hay giải thuật?
Giải thuật:
1. dùng hàm split tách chuỗi thành mảng
2. duyệt mảng, cứ mỗi phần tử thì so sánh với các phần tử trước nó, nếu gặp trùng thì đổi trị thành "\"
3. dùng hàm join nỗi mảng thành chuỗi
4. đổi ",\" thành ""

 

[Hau151978]

Function ABC(ByVal s$) As String
    Dim a, i&
    a = Split(s, ",")
    s = Trim(a(0))
    For i = 1 To UBound(a)
        If InStr(s & ",", Trim(a(i)) & ",") = 0 Then s = s & ", " & Trim(a(i))
    Next
    ABC = s
End Function