Note: The other languages of the website are Google-translated. Back to English
Přihlásit se  \/ 
x
or
x
Registrovat  \/ 
x

or

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.

Doc remove if not bold 1

Odstraňte řádky, pokud nejsou tučně označeny VBA

Odstraňte buňky, pokud nejsou vyznačeny tučně pomocí funkce Najít a nahradit a Vybrat pomocníka rozsahu

Odstraňte řádky / buňky, pokud nejsou tučně, pomocí Kutools pro Excel dobrý nápad3


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.

Doc remove if not bold 2

A pak můžete vidět, že řádky, které neobsahují tučně označené buňky, byly odstraněny

Doc remove if not bold 1doc šipka vpravoDoc remove if not bold 3

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:

Doc remove if not bold 4

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:

Doc remove if not bold 5

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:

Doc remove if not bold 6

4. Pak nechte tyto buňky vybrané a klikněte Kutools > vybrat > Vyberte Range Helper. Viz snímek obrazovky:

Doc remove if not bold 7

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:

Doc remove if not bold 8

6. cvaknutí zavřít. Nyní stiskněte Vymazat klíč k odebrání obsahu buňky z buněk, které nejsou tučně.

Doc remove if not bold 9


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:

Doc remove if not bold 15

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:

Doc remove if not bold 11

3. cvaknutí Oka objeví se dialogové okno, které vám připomene počet vybraných buněk, stačí kliknout Ano zavřít.

Doc remove if not bold 12

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:

Doc remove if not bold 13doc šipka vpravoDoc remove if not bold 14

Relativní č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-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.
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 omezuje stovky kliknutí myší každý den!
officetab dno
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.