Как убрать запятую после первой цифры в Excel: от формата до VBA

Почему Excel добавляет запятую после первой цифры и как это исправить

Вы открываете таблицу, а вместо привычных чисел 1000 или 50000 видите 1,000 или 5,0000? Excel автоматически форматирует данные по региональным настройкам, и запятая после первой цифры — частая проблема при импорте данных из внешних источников или копировании из веб-страниц. В 80% случаев это связано с неверным распознаванием форматов: программа воспринимает числа как текст с разделителями или применяет европейский стиль отображения (где запятая — разделитель тысяч).

Решение зависит от причины появления запятой:

🔹 Импорт из CSV/ТXT — Excel неправильно интерпретировал разделители при открытии файла.
🔹 Копирование с веб-страниц — вместе с числами скопировались невидимые символы форматирования.
🔹 Ручной ввод — включён европейский формат чисел в настройках системы.
🔹 Формулы — функции возвращают результат в неожиданном формате.

В этой статье разберём 5 способов удаления запятой после первой цифры, включая скрытые настройки Excel, которые редко упоминают в стандартных гайдах. Начнём с самого простого — изменения формата ячейки.

📊 Как часто вы сталкиваетесь с проблемами форматирования в Excel?

Ежедневно

Раз в неделю

Рядом

Никогда

Способ 1: Изменение формата ячейки (быстрое решение)

Если запятая появилась из-за автоматически применённого формата (например, 1,234 вместо 1234), достаточно сбросить настройки отображения. Этот метод работает для чисел, но не поможет, если данные хранятся как текст.

Инструкция:

Выделите проблемные ячейки (или всю колонку, нажав на букву столбца).
Нажмите правой кнопкой мыши → Формат ячеек (или Ctrl+1).
Вкладка Число → выберите Числовой или Общий.
Уберите галочку напротив Разделитель групп разрядов.
Нажмите OK.

⚠️ Внимание: Если после этих действий в ячейке отображается ######, значит, данные не помещаются по ширине. Растяните столбец или уменьшите шрифт.

☑️ Проверка формата ячеек

Выделить проблемные ячейкиОткрыть "Формат ячеек" (Ctrl+1)Выбрать формат "Общий" или "Числовой"Снять галочку с "Разделитель групп разрядов"Применить изменения

Выполнено: 0 / 5

Исходный формат	Что делать	Результат
`1,234` (число с разделителем)	Сбросить формат на `Общий`	`1234`
`'1,234` (текст)	Использовать `ЗАМЕНИТЬ` или `ЗНАЧЕН`	`1234`
`1.234,00` (европейский формат)	Заменить `.` на пустоту, `,` на `.`	`1234.00`

Способ 2: Замена запятой через функцию `ЗАМЕНИТЬ` или `ПОДСТАВИТЬ`

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

Формулы для ячейки A1:

🔹 Удалить все запятые: =ЗАМЕНИТЬ(A1;",";"")
🔹 Удалить только первую запятую: =ПОДСТАВИТЬ(A1;",";"";1)
🔹 Заменить запятую на точку (для десятичных дробей): =ЗАМЕНИТЬ(A1;",";".")

Чтобы преобразовать результат в число, оберните формулу в ЗНАЧЕН:

=ЗНАЧЕН(ЗАМЕНИТЬ(A1;",";""))

Способ 3: Текст по столбцам (для импортированных данных)

При импорте данных из CSV или TXT Excel часто неправильно распознаёт разделители. Если запятые появились после открытия внешнего файла, используйте инструмент Текст по столбцам:

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

Выделите столбец с данными.
Перейдите на вкладку Данные → Текст по столбцам.
Выберите С разделителями → Далее.
Снимите галочку с Запятая (если она стоит) или добавьте её, если запятая — разделитель полей.
Нажмите Готово.

⚠️ Внимание: Если в данных есть десятичные дроби (например, 1,25), этот метод разделит число на две части: 1 и 25. В таком случае лучше использовать ЗАМЕНИТЬ или макрос.

