Как убрать слово «руб» в Excel: от простой замены до автоматических правил

Слово «руб» (или его варианты: «руб.», «р.», «RUB») — одна из самых распространённых «загрязняющих» меток в таблицах Excel. Оно появляется при импорте данных из бухгалтерских программ, выгрузках из 1С, банковских выписок или даже при ручном вводе. Проблема в том, что наличие текста мешает проводить математические операции, строить графики или использовать функции вроде СУММ(). Например, если в ячейке записано 1000 руб, Excel воспринимает это как текст, а не как число 1000.

В этой статье разберём 7 рабочих способов удалить «руб» из ячеек — от элементарной замены до продвинутых инструментов вроде Power Query и VBA. Каждый метод проиллюстрирован скриншотами (для Excel 2019/365) и адаптирован под разные сценарии: от разовой чистки небольшого диапазона до автоматизации обработки тысяч строк. Также вы узнаете, как избежать типичных ошибок, например, когда после удаления «руб» числа превращаются в даты или теряют разряды.

1. Быстрая замена через «Найти и заменить»

Самый простой способ — использовать встроенную функцию замены. Он подходит, если «руб» встречается в чистом виде (без пробелов или других символов) и не является частью сложного текста.

Как это сделать:

• 📌 Выделите диапазон ячеек (или весь лист комбинацией Ctrl+A).
• 🔍 Нажмите Ctrl+H (или перейдите на вкладку Главная → Найти и выделить → Заменить).
• 📝 В поле Найти: введите «руб» (или «руб.», «р.» — в зависимости от формата).
• 🗑️ Поле Заменить на: оставьте пустым.
• 🔄 Нажмите Заменить всё.

⚠️ Внимание: Если после «руб» стоит пробел (например, 1000 руб ), Excel не удалит его автоматически. В этом случае в поле Найти: добавьте пробел после слова: руб␣ (где ␣ — символ пробела). Чтобы увидеть пробелы, включите отображение непечатаемых знаков кнопкой ¶ на вкладке Главная.

2. Формулы для удаления «руб» с сохранением чисел

Если вам нужно сохранить исходные данные и создать очищенную копию в новых ячейках, используйте формулы. Это безопаснее, чем замена «на месте», особенно когда работаете с важными данными.

Варианты формул в зависимости от формата:

🔹 Пояснения:

• 🔢 Двойной минус (--) перед ЗАМЕНИТЬ преобразует текст в число.
• 📏 Функция ПСТР извлекает подстроку по позиции пробела (найденного через НАЙТИ).
• 💰 Для валютных кодов вроде RUB или USD используйте ПРАВСИМВ или ЛЕВСИМВ, отсекая фиксированное количество символов.

Создайте резервную копию данных|Убедитесь, что в ячейках нет скрытых пробелов|Проверьте формат чисел после очистки (должен быть "Общий" или "Числовой")|Тестируйте формулу на 2-3 примерах перед массовым применением-->

3. Текст по столбцам: разделитель для сложных форматов

Если «руб» — часть сложной строки с другими символами (например, 1000 руб. (НДС 20%)), используйте инструмент Текст по столбцам. Он разобьёт данные на части по разделителю.

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

