Как удалить лишние пробелы в ячейках Excel: полное руководство

Лишние пробелы в ячейках Microsoft Excel — одна из самых распространённых проблем при работе с текстовыми данными. Они появляются при импорте данных из других источников, копировании с веб-сайтов или даже при ручном вводе. Эти "невидимые" символы мешают сортировке, фильтрации, сводным таблицам и даже могут искажать результаты формул. Например, функции ВПР или СЧЁТЕСЛИ не распознают ячейки с одинаковым текстом, если в одной из них есть лишние пробелы.

Многие пользователи пытаются удалить пробелы вручную, но это занимает часы при работе с большими таблицами. К счастью, в Excel есть несколько эффективных способов автоматизировать этот процесс — от простой функции СЖПРОБЕЛЫ до мощных инструментов вроде Power Query. В этой статье мы разберём все методы, включая нюансы, о которых не пишут в стандартных инструкциях.

Особенно актуальна проблема лишних пробелов для тех, кто работает с данными из 1С, CRM-систем или веб-скрапинга. Например, при экспорте прайс-листов из 1С:Предприятие часто добавляются неразрывные пробелы (CHAR(160)), которые не удаляются стандартной функцией TRIM. Мы покажем, как справиться и с такими случаями.

Прежде чем переходить к инструкциям, проверьте, какой тип пробелов у вас в таблице. Для этого выделите ячейку и посмотрите на строку формул — иногда пробелы видны как маленькие точки между словами. Если же пробелы невидимые (например, неразрывные), потребуются специальные приёмы.

1. Функция СЖПРОБЕЛЫ (TRIM) — базовый метод

Самый простой способ удалить лишние пробелы — использовать встроенную функцию СЖПРОБЕЛЫ (англ. TRIM). Она убирает все пробелы в начале и конце текста, а также сокращает несколько пробелов между словами до одного. Формула работает во всех версиях Excel, включая Excel 365, Excel 2019 и Excel Online.

Чтобы применить функцию:

1. В пустой ячейке рядом с исходными данными введите формулу:

   =СЖПРОБЕЛЫ(A1)

2. Нажмите Enter.
3. Растяните формулу на весь столбец с помощью маркера автозаполнения (маленький квадратик в правом нижнем углу ячейки).

Если вам нужно заменить исходные данные очищенными, скопируйте столбец с формулой, затем выделите исходный столбец, кликните правой кнопкой и выберите Специальная вставка → Значения. После этого можно удалить вспомогательный столбец.

Ограничения функции СЖПРОБЕЛЫ:

• 🚫 Не удаляет неразрывные пробелы (CHAR(160)), которые часто встречаются в данных из 1С или Word.
• 🚫 Не работает с пробелами внутри текста, если они являются частью форматирования (например, в адресах или ФИО).
• 🚫 Не удаляет пробелы в ячейках с формулами (только в текстовых данных).

⚠️ Внимание: Если после применения СЖПРОБЕЛЫ пробелы остались, значит, в тексте используются нестандартные символы пробелов. Проверьте это с помощью функции =КОДСИМВ(СИМВОЛ(ПОИСК(" ";A1))) — она покажет код символа.

2. Удаление неразрывных пробелов (CHAR 160)

Неразрывные пробелы (CHAR(160)) — это особый тип пробелов, который не разрывает строку при переносе. Они часто встречаются в данных, экспортированных из 1С, Word или PDF. Стандартная функция СЖПРОБЕЛЫ их не удаляет, поэтому требуется другой подход.

Чтобы заменить неразрывные пробелы на обычные и затем удалить их, используйте комбинацию функций ПОДСТАВИТЬ и СЖПРОБЕЛЫ:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(A1;СИМВОЛ(160);" "))

Если нужно удалить все неразрывные пробелы (включая те, что между словами), используйте:

=ПОДСТАВИТЬ(A1;СИМВОЛ(160);"")

Для массовой обработки данных:

1. Выделите столбец с данными.
2. Нажмите Ctrl + H (замена).
3. В поле Найти введите СИМВОЛ(160) (для этого сначала вставьте неразрывный пробел из Word или скопируйте отсюда:  ).
4. В поле Заменить на оставьте пустым или введите обычный пробел.
5. Нажмите Заменить все.

