Удаление лишних символов - VBA

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

Помогите я новичок. Макрос должен удалять повторяющиеся запятые, а так же те что стоят до и после всего текста. Но почему-то вообще ничего не происходит.

                    Листинг программы
                
 
                        
                          
                    
Dim proverka As String
    For Each ppp In Range("D2: D 28")
    proverka = ppp.Value
    If InStr(1, proverka, ",,") <> 0 Then proverka = Replace(proverka, ",,", ",")
        End
    If Left(proverka, 1) = "," Then Left(proverka, 1) = "" Else
        End
    If Right(proverka, 1) = "," Then Right(proverka, 1) = "" Else
        End
    
    Next

http://www.cyberforum.ru/attachment....1&d=1475085580

Решение задачи: «Удаление лишних символов»

textual
                            Листинг программы 
                        
Replace(proverka, ",,", ",")

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

12 голосов , оценка 3.583 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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