Jak odstranit buňky nebo řádky, pokud nejsou v aplikaci Excel tučně?
Předpokládejme, že máte řadu dat s tučnými buňkami a ne tučnými buňkami, jak je ukázáno níže, nyní potřebujete odstranit buňky nebo řádky, pokud nejsou tučně. Namísto ručního odstraňování buněk, které nejsou tučně, tento tutoriál zavádí triky, jak to rychle vyřešit v aplikaci Excel.
Odstraňte řádky, pokud nejsou tučně označeny VBA
Odstraňte řádky / buňky, pokud nejsou tučně, pomocí Kutools pro Excel
v Odstraňte řádky, pokud nejsou tučně označeny VBA
Chcete-li odstranit řádky, pokud nejsou tučně, můžete použít kód VBA ke zpracování.
1. lis F11 + Alt klávesy pro povolení Microsoft Visual Basic pro aplikace okno.
2. cvaknutí Vložit > Modul, poté vložen pod kód VBA do nového Modul okno.
VBA: Odstraňte řádky, pokud nejsou tučně.
Sub DeleteNonBolded() 'UpdatebyKutoolsforExcel20151116 Dim xRg As Range Dim xDelRg As Range Dim xAddress As String Dim xUpdate As Boolean Dim I As Long Dim xBold As Variant On Error Resume Next xAddress = Application.ActiveWindow.RangeSelection.Address Set xRg = Application.InputBox("Select a range", "Kutools for Excel", xAddress, , , , , 8) Set xRg = Application.Intersect(xRg, ActiveSheet.UsedRange) If xRg Is Nothing Then Exit Sub If xRg.Areas.Count > 1 Then MsgBox "This VBA cannot support multiple range", , "Kutools for Excel" Exit Sub End If xUpdate = Application.ScreenUpdating Application.ScreenUpdating = False For I = 1 To xRg.Rows.Count xBold = xRg.Rows(I).Cells.Font.Bold If TypeName(xBold) = "Boolean" Then If xBold = False Then If xDelRg Is Nothing Then Set xDelRg = xRg.Rows(I).EntireRow Else Set xDelRg = Union(xRg.Rows(I).EntireRow, xDelRg) End If End If End If Next xDelRg.Delete Application.ScreenUpdating = xUpdate End Sub
3. lis F5 klíč ke spuštění kódu VBA. Ve vyskakovacím okně Kutools pro Excel V dialogovém okně zadejte rozsah, ve kterém odstraníte řádky bez tučných buněk, a klikněte na OK tlačítko.
A pak můžete vidět, že řádky, které neobsahují tučně označené buňky, byly odstraněny



Poznámka: řádky lze odstranit, pouze pokud nejsou všechny buňky ve stejné řadě tučně.
Odstraňte buňky, pokud nejsou vyznačeny tučně pomocí funkce Najít a nahradit a Vybrat pomocníka rozsahu
Pokud chcete pouze odstranit obsah buněk z buněk, které nejsou tučně, můžete pomocí funkce Najít a nahradit nejprve vybrat buňky tučně a poté použít Kutools pro ExcelJe Vyberte Range Helper pro zrušení výběru buněk, které nejsou tučně, pak odeberte obsah.
1. Vyberte rozsah dat, ze kterého chcete odstranit buňky, které nejsou tučně, a stiskněte Ctrl + F umožnit Najít a nahradit dialogové okno a klikněte na možnosti knoflík. Viz screenshot:
2. cvaknutí Formát přejděte na Najít formát dialogové okno a pod Písmo vyberte kartu kolík z Styl fontu seznam. Viz snímek obrazovky:
3. cvaknutí OK > Najít všea všechny tučné buňky jsou uvedeny v seznamu Najít a nahradit dialogové okno a stiskněte Ctrl + A vyberte je všechny a poté zavřete Najít a nahradit dialog. Viz screenshot:
4. Pak nechte tyto buňky vybrané a klikněte Kutools > vybrat > Vyberte Range Helper. Viz snímek obrazovky:
5. V rozbalovacím dialogovém okně zaškrtněte Inverzní výběr nejprve vyberte možnost a poté vyberte původní rozsah dat. Nyní můžete vidět, že výběr je obrácen. Viz screenshot:
6. cvaknutí zavřít. Nyní stiskněte Vymazat klíč k odebrání obsahu buňky z buněk, které nejsou tučně.
Odstraňte řádky / buňky, pokud nejsou tučně, pomocí Kutools pro Excel
Výše uvedené metody nejsou dostatečně snadné, v tomto případě můžete použít Kutools pro ExcelJe Vyberte buňky s formátem nástroj pro rychlou identifikaci buněk s tučným písmem a jejich odstranění.
Kutools pro Excel, s více než 300 užitečné funkce, které vám usnadní práci. | ||
Po instalace zdarma Kutools pro Excel, prosím, postupujte takto:
1. Vyberte požadovaný datový rozsah a klikněte na Kutools > vybrat > Vyberte buňky s formátem. Viz snímek obrazovky:
2. V rozbalovacím dialogovém okně klikněte na Vyberte Formát z buňky tlačítko vyberte jednu buňku s tučným písmem z rozsahu dat a poté zkontrolujte kolík pouze z níže uvedeného seznamu v části Písmo. Viz screenshot:
3. cvaknutí Oka objeví se dialogové okno, které vám připomene počet vybraných buněk, stačí kliknout Ano zavřít.
Nyní jsou vybrány všechny buňky, které nejsou tučně, a stiskněte Vymazat klíč k odebrání obsahu buňky. Nebo pokud chcete odstranit řádky, které nejsou tučně, klikněte pravým tlačítkem na některou z vybraných buněk a vyberte Vymazat > Celá řada. Zobrazit snímky obrazovky:



Odstraňte buňky / řádky, pokud nejsou tučně
Relativní články:
- Jak převést hypertextové odkazy na prostý text v aplikaci Excel?
- Jak počítat, zda buňky začínají nebo končí konkrétním textem v aplikaci Excel?
- Jak počítat a odstraňovat duplikáty ze seznamu v aplikaci Excel?
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-2019 a 365. Podporuje všechny jazyky. Snadné nasazení ve vašem podniku nebo organizaci. Kompletní funkce 30denní bezplatná zkušební verze. 60denní záruka vrácení peněz.

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 omezuje stovky kliknutí myší každý den!

You are guest
or post as a guest, but your post won't be published automatically.
Be the first to comment.