Удалить совпадения в строке - VBA

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

Добрый день. Исходные данные

1 2 4 2 5 2

1 5 6 2 5 6

Необходимо привести к виду без дублирующихся значений в строках

1 2 4 5

1 5 6 2

Решение задачи: «Удалить совпадения в строке»

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

                            Dim sample As String
Dim char As String
Dim result As String
Dim index As Integer
 
sample = "156256"
 
For index = 1 To Len(sample)
    char = Mid(sample, index, 1)
    If InStr(1, result, char) = 0 Then
        result = result & char
    End If
Next
                        

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

8 голосов , оценка 4 из 5

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