从单元格中的文本中删除连续的重复项

Question

我几乎找到了我想要的东西：

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

...但是接下来我想知道是否可以修改它只删除连续的重复项，而不是所有重复项。 （我指的是Kev spitz的回答）。

E.G，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