Remove Sequential Repeats

[Jakobshavn Isbrae]

I have a single column of data containing variable length text strings. In
some of the data, characters repeat sequentially. For example AABBCCDD
I need a function or formula that removes sequential repeats.

if
input: AABBCC output: ABC
input: AAAAAA output: A
input: AAABBC output: ABC
input: ABCDEF output: ABCDEF
input: BAAAAB output: BAB
input: DD output: D

Any suggestions will be greatly appreciated!

 

[JB]

An UDF

In a module: (Alt+F11 Insert/Module)

Function SD(chaine)
temp = Left(chaine, 1)
For i = 2 To Len(chaine)
If Right(temp, 1) <> Mid(chaine, i, 1) Then
temp = temp & Mid(chaine, i, 1)
End If
Next i
SD = temp
End Function

http://cjoint.com/?clqkYUsXJo

JB
http://boisgontierjacques.free.fr

 

[Jakobshavn Isbrae]

Perfect!

Thank you!
--
jake

An UDF

In a module: (Alt+F11 Insert/Module)

Function SD(chaine)
temp = Left(chaine, 1)
For i = 2 To Len(chaine)
If Right(temp, 1) <> Mid(chaine, i, 1) Then
temp = temp & Mid(chaine, i, 1)
End If
Next i
SD = temp
End Function

http://cjoint.com/?clqkYUsXJo

JB
http://boisgontierjacques.free.fr