Як видалити закреслення в Excel (3 способи)

Hugh West

16-10-2023 Формули Excel
  • Поділитися Цим
Hugh West

Незважаючи на те, що закреслені комірки читаються, це незручно для багатьох читачів. У цій статті ви дізнаєтеся, як видалити закреслення в Excel 3 простими способами.

Завантажити шаблон практики

Ви можете завантажити безкоштовний шаблон практики в Excel тут.

Видалення закреслень в Excel.xlsm

3 простих способи видалення закреслень в Excel

На прикладі наведеного нижче набору даних ми навчимося видаляти закреслення в Excel 3 різними способами.

1. Комбінація клавіш для видалення закреслень в Excel

Щоб видалити закреслення в Excel за допомогою Комбінація клавіш ,

  • По-перше, виділити комірки з закресленим.
  • Потім натисніть Ctrl+5 на клавіатурі.

Ось так. Просто натискаємо Ctrl+5 на клавіатурі прибере всі закреслення з ваших клітинок.

2. Функція форматування комірок для видалення закреслення в Excel

Ми можемо використовувати Excel Формат комірок функція видалення закреслень з комірок.

Сходинки:

  • По-перше, виділити комірки з закресленим.
  • Далі, в рамках Головна сторінка виберіть вкладку Формат комірок опція (показана на малюнку нижче).

  • Від Формат комірок у спливаючому вікні, перейдіть на сторінку Шрифт вкладка та зняти галочку встановіть прапорець навпроти Закреслення в рамках Ефекти варіант.
  • Преса ГАРАЗД. .

Цей процес видалить всі закреслення з ваших клітин.

3. VBA для видалення закреслених рядків з Excel

Якщо ви хочете видалити всі закреслені рядки з вашого Excel, то VBA є найбільш ефективним і безпечним методом досягнення поставленої мети.

Нижче наведено кроки для видалення закреслених рядків з Excel.

Сходинки:

  • Преса Alt + F11 на клавіатурі або перейдіть на вкладку Розробник - Visual Basic відкрити Редактор Visual Basic .

  • У вікні коду, що з'явилося, в рядку меню, що з'явилося, натисніть Вставка -> Модуль .

  • У вікні коду скопіюйте наступний код та вставте його. 
 Sub DeleteStrRows() Dim r As Range Dim iCheck As Boolean Dim i As Integer Dim iRows As Integer iRows = Selection.Rows.Count If iRows> 2 Then For i = iRows To 1 Step -1 iCheck = False For Each r In Selection.Rows(i).Cells iCheck = IsNull(r.Font.Strike Through) If Not iCheck Then iCheck = r.Font.Strike ThroughIf iCheck Then Exit For Next r If iCheck Then Selection.Rows(i).EntireRow.Delete Next i End If End Sub

Ваш код тепер готовий до запуску.

  • Повернутися до розділу аркуш, що цікавить де ваші закреслені рядки, виберіть рядки і Біжи макрос.

Це призведе до видалення всіх закреслених рядків з аркуша Excel.

Висновок

У цій статті ми показали вам, як видалити закреслення в Excel 3 різними та простими способами . Сподіваюся, що ця стаття була для вас корисною і не соромтеся задавати будь-які питання по темі.

Попередній пост Як розділити текст через пробіл за допомогою формули в Excel (5 способів)
Наступний пост Як знайти значення в діапазоні в Excel (3 способи)

Г’ю Вест — досвідчений тренер і аналітик Excel із понад 10-річним досвідом роботи в галузі. Він має ступінь бакалавра з бухгалтерського обліку та фінансів і ступінь магістра з ділового адміністрування. Г’ю має пристрасть до викладання та розробив унікальний підхід до викладання, який легко зрозуміти та дотримуватися. Його експертне знання Excel допомогло тисячам студентів і професіоналів у всьому світі вдосконалити свої навички та досягти успіху в кар’єрі. У своєму блозі Г’ю ділиться своїми знаннями зі світом, пропонуючи безкоштовні навчальні посібники з Excel та онлайн-навчання, щоб допомогти окремим особам і компаніям повністю розкрити свій потенціал.