1. Выделите столбец с данными.
2. Перейдите на вкладку Данные → Текст по столбцам.
3. Выберите С разделителями → Далее.
4. Установите флажок Пробел (или укажите другой разделитель, например, скобку ().
5. Нажмите Готово.

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

4. Power Query: автоматическая очистка больших массивов

Для обработки тысяч строк (например, в выгрузках из 1С или банковских отчётах) удобнее использовать Power Query — инструмент ETL (извлечение, преобразование, загрузка), встроенный в Excel 2016 и новее.

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

1. Выделите диапазон данных и нажмите Данные → Из таблицы/диапазона (или Данные → Получить данные → Из таблицы/диапазона в Excel 2016).
2. В открывшемся редакторе Power Query выделите столбец с валютами.
3. На вкладке Преобразование выберите Заменить значения:
• 🔍 Значение для поиска: «руб»
• 🗑️ Замена: (пусто)

⚠️ Внимание: Если после очистки числа отображаются с запятыми как разделителями тысяч (например, 1,000), в Power Query добавьте шаг Заменить значения для запятой на пустое значение. Или измените региональные настройки Excel на Английский (США) перед загрузкой.

5. VBA-макрос для пакетной обработки

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

• 🔄 Удаляет «руб», «руб.», «р.», «RUB» (регистронезависимо).
• 📊 Преобразует текстовые числа в числовой формат.
• 🖥️ Работает с выделенным диапазоном или всем листом.

Код макроса:

Sub CleanRub()
Dim rng As Range, cell As Range
Dim patterns As Variant
patterns = Array("руб", "руб.", "р.", "RUB", " rub", " rub.")

' Проверяем, выделен ли диапазон
If TypeName(Selection) = "Range" Then
Set rng = Selection
Else
Set rng = ActiveSheet.UsedRange
End If

Application.ScreenUpdating = False
For Each cell In rng
Dim originalText As String
originalText = cell.Value
Dim cleanedText As String
cleanedText = originalText

' Удаляем все варианты "руб"
Dim i As Integer
For i = LBound(patterns) To UBound(patterns)
cleanedText = Replace(cleanedText, patterns(i), "", vbTextCompare)
Next i

' Преобразуем в число, если возможно
If IsNumeric(cleanedText) Then
cell.Value = Val(cleanedText)
cell.NumberFormat = "General"
Else
cell.Value = cleanedText
End If
Next cell
Application.ScreenUpdating = True
MsgBox "Очистка завершена! Обработано " & rng.Cells.Count & " ячеек.", vbInformation
End Sub

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

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

6. Очистка через Google Sheets (если Excel недоступен)

Если вы работаете в Google Таблицах, алгоритм похож на Excel, но есть нюансы:

🔹 Способ 1: Замена

• 📌 Выделите диапазон.
• 🔍 Нажмите Ctrl+H (или Правка → Найти и заменить).
• 🗑️ В поле Заменить на оставьте пустое значение.
• ⚙️ Отметьте галочку С учётом регистра, если нужно удалить только «руб» в нижнем регистре.

🔹 Способ 2: Формула REGEXREPLACE

Для сложных форматов (например, 1 000,50 руб.) используйте:

=ARRAYFORMULA(IFERROR(VALUE(REGEXREPLACE(A1:A; "[^0-9,]"; ""))); ""))

Эта формула:

• 🧹 Удаляет все символы, кроме цифр и запятых ([^0-9,]).
• 🔢 Преобразует результат в число (VALUE).
• ⚠️ Игнорирует ошибки (IFERROR), если ячейка пустая.

7. Типичные ошибки и как их избежать

Даже после удаления «руб» данные могут вести себя некорректно. Разберём самые частые проблемы:

🔸 Проблема 1: Числа отображаются как текст (зелёный треугольник в углу ячейки).

⚠️ Внимание: Это означает, что Excel не распознаёт значение как число. Чтобы исправить:

• 📌 Выделите ячейки → жёлтый значок ошибки → Преобразовать в число.
• 🔄 Или используйте формулу =ЗНАЧЕН(A1) в соседнем столбце.

🔸 Проблема 2: После удаления «руб» числа округляются (например, 1000.5 становится 1001).

⚠️ Внимание: Это происходит, если исходные данные были в текстовом формате с запятой как разделителем дробной части. Перед очисткой замените запятую на точку через Найти и заменить (; → .).

🔸 Проблема 3: В некоторых ячейках остаются «обрывки» текста (например, 1000у вместо 1000руб).

⚠️ Внимание: Это значит, что в данных использовались неразрывные пробелы (HTML-код  ) или другие непечатаемые символы. Чтобы их увидеть, включите отображение всех знаков через Главная → Абзац (¶). Для удаления используйте формулу:

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

где СИМВОЛ(160) — это неразрывный пробел.

FAQ: Частые вопросы

=ЕСЛИ(ЗНАЧЕН(ПОДСТАВИТЬ(A1;"руб";""))>5000; ПОДСТАВИТЬ(A1;"руб";""); A1)

=ОКРУГЛ(ЗНАЧЕН(ПОДСТАВИТЬ(A1;"руб";"")); 2)

Sub CleanRubInFolder()
Dim folderPath As String, fileName As String
Dim wb As Workbook, ws As Worksheet
folderPath = "C:\Путь\к\папке\" ' Укажите свою папку
fileName = Dir(folderPath & ".xls")

Do While fileName <> ""
Set wb = Workbooks.Open(folderPath & fileName)
For Each ws In wb.Worksheets
ws.UsedRange.Replace "руб", "", xlPart
ws.UsedRange.Replace "руб.", "", xlPart
Next ws
wb.Close SaveChanges:=True
fileName = Dir()
Loop
MsgBox "Очистка завершена!", vbInformation
End Sub