Как зачеркнуть текст в Excel: все способы от формата ячеек до VBA

Зачеркнутый текст в Microsoft Excel — это не просто декоративный элемент, а мощный инструмент визуальной организации данных. Им отмечают выполненные задачи в чек-листах, устаревшие цены в прайсах или исключённые варианты в аналитических отчётах. Но если в Word эта функция доступна в один клик, то в Excel её часто приходится искать по меню — особенно новичкам.

Проблема усугубляется тем, что в разных версиях программы (2010, 2016, 2019, Microsoft 365) путь к зачеркиванию может отличаться. А в мобильной версии Excel для Android/iOS этот инструмент и вовсе спрятан так глубоко, что пользователи тратят минуты на поиски. Эта статья закрывает вопрос раз и навсегда: здесь вы найдёте все актуальные способы добавить зачеркивание, включая горячие клавиши, условное форматирование и даже автоматизацию через VBA.

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

1. Классический способ: через формат ячеек

Это базовый метод, который работает во всех версиях Excel — от Excel 2007 до Microsoft 365 2026. Подходит для разового зачеркивания отдельных ячеек или диапазонов.

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

1. Выделите ячейку или диапазон с текстом (например, A1:A10).
2. Нажмите правой кнопкой мыши и выберите «Формат ячеек» (или используйте комбинацию Ctrl+1).
3. В открывшемся окне перейдите на вкладку «Шрифт».
4. Поставьте галочку напротив «Зачёркнутый» и нажмите «ОК».

Если вам нужно зачеркнуть текст в нескольких несмежных ячейках (например, A1, C3, E5), выделяйте их с зажатой клавишей Ctrl. Этот способ сохраняет исходное форматирование текста (жирный, курсив, цвет), добавляя только зачеркивание.

2. Горячие клавиши для быстрого зачеркивания

Для тех, кто работает с Excel ежедневно, комбинации клавиш экономят часы в год. К сожалению, в Excel нет встроенной горячей клавиши для зачеркивания, но её можно создать самостоятельно или использовать обходные пути.

Способ 1: Через панель быстрого доступа

1. Нажмите на стрелочку вниз на панели быстрого доступа (рядом с кнопкой «Отменить»).
2. Выберите «Другие команды» → «Настройка панели быстрого доступа».
3. В выпадающем списке «Выбрать команды из» укажите «Все команды».
4. Найдите команду «Зачёркнутый» (она называется именно так!) и добавьте её на панель.

Теперь зачеркнуть текст можно в один клик по новой кнопке на панели.

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

Sub StrikeThroughText()
If TypeName(Selection) = "Range" Then
With Selection.Font
.Strikethrough = Not .Strikethrough
End With
End If
End Sub

Назначьте этому макросу комбинацию клавиш через Alt+F8 → «Параметры». Теперь зачеркивание будет доступно по вашей персональной горячей клавише.

3. Условное форматирование: автоматическое зачеркивание

Это самый мощный метод, если зачеркивание должно применяться динамически — например, для выполненных задач или просроченных дат. Рассмотрим на примере чек-листа:

Допустим, у вас в столбце A список задач, а в столбце B стоит «Выполнено» или «Не выполнено». Нам нужно автоматически зачеркивать задачи из столбца A, если в соответствующей ячейке столбца B стоит «Выполнено».

Инструкция:

1. Выделите диапазон с задачами (например, A2:A100).
2. Перейдите на вкладку «Главная» → «Условное форматирование» → «Создать правило».
3. Выберите тип правила: «Использовать формулу для определения форматируемых ячеек».
4. Введите формулу:

   =$B2="Выполнено"

   Обратите внимание на $B2 — знак доллара фиксирует столбец B, но позволяет формуле автоматически подстраиваться под строки.

5. Нажмите «Формат», перейдите на вкладку «Шрифт» и поставьте галочку у «Зачёркнутый».

Теперь при изменении статуса в столбце B текст в столбце A будет зачеркиваться автоматически. Этот метод работает и для дат (например, зачеркивать просроченные задачи), и для числовых значений (например, зачеркивать нулевые остатки на складе).

=И($B2="Выполнено"; $C2

Sub StrikeThroughNegatives()
Dim cell As Range
For Each cell In Selection
If IsNumeric(cell.Value) And cell.Value < 0 Then
cell.Font.Strikethrough = True
Else
cell.Font.Strikethrough = False
End If
Next cell
End Sub

If cell.Value = "" Or cell.Value = "Н/Д" Then

=ЕСЛИ(A1="Выполнено"; "~~" & A1 & "~~"; A1)

Sub RemoveAllStrikethrough()
Cells.Font.Strikethrough = False
End Sub