Написать программу, которая удаляет из заданной строки повторные вхождения символов - VBA/Excel

Формулировка задачи:

Написать программу, которая удаляет из заданной строки повторные вхождения символов. Не могу понять как сделать,пробовал через =ЛЕВСИМВ и =ПОДСТАВИТЬ но не получилось. Прошу предоставить мне решение,я разберусь и отдам половину своей кармы. Спасибо заранее

Решение задачи: «Написать программу, которая удаляет из заданной строки повторные вхождения символов»

textual
                            Листинг программы 
                        

                            Sub ss()
Dim s$, d$, i&
  s = "Написать программу, которая удаляет из заданной строки повторные вхождения символов."
  d = s
  For i = 2 To Len(s)
    If InStr(1, s, Mid$(s, i, 1), vbTextCompare) < i Then Mid$(s, i, 1) = vbNullChar
  Next
  s = Replace$(s, vbNullChar, vbNullString)
  MsgBox d & vbLf & s
End Sub
                        

Оцени полезность:

9 голосов , оценка 3.667 из 5

Похожие ответы