Что делать, если "Текст по столбцам" не помогает?

Если после применения инструмента запятые остались, проверьте:

1. Наличие невидимых символов (например, неразрывный пробел). Используйте =ЧИСТ(A1) для очистки.

2. Формат ячейки — он должен быть Общий или Текстовый на этапе импорта.

3. Региональные настройки Windows (см. Способ 5).

Способ 4: Макрос для массовой обработки (для продвинутых пользователей)

Если запятых много и они появляются регулярно, автоматизируйте процесс с помощью VBA. Этот скрипт удалит первую запятую во всех выделенных ячейках:

Sub RemoveFirstComma()
Dim cell As Range
For Each cell In Selection
If InStr(1, cell.Value, ",") > 0 Then
cell.Value = Replace(cell.Value, ",", "", 1, 1)
End If
Next cell
End Sub

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

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

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

cell.Value = Replace(cell.Value, ",", "", 1, 1)

на:

cell.Value = Replace(cell.Value, ",", "")

Способ 5: Изменение региональных настроек (если проблема в системе)

Иногда запятые появляются из-за региональных настроек Windows, где в качестве разделителя тысяч используется запятая, а десятичного знака — точка (европейский стандарт). Чтобы это исправить:

Для Windows 10/11:

Откройте Параметры → Время и язык → Регион.
В разделе Форматы данных выберите Дополнительные параметры даты, времени и региональных стандартов.
Перейдите на вкладку Форматы → нажмите Дополнительные параметры.
В поле Разделитель групп разрядов замените запятую на пробел или удалите символ.
Сохраните изменения и перезапустите Excel.

⚠️ Внимание: Изменение региональных настроек повлияет на отображение чисел во всех программах, а не только в Excel. Если вы работаете с международными документами, лучше использовать другие способы (например, ЗАМЕНИТЬ).

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

При удалении запятых пользователи часто сталкиваются с побочными эффектами. Вот типичные ошибки и их решения:

🔸 Числа превратились в даты → Измените формат ячейки на Текстовый перед применением формул.
🔸 Исчезли десятичные разряды → Используйте =ЗАМЕНИТЬ(A1;",";".") для замены запятой на точку.
🔸 Формулы не работают → Проверьте, не стоят ли в ячейках апострофы (признак текстового формата). Удалите их вручную или через НАЙТИ/ЗАМЕНИТЬ.
🔸 Макрос не запускается → Включите поддержку макросов в Файл → Параметры → Центр управления безопасностью → Параметры центра....

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

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

Почему после удаления запятой числа отображаются с экспонентой (например, 1.23E+04)?

Это научный формат Excel для больших чисел. Чтобы вернуть нормальный вид, расширьте столбец или измените формат на Числовой без десятичных знаков.

Можно ли удалить запятые во всём файле сразу?

Да, используйте НАЙТИ/ЗАМЕНИТЬ (Ctrl+H): в поле Найти введите ,, поле Заменить на оставьте пустым. Убедитесь, что в данных нет десятичных дробей!

Как удалить запятую только в начале числа (например, ",123")?

Используйте формулу:

=ЕСЛИ(ЛЕВСИМВ(A1)=",";ПРАВСИМВ(A1;ДЛСТР(A1)-1);A1)

или макрос с проверкой первого символа.

Почему после импорта CSV запятые остаются, даже если в настройках стоит точка?

Excel игнорирует региональные настройки при импорте CSV. Решение: откройте файл через Данные → Из текста/CSV и вручную укажите разделитель (обычно это точка с запятой ; для российских файлов).

Можно ли автоматизировать удаление запятых при открытии файла?

Да, с помощью макроса в событии Workbook_Open. Пример кода:

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In ThisWorkbook.Worksheets
ws.Cells.Replace What:=",", Replacement:="", LookAt:=xlPart
Next ws
End Sub

Вставьте его в модуль ThisWorkbook (откроется через Alt+F11).