Удалить последовательные дубликаты из текста в ячейке

Question

Я почти нашел то, что хотел:

How do I remove duplicate values in a cell seperated with a /?

... но вслед за этим мне интересно, если он может быть изменен, чтобы удалить только последовательные дубликаты, а не все дубликаты. (Я имею в виду ответ Кев шпиц).

EG, 1-1-3-4-2-2-2-2-5-2-1 бы в настоящее время возвращают 1/3/4/2/5

, но я хочу его вернуться 1-3-4-2-5-2-1

Я посмотрел на изменения определенной функции пользователя, но, честно говоря, что это слишком много для моей ограниченной способности :)

признательна за любую помощь.

Благодаря

Answer 1

Рассмотрим:

Public Function LJays(sIn As String) As String 
    ary = Split(sIn, "-") 
    LJays = ary(0) 
    For i = LBound(ary) + 1 To UBound(ary) 
     If ary(i) <> ary(i - 1) Then 
      LJays = LJays & "-" & ary(i) 
     End If 
    Next i 
End Function