Obsah
Přestože jsou přeškrtnuté buňky čitelné, pro mnoho čtenářů je to nepříjemné. V tomto článku se dozvíte, jak odstranit přeškrtnutí v Excelu třemi snadnými způsoby.
Stáhnout šablonu pro praxi
Bezplatnou cvičnou šablonu Excel si můžete stáhnout zde.
Odstranění přeškrtnutí v aplikaci Excel.xlsm
3 snadné způsoby odstranění přeškrtnutí v aplikaci Excel
Na následujícím příkladu se naučíme, jak odstranit přeškrtnutí v aplikaci Excel třemi různými způsoby.
1. Klávesová zkratka pro odstranění přeškrtnutí v aplikaci Excel
Odstranění přeškrtnutí z aplikace Excel pomocí Klávesová zkratka ,
- Za prvé, vybrat buňky přeškrtnutím.
- Pak stiskněte tlačítko Ctrl+5 na klávesnici.
To je vše. Jednoduše stiskněte Ctrl+5 na klávesnici odstraníte z buněk přeškrtnutí.
2. Funkce formátování buněk pro odstranění přeškrtnutí v aplikaci Excel
Můžeme použít funkci aplikace Excel Formátování buněk odstranit přeškrtnutí z buněk.
Kroky:
- Za prvé, vybrat buňky přeškrtnutím.
- Dále v Home vyberte kartu Formátování buněk (na obrázku níže).
- Z Formátování buněk vyskakovací okno, přejděte na Písmo karta a zrušte zaškrtnutí zaškrtávací políčko vedle Přeškrtnutí pod Účinky možnost.
- Tisk OK .
Tímto postupem odstraníte z buněk všechny přeškrtnuté znaky.
3. VBA pro odstranění přeškrtnutých řádků z aplikace Excel
Pokud chcete z aplikace Excel odstranit všechny přeškrtnuté řádky, pak VBA je nejefektivnější a nejbezpečnější metodou pro splnění úkolu.
Níže jsou uvedeny kroky k odstranění přeškrtnutých řádků z aplikace Excel.
Kroky:
- Tisk Alt + F11 na klávesnici nebo přejděte na kartu Vývojář -> Visual Basic otevřít Editor jazyka Visual Basic .
- Ve vyskakovacím okně kódu klikněte na panelu nabídek na možnost Insert -> Modul .
- V okně kódu zkopírujte a vložte následující kód.
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 nyní připraven ke spuštění.
- Vraťte se na pracovní list zájmu kde jsou přeškrtnuté řádky, vybrat řádky a Spustit makro.
Tím odstraníte všechny přeškrtnuté řádky z pracovního listu aplikace Excel.
Závěr
Tento článek vám ukázal, jak odstranit přeškrtnutí v aplikaci Excel třemi různými a snadnými způsoby. . Doufám, že pro vás byl tento článek velmi přínosný. Neváhejte se zeptat na jakékoli otázky týkající se tohoto tématu.
