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

Question

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

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

...但是从这里开始，我想知道是否可以对其进行修改以仅删除连续的重复项，而不是所有重复项。 （我指的是 Kev spitz 的回答）。

例如，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