Как быстро убрать пробел в числах в Excel: от TRIM до VBA

Пробелы в числовых данных Excel — одна из самых распространённых проблем, с которой сталкиваются пользователи при импорте данных из внешних источников. Эти "невидимые враги" ломают формулы, мешают сортировке и сводным таблицам, а иногда даже приводят к ошибкам в финансовых расчётах. Например, число 1 234 (с пробелом-разделителем) или 567 (с пробелами по краям) воспринимается программой как текст, а не как числовой формат.

В этой статье мы разберём 5 проверенных методов, как убрать пробелы в числах Excel быстро — от элементарной функции TRIM до автоматизации через Power Query и VBA. Каждый способ проиллюстрирован скриншотами и примерами, а в конце вас ждёт сравнительная таблица эффективности методов. Особое внимание уделим скрытым пробелам (неразрывным и символам табуляции), которые не удаляются стандартными инструментами.

1. Функция TRIM: простой способ убрать лишние пробелы

Функция TRIM (или СЖПРОБЕЛЫ в русской версии Excel) удаляет все пробелы в начале и конце ячейки, а также сокращает несколько пробелов между словами до одного. Это идеальный вариант для чисел с "классическими" пробелами, например: " 123 " или "1 2 3".

Формула выглядит так:

=TRIM(A1)

Где A1 — ячейка с исходным числом. После применения функции результат можно скопировать как Значения (через Специальная вставка), чтобы заменить исходные данные.

• ✅ Подходит для: пробелов в начале/конце, двойных пробелов между цифрами
• ❌ Не удаляет: неразрывные пробелы (CHAR(160)), символы табуляции (CHAR(9))
• ⚡ Скорость: мгновенно для 10 000+ ячеек

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

Инструмент Найти и заменить (Ctrl+H) справится даже с теми пробелами, которые TRIM не видит. Главное — правильно указать, что искать:

1. Выделите диапазон с данными.
2. Нажмите Ctrl+H (или Главная → Найти и выделить → Заменить).
3. В поле Найти введите пробел (нажмите клавишу Space).
4. Поле Заменить на оставьте пустым.
5. Нажмите Заменить всё.

Для неразрывных пробелов (встречаются при копировании с веб-страниц) в поле Найти введите CHAR(160) — это символ пробела, который не ломает перенос строк. Чтобы вставить его в поле поиска:

1. Нажмите F5 → Выделить... → Формулы.
2. В любой ячейке введите =CHAR(160) и скопируйте результат (он выглядит как обычный пробел).
3. Вставьте скопированный символ в поле Найти.

3. Функция ПЕЧСИМВ (CLEAN): для непечатаемых символов

Если пробелы в числах появились после импорта из PDF, Word или баз данных, велика вероятность, что это не просто пробелы, а непечатаемые символы (например, символы конца абзаца или разрыва строки). Функция CLEAN (ПЕЧСИМВ в русской версии) удаляет их все:

=CLEAN(TRIM(A1))

Комбинация CLEAN + TRIM покрывает 90% случаев "грязных" данных. Например, число "123

" (с переносом строки в конце) после обработки станет 123.

⚠️ Внимание: CLEAN не удаляет все непечатаемые символы — только те, которые соответствуют первым 32 символам таблицы ASCII (коды 0–31). Для удаления неразрывных пробелов (CHAR(160)) используйте ПОДСТАВИТЬ.

4. Power Query: автоматизация очистки для больших данных

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

Алгоритм действий:

1. Выделите диапазон с данными → Данные → Из таблицы/диапазона (в Excel 2016+) или Данные → Получение данных → Из таблицы/диапазона (в Excel 2013 с надстройкой Power Query).
2. В открывшемся редакторе Power Query выделите столбец с числами.
3. Перейдите на вкладку Преобразование → Очистка → Обрезка (удаляет пробелы по краям).
4. Затем выберите Преобразование → Заменить значения → в поле Значение для поиска введите пробел, а в Замена оставьте пустым.
5. Нажмите Закрыть и загрузить, чтобы вернуть очищенные данные в Excel.

Power Query сохраняет все шаги очистки, поэтому при обновлении исходных данных вам не придётся повторять процедуру вручную — достаточно нажать Обновить.

Выделить исходный диапазон|Проверить кодировку (UTF-8 для веб-данных)|Удалить пробелы функцией Obtrim|Заменить неразрывные пробелы на пустоту|Привести столбец к числовому формату-->

5. Макрос VBA: удаление пробелов в один клик

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

Sub RemoveAllSpaces()
Dim rng As Range
Dim cell As Range
Set rng = Selection

For Each cell In rng
cell.Value = Replace(Replace(Replace(cell.Value, " ", ""), Chr(160), ""), Chr(9), "")
Next cell
End Sub

Как использовать:

1. Нажмите Alt+F11, чтобы открыть редактор VBA.
2. Вставьте код выше в новый модуль (Insert → Module).
3. Вернитесь в Excel, выделите диапазон с данными и запустите макрос (Alt+F8 → RemoveAllSpaces → Выполнить).

⚠️ Внимание: Макрос безвозвратно изменяет исходные данные. Перед запуском сохраните резервную копию файла или работайте с копией листа. Также отключите автоматический пересчёт формул (Формулы → Параметры вычислений → Вручную), если обрабатываете большие массивы данных (100 000+ ячеек).

Сравнение методов: какой выбрать?

Чтобы вам было проще определиться с методом, мы составили таблицу с сравнением всех способов по ключевым параметрам:

Частые ошибки и как их избежать

Даже опытные пользователи Excel иногда допускают ошибки при очистке пробелов в числах. Вот самые распространённые из них:

• 🔹 Забывают преобразовать текст в числа. После удаления пробелов ячейки остаются в текстовом формате. Исправляйте это через Формат ячеек → Числовой или умножением на 1 (=A1*1).
• 🔹 Игнорируют неразрывные пробелы. Они выглядят как обычные, но не удаляются через TRIM или простой поиск. Всегда проверяйте код символа (=КОДСИМВ()).
• 🔹 Применяют макросы к защищённым листам. VBA не сработает, если лист или книга защищены паролем. Снимите защиту перед запуском.
• 🔹 Не учитывают локальные настройки. В некоторых странах пробел используется как разделитель тысяч (например, 1 000 000). Удаление таких пробелов исказит данные. В этом случае используйте =ПОДСТАВИТЬ(A1; " "; "") выборочно.

FAQ: Ответы на частые вопросы

=ТЕКСТ(A1; "# ##0")