Remove adjacent duplicate characters from String A and remove characters in the same position from String B.

[alecambo]

Hello,

I have two strings of letters (columns String A and String B) and I want to transform them into strings like the ones in Solution 1 and Solution 2 correspondingly.
In the case of String A, I need to remove any adjacent duplicate characters, so the string ZPDUU would turn into ZPDU.
String B is a little bit more complicated: both String A and String B have the same length; and I want to transform String 2 depending on the transformation of String 1 into Solution 1. For example, in my data, I have ZPDUU as String 1 and OOBOO as String 2. Solution 1 would be ZPDU (remove duplicate characters) and Solution 2 would be OOBO (remove characters that are in the same position as the characters removed from String 1).
I hope this makes sense and I'm happy to provide any further clarification.

String A	String B	Solution 1	Solution 2
ZPDUU	OOBOO	ZPDU	OOBO
OJGGDUU	UOOOBOO	OJGDU	UOOBO
ZFDD	UOBB	ZFD	UOB
JJJIIKSHHWQTTT	UUUUUUUUUOPOOO	JIKSHWQT	UUUUUOPO

Thanks in advance,
alecambo

 

[DanteAmor]

Run this macro:

Sub removeduplicate()
  Dim i As Long, j As Long
  Dim a As Variant
  Dim dic As Object
  Dim cad As String
  
  Set dic = CreateObject("Scripting.Dictionary")
  a = Range("A2", Range("B" & Rows.Count).End(3)).Value
  ReDim b(1 To UBound(a, 1), 1 To 2)
  
  For i = 1 To UBound(a, 1)
    dic.RemoveAll
    For j = 1 To Len(a(i, 1))
      cad = Mid(a(i, 1), j, 1)
      If Not dic.exists(cad) Then
        dic(cad) = Empty
        b(i, 1) = b(i, 1) & cad
        b(i, 2) = b(i, 2) & Mid(a(i, 2), j, 1)
      End If
    Next
  Next
  Range("C2").Resize(UBound(b, 1), 2).Value = b
End Sub

 

[Fluff]

A formula option

Fluff.xlsm
	A	B	C	D
1	String A	String B	Solution 1	Solution 2
2	ZPDUU	OOBOO	ZPDU	OOBO
3	OJGGDUU	UOOOBOO	OJGDU	UOOBO
4	ZFDD	UOBB	ZFD	UOB
5	JJJIIKSHHWQTTT	UUUUUUUUUOPOOO	JIKSHWQT	UUUUUOPO
Input

Cell Formulas
Range	Formula
C2:C5	C2	=LET(s,SEQUENCE(LEN(A2)-1),CONCAT(IF(MID(A2,s,1)<>MID(A2,s+1,1),MID(A2,s,1),""),RIGHT(A2)))
D2:D5	D2	=LET(s,SEQUENCE(LEN(A2)-1),CONCAT(IF(MID(A2,s,1)<>MID(A2,s+1,1),MID(B2,s,1),""),RIGHT(B2)))

 

[Fluff]

A slightly simpler version.

Fluff.xlsm
	A	B	C	D
1	String A	String B	Solution 1	Solution 2
2	ZPDUU	OOBOO	ZPDU	OOBO
3	OJGGDUU	UOOOBOO	OJGDU	UOOBO
4	ZFDD	UOBB	ZFD	UOB
5	JJJIIKSHHWQTTT	UUUUUUUUUOPOOO	JIKSHWQT	UUUUUOPO
Input

Cell Formulas
Range	Formula
C2:C5	C2	=LET(s,SEQUENCE(LEN(A2)),CONCAT(IF(MID(A2,s,1)<>MID(A2,s+1,1),MID(A2,s,1),"")))
D2:D5	D2	=LET(s,SEQUENCE(LEN(A2)),CONCAT(IF(MID(A2,s,1)<>MID(A2,s+1,1),MID(B2,s,1),"")))

 

[alecambo]

Thanks to both of you for your answers. They served me right.

 

[Fluff]

Glad we could help & thanks for the feedback.