Jak usunąć przekreślenie w programie Excel (3 sposoby)

  • Udostępnij To
Hugh West

Nawet jeśli komórki strikethrough są czytelne, jest to niewygodne dla wielu czytelników. W tym artykule dowiesz się, jak usunąć strikethrough w programie Excel na 3 proste sposoby.

Pobierz szablon praktyki

Darmowy szablon Excela z praktyką można pobrać stąd.

Usuń przekreślenie w Excelu.xlsm

3 proste sposoby na usunięcie przekreślenia w Excelu

Na poniższym zbiorze danych jako naszym przykładzie dowiemy się, jak usunąć strikethrough w Excelu na 3 różne sposoby.

1. skrót klawiaturowy do usuwania przekreślenia w Excelu

Aby usunąć przekreślenie z programu Excel za pomocą Skrót klawiaturowy ,

  • Po pierwsze, wybrać komórki z przekreśleniem.
  • Następnie naciśnij Ctrl+5 na swojej klawiaturze.

To wszystko. Po prostu wciskanie Ctrl+5 na klawiaturze usunie wszystkie przekreślenia z komórek.

2. funkcja Formatuj komórki, aby usunąć przekreślenie w Excelu

Możemy skorzystać z funkcji Excela Formatuj komórki Funkcja usuwania przekreślenia z komórek.

Kroki:

  • Po pierwsze, wybrać komórki z przekreśleniem.
  • Następnie, w Strona główna zakładka, wybierz Formatuj komórki opcja (widoczna na poniższym zdjęciu).

  • Z. Formatuj komórki w wyskakującym okienku, przejdź do Czcionka zakładka i odznaczyć pole wyboru obok Przekreślenie pod Efekty opcja.
  • Naciśnij OK .

Ten proces usunie wszystkie strikethrough z twoich komórek.

3. VBA do usuwania przekreślonych wierszy z programu Excel

Jeśli chcesz usunąć wszystkie wiersze z przekreśleniem z Excela, to VBA jest najskuteczniejszą i najbezpieczniejszą metodą realizacji zadania.

Kroki, aby usunąć wiersze strikethrough z programu Excel są podane poniżej.

Kroki:

  • Naciśnij Alt + F11 na klawiaturze lub przejdź do zakładki Programista -> Visual Basic otworzyć Edytor Visual Basic .

  • W wyskakującym oknie kodu, na pasku menu, kliknij Insert -> Moduł .

  • W oknie kodu skopiuj poniższy kod i wklej go.
 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.Strikethrough) If Not iCheck Then iCheck = r.Font.StrikethroughIf iCheck Then Exit For Next r If iCheck Then Selection.Rows(i).EntireRow.Delete Next i End If End Sub 

Twój kod jest teraz gotowy do uruchomienia.

  • Wróć do arkusz zainteresowań gdzie znajdują się Twoje wiersze ze strikethrough, zaznaczyć wiersze oraz Uruchom makro.

Spowoduje to usunięcie wszystkich wierszy z przekreśleniem z arkusza Excela.

Wniosek

Ten artykuł pokazał Ci, jak usunąć strikethrough w Excelu na 3 różne i łatwe sposoby . Mam nadzieję, że ten artykuł był dla Ciebie bardzo korzystny. Zapraszam do zadawania wszelkich pytań związanych z tematem.

Hugh West jest bardzo doświadczonym trenerem i analitykiem Excela z ponad 10-letnim doświadczeniem w branży. Posiada tytuł licencjata w dziedzinie rachunkowości i finansów oraz tytuł magistra administracji biznesowej. Hugh ma pasję do nauczania i opracował unikalne podejście do nauczania, które jest łatwe do naśladowania i zrozumienia. Jego specjalistyczna wiedza na temat programu Excel pomogła tysiącom studentów i profesjonalistów na całym świecie doskonalić swoje umiejętności i osiągać doskonałe wyniki w karierze. Za pośrednictwem swojego bloga Hugh dzieli się swoją wiedzą ze światem, oferując bezpłatne samouczki programu Excel i szkolenia online, aby pomóc osobom indywidualnym i firmom w pełni wykorzystać swój potencjał.