Чтобы удалить повторяющиеся символы (в данном случае точки с запятой)
- Hit CTRL + H
- Найти что:
;;
(две точки с запятой) - Заменить на:
;
(одна точка с запятой) - Нажмите Заменить все .Когда он закончится, повторяйте шаг 4 до тех пор, пока больше не будет найдено совпадений.
Теперь в документе будет не более одной точки с запятой подряд.
Удаление повторяющихся символов с помощью функции VBA:
Следующая функция делает то же самое с помощью VBA и для любого выбранного символа:
Function removeDoubleChars(txt As String, doubleChar As String) As String
'removes all multiple-consecutive [doubleChar] within [txt]
Do
txt = Replace(txt, doubleChar & doubleChar, doubleChar)
Loop While InStr(txt, doubleChar & doubleChar) > 0
removeDoubleChars = txt
End Function
Выбудет использовать это как Range("A1") = removeDoubleChars ( Range("A1"), ";")
для удаления последовательных точек с запятой из ячейки A1
.