Note: The other languages of the website are Google-translated. Back to English

Jak odstranit nebo odstranit všechny přeškrtnuté texty nebo znaky z buněk v aplikaci Excel?

Tento článek hovoří o odstranění všech přeškrtnutých textů nebo znaků z více buněk v aplikaci Excel.

Odstraňte všechny přeškrtnuté texty z buněk pomocí kódu VBA


Odstraňte všechny přeškrtnuté texty z buněk pomocí kódu VBA

Níže uvedený kód VBA vám pomůže odstranit všechny texty v buňkách, které byly označeny přeškrtnutím. Postupujte prosím následovně.

1. V listu obsahujícím přeškrtnuté texty, které je třeba odstranit, stiskněte Další + F11 současně otevřete Microsoft Visual Basic pro aplikace okno.

2. V Microsoft Visual Basic pro aplikace okno, klikněte prosím Vložit > Modul. Poté zkopírujte a vložte pod kód VBA do okna Kód.

Kód VBA: Odstraňte všechny přeškrtnuté texty z buněk

Sub DelStrikethroughText()
    Dim xRg As Range, xCell As Range
    Dim xStr As String
    Dim I As Long
    On Error Resume Next
    Set xRg = Application.InputBox("Please select range:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = Fase
        For Each xCell In xRg
            If IsNumeric(xCell.Value) And xCell.Font.Strikethrough Then
                xCell.Value = ""
            ElseIf Not IsNumeric(xCell.Value) Then
                For I = 1 To Len(xCell)
                    With xCell.Characters(I, 1)
                        If Not .Font.Strikethrough Then
                            xStr = xStr & .Text
                        End If
                    End With
                Next
                xCell.Value = xStr
                xStr = ""
            End If
        Next
    Application.ScreenUpdating = True
End Sub

3. zmáčkni F5 klíč nebo klikněte na Běh tlačítko pro spuštění kódu. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně vyberte rozsah obsahující přeškrtnuté texty, které odeberete, a poté klikněte na ikonu OK knoflík. Viz screenshot:

Poté jsou všechny texty označené přeškrtnutím okamžitě odstraněny z buněk, jak je uvedeno níže.


Související články:


Nejlepší kancelářské nástroje produktivity

Kutools pro Excel řeší většinu vašich problémů a zvyšuje vaši produktivitu o 80%

  • Opakované použití: Rychle vložte složité vzorce, grafy a cokoli, co jste dříve používali; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • Super Formula Bar (snadno upravit více řádků textu a vzorce); Rozložení pro čtení (snadno číst a upravovat velké množství buněk); Vložit do filtrovaného rozsahu...
  • Sloučit buňky / řádky / sloupce bez ztráty dat; Rozdělit obsah buněk; Zkombinujte duplicitní řádky / sloupce... Zabraňte duplicitním buňkám; Porovnat rozsahy...
  • Vyberte možnost Duplikovat nebo Jedinečný Řádky; Vyberte prázdné řádky (všechny buňky jsou prázdné); Super hledání a fuzzy hledání v mnoha sešitech; Náhodný výběr ...
  • Přesná kopie Více buněk beze změny odkazu na vzorec; Automaticky vytvářet reference do více listů; Vložte odrážky, Zaškrtávací políčka a další ...
  • Extrahujte text, Přidat text, Odebrat podle pozice, Odebrat mezeru; Vytváření a tisk mezisoučtů stránkování; Převod mezi obsahem buněk a komentáři...
  • Super filtr (uložit a použít schémata filtrů na jiné listy); Rozšířené řazení podle měsíce / týdne / dne, frekvence a dalších; Speciální filtr tučnou kurzívou ...
  • Kombinujte sešity a pracovní listy; Sloučit tabulky na základě klíčových sloupců; Rozdělte data do více listů; Dávkový převod xls, xlsx a PDF...
  • Více než 300 výkonných funkcí. Podporuje Office / Excel 2007-2021 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Plné funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.
karta kte 201905

Office Tab přináší do Office rozhraní s kartami a usnadňuje vám práci

  • Povolte úpravy a čtení na kartách ve Wordu, Excelu, PowerPointu, Publisher, Access, Visio a Project.
  • Otevřete a vytvořte více dokumentů na nových kartách ve stejném okně, nikoli v nových oknech.
  • Zvyšuje vaši produktivitu o 50%a snižuje stovky kliknutí myší každý den!
officetab dno
Komentáře (10)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
To nefunguje. Excel přejde do stavu Nereaguje.
Tento komentář byl moderátorem webu minimalizován
Dobrý den,
Omluvám se za nepříjemnost. Poskytli byste svou verzi Office? Děkuji za Váš komentář.
Tento komentář byl moderátorem webu minimalizován
Já taky.

Používám Office 365 ProPlus
Tento komentář byl moderátorem webu minimalizován
Funguje v malém měřítku. Předpokládám, že důvod, proč to přejde do stavu Nereaguje, je ten, že makro trvá věčnost, když máte k dispozici spoustu dat. Toto makro kontroluje přeškrtnutí každého jednotlivého znaku.

Doporučil bych přidat kód, který po dokončení přeformátuje buňku, protože jsem měl několik buněk, kde kód odstranil přeškrtnutý text, ale zbývající text byl stále přeškrtnutý. Věřím, že je to proto, že formátování celé buňky bylo přeškrtnuté a nepřeškrtnutý text byl formátován jinak, takže jen pro informaci.
Tento komentář byl moderátorem webu minimalizován
dá se to udělat přes python, pandy?
Pokud ano, může mi někdo pomoci, jak to implementovat?
Tento komentář byl moderátorem webu minimalizován
Ahoj Girish,
Kód nebyl testován v pythonu, pandas. S tím vám bohužel nepomůžu. Děkuji za komentář.
Tento komentář byl moderátorem webu minimalizován
Používám to na celý sloupec a můj excel se nikdy nevrátí....
Tento komentář byl moderátorem webu minimalizován
ahoj sane,
Poskytli byste verzi Excelu, kterou používáte?
Kód v mém případě funguje dobře.
Omluvám se za nepříjemnost.
Tento komentář byl moderátorem webu minimalizován
Ahoj lidi, tohle mi fungovalo, ale v některých případech to nějak změní text, který není formátován jako přeškrtnutý jako přeškrtnutý. Snadná oprava pro návrat zpět a kontrolu dat v konkrétních případech a zrušení přeškrtnutí rozsahu.
Tento komentář byl moderátorem webu minimalizován
Dobrý den, jakou verzi Excelu používáte?
Zatím zde nejsou žádné komentáře
Zanechte prosím své komentáře v angličtině
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění

Sociální sítě

Copyright © 2009 - www.extendoffice.com. | Všechna práva vyhrazena. Poháněno ExtendOffice. | |. | Sitemap
Microsoft a logo Office jsou ochranné známky nebo registrované ochranné známky společnosti Microsoft Corporation ve Spojených státech a / nebo jiných zemích.
Chráněno Sectigo SSL