1: 2: 3: 4: 5: 6: 7:
Sub RemoveSpaces () Тусклый cel как ряд Для каждого cel в ActiveSheet.UsedRange cel = уравновешивание (замените (cel. Текст, Chr (160), "")) Затем Подводная лодка конца