3. Использование функции ПОДСТАВИТЬ для точечной очистки

Функция ПОДСТАВИТЬ (англ. SUBSTITUTE) позволяет заменять конкретные символы в тексте. Это полезно, если вам нужно удалить все пробелы (включая те, что между словами) или заменить их на другой разделитель (например, запятую).

Примеры применения:

• 📌 Удалить все пробелы:

  =ПОДСТАВИТЬ(A1;" "; "")

• 📌 Заменить пробелы на запятые:

  =ПОДСТАВИТЬ(A1;" "; ",")

• 📌 Удалить пробелы в начале и конце (альтернатива СЖПРОБЕЛЫ):

  =ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;" ";"");" ";" ")

  Здесь первая ПОДСТАВИТЬ удаляет все пробелы, а вторая добавляет по одному пробелу между словами.

Если в тексте есть несколько типов пробелов (например, обычные и неразрывные), комбинируйте ПОДСТАВИТЬ с СЖПРОБЕЛЫ:

=СЖПРОБЕЛЫ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1;СИМВОЛ(160);" ");СИМВОЛ(9);" "))

Эта формула заменяет неразрывные пробелы и табуляции на обычные, а затем убирает лишние.

4. Power Query — мощный инструмент для очистки данных

Power Query (в Excel 2016 и новее) — это инструмент для преобразования данных, который позволяет удалять пробелы в больших таблицах без формул. Его преимущество в том, что все действия сохраняются и могут быть обновлены при изменении исходных данных.

Пошаговая инструкция:

1. Выделите вашу таблицу и перейдите на вкладку Данные → Из таблицы/диапазона (в Excel 2016-2019) или Данные → Получить данные → Из таблицы/диапазона (в Excel 365).
2. Если таблица не была преобразована в "умную таблицу", Excel предложит это сделать — согласитесь.
3. Откроется редактор Power Query. Выделите столбец, в котором нужно удалить пробелы.
4. Перейдите на вкладку Преобразование → Формат → Обрезка (удалит пробелы в начале и конце).
5. Для удаления всех пробелов между словами выберите Преобразование → Заменить значения, в поле Значение для поиска введите пробел, а в Заменить на оставьте пустым.
6. Нажмите Закрыть и загрузить, чтобы применить изменения.

Преимущества Power Query:

• 🔄 Обрабатывает миллионы строк без замедления.
• 📊 Сохраняет историю преобразований — можно повторно применить к новым данным.
• 🛠️ Умеет работать с неразрывными пробелами и другими непечатаемыми символами.

⚠️ Внимание: Если после загрузки данных из Power Query пробелы снова появляются, проверьте формат ячеек. Иногда Excel автоматически добавляет пробелы при преобразовании чисел в текст (например, в столбцах с индексами или кодами).

Пример макроса для удаления всех пробелов в выделенном диапазоне:

Sub УдалитьВсеПробелы()
Dim rng As Range
For Each rng In Selection
If rng.Value <> "" Then
rng.Value = Replace(rng.Value, " ", "")
End If
Next rng
End Sub

Sub УдалитьЛишниеПробелы()
Dim rng As Range
For Each rng In Selection
If rng.Value <> "" Then
rng.Value = WorksheetFunction.Trim(rng.Value)
End If
Next rng
End Sub

Sub ОчисткаПробеловFull()
Dim rng As Range
For Each rng In Selection
If rng.Value <> "" Then
rng.Value = WorksheetFunction.Trim(
Replace(
Replace(
Replace(rng.Value, Chr(160), " "),
Chr(9), " "),
" ", " "))
End If
Next rng
End Sub

Популярные надстройки для Excel:

• 📦 Kutools for Excel — имеет функцию Remove Spaces, которая удаляет все типы пробелов (включая неразрывные и пробелы нулевой ширины).
• 📦 Ablebits — предлагает инструмент Trim Spaces с гибкими настройками.
• 📦 ASAP Utilities — бесплатная надстройка с функцией очистки текста.

=ПСТР(A1;НАЙТИ(ПОДСТАВИТЬ(A1;" ";"");"");ДЛСТР(A1)-ПОИСК(""&ПОДСТАВИТЬ(ОБРАТИТЬ(A1);" ";"");"*")+1)