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

null@example.com (The gray Cardinal) — Thu, 17 Apr 2008 17:22:33 +0000

Простейший пример замены текста в 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: замена текста