يمكنك استعمال هذا الكود بعد فك دمج الخلايا وتغيير الامتداد إلى xlsb حتى يقبل الأكواد
Sub repchr()
Range("b6,b9").ClearContents
For n = 1 To Len([b3])
If UBound(Split([b3], Mid([b3], n, 1))) > 1 Then
[b6] = [b6] & IIf(InStr([b6], Mid([b3], n, 1)) = 0 And Mid([b3], n, 1) <> " ", IIf([b6] = "", "", "-") & Mid([b3], n, 1), "")
Else
[b9] = [b9] & IIf([b9] = "", "", "-") & Mid([b3], n, 1)
End If
Next n
MsgBox "Done by mr-mas.com"
End Sub
الكود يقوم بوضع الحروف المكررة في الخلية b6 والحروف غير المكررة في الخلية b9 اعتمادا على النص الموجود في الخلية b3
بالتوفيق