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

Проблема со словом «дело» в таблицах: когда и почему это мешает

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

В этой статье разберём 7 способов удалить «дело» из ячеек — от элементарной замены до сложных формул и VBA-скриптов. Все методы протестированы на Excel 2010—2026, Google Sheets и LibreOffice Calc. Выбирайте подходящий в зависимости от объёма данных и вашего уровня владения программой.

Способ 1: Быстрая замена через «Найти и заменить»

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

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

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

Убедитесь, что слово "дело" не входит в состав других слов (например, "деловой")

Проверьте регистр (если нужно удалить "Дело" с большой буквы, включите опцию "Учитывать регистр")

Сохраните копию файла перед массовой заменой

Протестируйте замену на небольшом диапазоне-->

⚠️ Внимание: Если в таблице есть ячейки с формулами, замена может их испортить. Например, формула =СЦЕПИТЬ("Дело "; A1) после замены превратится в =СЦЕПИТЬ(" "; A1), что приведёт к ошибкам.

Способ 2: Удаление «дело» с учётом регистра и символов

Если слово «дело» встречается в разных вариациях («Дело», «ДЕЛО», «дело:»), простой замены недостаточно. Здесь поможет регулярные выражения (в Google Sheets и LibreOffice) или комбинация функций в Excel.

Для Excel используйте формулу массива (нажмите Ctrl+Shift+Enter):

=ЕСЛИОШИБКА(ПОДСТАВИТЬ(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A1; "дело"; ""); "Дело"; ""); "ДЕЛО"; ""); A1)

В Google Sheets и LibreOffice можно использовать регулярное выражение:

=REGEXREPLACE(A1; "(?i)дело"; "")

Флаг (?i) делает поиск нечувствительным к регистру.

Способ 3: Удаление «дело» только в начале или конце ячейки

Часто слово «дело» стоит в начале («Дело №123») или конце («Отчёт по делу») ячейки. Для таких случаев подойдут функции работы с текстом:

Если «дело» в начале:

=ЕСЛИ(ЛЕВСИМВ(A1; 4)="дело"; ПРАВСИМВ(A1; ДЛСТР(A1)-4); A1)

Если «дело» в конце (с учётом пробела):

=ЕСЛИ(ПРАВСИМВ(A1; 5)=" дело"; ЛЕВСИМВ(A1; ДЛСТР(A1)-5); A1)

Для Google Sheets используйте аналоги:

=IF(LEFT(A1; 4)="дело"; RIGHT(A1; LEN(A1)-4); A1)

В начале ячейки

В конце ячейки

В середине текста

В разных местах -->

Способ 4: Разделение текста по разделителю

Если «дело» является частью структурированного текста (например, «Дело|№123|Иванов»), удобно использовать функцию «Текст по столбцам»:

1. Выделите столбец с данными.
2. Перейдите в Данные → Текст по столбцам.
3. Выберите «С разделителями» → укажите символ-разделитель (например, | или пробел).
4. Нажмите «Готово» — текст разобьётся на отдельные столбцы, а «дело» можно будет просто удалить.

⚠️ Внимание: Если разделителей несколько (например, «Дело №123, Иванов П.С.»), предварительно замените их на один символ через ПОДСТАВИТЬ(), чтобы избежать ошибок при разделении.

Способ 5: Power Query для массовой обработки

Если данных много (тысячи строк), а «дело» встречается в разных вариациях, оптимально использовать Power Query (доступен в Excel 2016+ и Excel 365). Этот инструмент позволяет создавать многоступенчатые правила очистки без формул.

Инструкция:

1. Выделите таблицу → Данные → Из таблицы/диапазона (в Excel 2016+).
2. В редакторе Power Query выберите столбец → Преобразовать → Заменить значения.
3. Введите дело в поле «Значение для поиска», оставьте пустым поле «Заменить на».
4. Примените изменения и загрузите данные обратно в Excel.

Преимущество Power Query — возможность сохранить шаги очистки и применить их к новым данным автоматически. Например, если ежемесячно поступают отчёты с «делом» в названиях, достаточно обновить запрос.

Способ 6: Макрос VBA для автоматизации

Для продвинутых пользователей или повторяющихся задач напишите простой макрос. Он удалит «дело» во всех ячейках выделенного диапазона, включая варианты с разным регистром и знаками препинания.

Код макроса:

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

For Each cell In rng
If Not IsEmpty(cell.Value) Then
cell.Value = Replace(cell.Value, "дело", "", vbTextCompare)
cell.Value = Replace(cell.Value, "Дело", "", vbTextCompare)
cell.Value = Replace(cell.Value, "ДЕЛО", "", vbTextCompare)
' Удаляем лишние пробелы после замены
cell.Value = WorksheetFunction.Trim(cell.Value)
End If
Next cell
End Sub

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

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

Способ 7: Условное форматирование для визуальной очистки

Если удалять «дело» нельзя (например, это часть официального названия), но оно мешает восприятию, используйте условное форматирование, чтобы скрыть его визуально:

1. Выделите диапазон → Главная → Условное форматирование → Создать правило.
2. Выберите «Использовать формулу» и введите:

=НЕ(ПОИСК("дело"; A1; 1))

3. Установите формат шрифта — белый цвет (сливается с фоном).

⚠️ Внимание: Текст остаётся в ячейке и будет виден при копировании или печати. Этот метод подходит только для визуальной маскировки.

FAQ: Частые вопросы об удалении «дело» в Excel

=ЕСЛИ(И(НЕ(ЕОШ(ПОИСК(" дело "; " "&A1&" "))); ЕОШ(ПОИСК("делопроизводство"; A1))); ПОДСТАВИТЬ(A1; " дело "; " "); A1)

=ЕСЛИ(ДЛСТР(A1)-ДЛСТР(ПОДСТАВИТЬ(A1; "дело"; ""))=10; ПОДСТАВИТЬ(A1; "дело"; ""; 1); A1)

=ЗАМЕНИТЬ(A1; НАЙТИ("дело"; A1); 5; "")

=ЕСЛИ(НАЙТИ("дело"; A1); ЗАМЕНИТЬ(A1; НАЙТИ("дело"; A1); 5; ""); A1)

=ГИПЕРССЫЛКА(REGEXEXTRACT(ФОРМУЛАТЕКСТ(A1); "=.+?;"); REGEXREPLACE(REGEXEXTRACT(ФОРМУЛАТЕКСТ(A1); ";.+"); "(?i)дело"; ""))