VBA: замена текста

2008-04-17T17:22:33Z

Простейший пример замены текста в Excel. Макрос заменяет в выделенном диапазоне символы неразрывного пробела "Chr(160)" на пустую строку, т.е. вырезает их. Этот код можно поместить в любом дополнительном модуле в книге Excel.

Sub ReplaceSpaces160()
    On Error Resume Next
    Selection.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
End Sub

Серый форум — VBA: замена текста

VBA: замена текста