Kazalo
Čeprav so prečrtane celice berljive, so za mnoge bralce neprijetne. V tem članku boste izvedeli, kako na tri preproste načine odstraniti prečrtane celice v Excelu.
Prenesi predlogo za prakso
Brezplačno praktično predlogo Excel lahko prenesete s tega mesta.
Odstranjevanje prečrtanih črk v Excel.xlsm
3 preprosti načini za odstranitev prečrtane črte v Excelu
Z naslednjim naborom podatkov kot primerom se bomo naučili, kako v Excelu odstraniti prečrtane črte na tri različne načine.
1. Bližnjica na tipkovnici za odstranjevanje prečrtanih črk v Excelu
Odstranjevanje prečrtane črte iz programa Excel z Bližnjica na tipkovnici ,
- Najprej, izberite celice s prečrtanjem.
- Nato pritisnite Ctrl+5 na tipkovnici.
To je to. Preprosto pritisnite Ctrl+5 na tipkovnici odstranite vse prečrtane črte iz celic.
2. Funkcija oblikovanja celic za brisanje prečrtane črte v Excelu
Uporabimo lahko Excelov Oblikovanje celic funkcijo za brisanje prečrtane črte iz celic.
Koraki:
- Najprej, izberite celice s prečrtanjem.
- Nato v Domov izberite zavihek Oblikovanje celic (prikazano na spodnji sliki).
- Od Oblikovanje celic v pojavnem oknu pojdite v Pisava zavihek in odkljukajte potrditveno polje poleg Prečrtano v okviru Učinki možnost.
- Pritisnite V REDU .
S tem postopkom boste iz celic odstranili vse prečrtane črte.
3. VBA za odstranjevanje prečrtanih vrstic iz programa Excel
Če želite iz programa Excel izbrisati vse prečrtane vrstice, potem VBA je najučinkovitejša in najvarnejša metoda za izvedbo naloge.
Koraki za brisanje vrstic s prečrtanimi črkami iz programa Excel so navedeni spodaj.
Koraki:
- Pritisnite Alt + F11 na tipkovnici ali odprite zavihek Razvijalec -> Visual Basic da odprete Urejevalnik Visual Basic .
- V pojavnem oknu kode v menijski vrstici kliknite Vstavljanje -> Modul .
- V oknu s kodo kopirajte naslednjo kodo in jo prilepite.
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
Vaša koda je zdaj pripravljena za zagon.
- Vrnite se na interesni delovni list kjer so vaše črtane vrstice, izberite vrstice in . Spustite makro.
S tem boste iz delovnega lista programa Excel izbrisali vse vrstice s prečrtanimi črkami.
Zaključek
V tem članku je bilo prikazano, kako odstraniti prečrtavanje v Excelu na tri različne in preproste načine. . Upam, da vam je ta članek zelo koristil. Lahko vam zastavite kakršno koli vprašanje v zvezi s to temo.