Obsah
Aj keď sú prečiarknuté bunky čitateľné, pre mnohých čitateľov je to nepríjemné. V tomto článku sa dozviete, ako odstrániť prečiarknutie v programe Excel 3 jednoduchými spôsobmi.
Stiahnite si šablónu pre prax
Bezplatnú cvičnú šablónu Excel si môžete stiahnuť odtiaľto.
Odstránenie prečiarknutia v programe Excel.xlsm
3 jednoduché spôsoby odstránenia prečiarknutia v programe Excel
Na nasledujúcom príklade súboru údajov sa naučíme, ako odstrániť prečiarknutie v programe Excel tromi rôznymi spôsobmi.
1. Klávesová skratka na odstránenie prečiarknutia v programe Excel
Odstránenie prečiarknutia z aplikácie Excel pomocou Klávesová skratka ,
- Po prvé, vyberte bunky prečiarknutím.
- Potom stlačte tlačidlo Ctrl+5 na klávesnici.
To je všetko. Jednoduché stlačenie Ctrl+5 na klávesnici odstráni všetky prečiarknutia z buniek.
2. Funkcia formátovania buniek na odstránenie prečiarknutia v programe Excel
Môžeme použiť funkciu Excelu Formátovanie buniek na odstránenie prečiarknutia z buniek.
Kroky:
- Po prvé, vyberte bunky prečiarknutím.
- Ďalej v Domov vyberte kartu Formátovanie buniek možnosť (znázornená na obrázku nižšie).
- Z Formátovanie buniek vyskakovacie okno, prejdite na Písmo karta a zrušte začiarknutie začiarkavacie políčko vedľa Prečiarknutie pod Účinky možnosť.
- Tlač OK .
Tento postup odstráni z buniek všetky prečiarknutia.
3. VBA na odstránenie prečiarknutých riadkov z programu Excel
Ak chcete z programu Excel odstrániť všetky prečiarknuté riadky, potom VBA je najefektívnejšia a najbezpečnejšia metóda na dosiahnutie tejto úlohy.
Nižšie sú uvedené kroky na odstránenie prečiarknutých riadkov z aplikácie Excel.
Kroky:
- Tlač Alt + F11 na klávesnici alebo prejdite na kartu Vývojár -> Visual Basic otvoriť Editor jazyka Visual Basic .
- Vo vyskakovacom okne kódu kliknite na paneli ponúk na položku Vložiť -> Modul .
- V okne kódu skopírujte nasledujúci kód a vložte ho.
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 Váš kód je teraz pripravený na spustenie.
- Vráťte sa k pracovný list záujmu kde sa nachádzajú prečiarknuté riadky, vybrať riadky a Spustiť makro.
Týmto odstránite všetky prečiarknuté riadky z pracovného hárka programu Excel.
Záver
Tento článok vám ukázal, ako odstrániť prečiarknutie v programe Excel 3 rôznymi a jednoduchými spôsobmi . Dúfam, že tento článok bol pre vás veľmi prínosný. Neváhajte a položte akékoľvek otázky týkajúce sa tejto témy.
