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

Jak vymazat obsah buňky na základě podmínky v Excelu?

Někdy může být nutné vymazat obsah buňky na základě podmínek v Excelu, jako je vymazání obsahu buňky, pokud buňka obsahuje určitou hodnotu, vymazání obsahu buňky, pokud jsou prázdné buňky v jiném sloupci, nebo vymazání obsahu buňky s konkrétní barvou pozadí atd. Tento článek představí některé triky pro rychlé a snadné řešení těchto úkolů.

Vymazat obsah buňky Na základě hodnoty buňky pomocí kódu VBA

Vymažte celé řádky, pokud je hodnota větší nebo menší než konkrétní hodnota s kódem VBA

Vymažte obsah buňky nebo řádku na základě hodnoty buňky pomocí praktické funkce

Vymažte celé řádky, pokud je jiná buňka prázdná s kódem VBA

Vymažte obsah buňky na základě barvy pozadí pomocí kódu VBA


Vymazat obsah buňky Na základě hodnoty buňky pomocí kódu VBA

Máte například následující rozsah dat, nyní chcete vymazat obsah buňky, který je „Mikina s kapucí“, níže uvedený kód VBA vám může udělat laskavost.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Vymaže obsah buňky, pokud se buňka rovná konkrétní hodnotě

Sub ClearContents()
'Updateby ExtendOffice
 Dim xRng As Range
 Dim xCell As Range
 Dim xText As String
 Set xRng = Application.Range("A2:A12")
 xText = "Hoodie" 'Change this text to your own
 For Each xCell In xRng
 If xCell.Value = xText Then
 xCell.clearContents
 End If
 Next xCell
End Sub
Poznámka: Ve výše uvedeném kódu, A2: A12 je rozsah dat, ze kterého chcete vymazat obsah buňky, text „Mikina” je konkrétní hodnota, kterou chcete vymazat. Změňte je prosím na své vlastní.

3. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a všechny buňky s textem „Hoodie“ se vymažou najednou, viz snímek obrazovky:


Vymažte celé řádky, pokud je hodnota větší nebo menší než konkrétní hodnota s kódem VBA

Předpokládejme, že máte níže uvedený rozsah dat, abyste vymazali celý obsah řádku, pokud je hodnota ve sloupci D větší nebo menší než 300. Zde vytvořím kód VBA, který jej dokončí.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula vložte následující kód do okna modulu.

Kód VBA: Vymažte celé řádky, pokud je hodnota buňky větší nebo menší než konkrétní hodnota

Sub ClearRowInValue()
'Updateby ExtendOffice
Dim xRg As Range
Dim xStrAddress As String
Dim xStrValue As Integer
Dim xCell As Range
Dim xRowRg As Range
Dim xF As Integer
Dim xBol As Boolean
xStrAddress = "D2:D12" 'Change cell range
xStrValue = 300 'change the value
Set xRg = Range(xStrAddress)
For xF = xRg.Rows.Count To 1 Step -1
    Set xRowRg = xRg.Rows.Item(xF)
    xBol = False
    For Each xCell In xRowRg.Cells
        If Application.IsNumber(xCell.Value) Then
        If xCell.Value > xStrValue Then
        xBol = True
        Exit For
        End If
        End If
    Next
    If xBol Then
        xRowRg.EntireRow.clearContents
    End If
Next
End Sub
Poznámka: Ve výše uvedeném kódu, D2: D12 je rozsah dat obsahuje konkrétní hodnotu, na základě které chcete vymazat řádky; 300 je konkrétní hodnota; a > postava ve scénáři Pokud xCell.Value > xStrValue Then znamená větší než, použít menší než, změnit na < charakter, jak potřebujete.

3. Pak stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a veškerý obsah řádku se vymaže, pokud je hodnota ve sloupci D větší než 300, viz snímek obrazovky:


Vymažte obsah buňky nebo řádku na základě hodnoty buňky pomocí praktické funkce

Pokud máte Kutools pro Excel, S jeho Vyberte konkrétní buňky můžete vybrat buňky nebo řádky na základě konkrétní hodnoty a poté obsah buňky najednou odstranit.

Po instalaci Kutools pro Excel, udělejte prosím toto:

1. Vyberte oblast dat s hodnotami, na jejichž základě chcete vymazat obsah buňky nebo řádku, a potom klepněte Kutools > vybrat > Vyberte konkrétní buňky, viz screenshot:

2. V otevřeném Vyberte konkrétní buňky dialogové okno, proveďte následující operace:

  • klikněte Buňka or Celá řada které chcete vybrat;
  • Upřesněte kritéria pod Specifický typ sekce, jak potřebujete. Zde chci vybrat řádky, jejichž hodnota ve sloupci D je větší než 300.

3. Pak klikněte na tlačítko Ok a vyberou se všechny řádky s hodnotou větší než 300. Nyní stačí stisknout klávesu Delete na klávesnici a smazat obsah buňky, viz snímek obrazovky:

Tipy: Existuje mnoho dalších kritérií, která můžete použít, zadejte prosím svou vlastní podmínku z dialogového okna, jak je uvedeno níže:

Vymažte data řádků v rozsahu, pokud obsahuje prázdnou buňku s kódem VBA

V tomto případě, pokud buňka v rozsahu dat obsahuje nějaké prázdné místo, chci vymazat data řádků z rozsahu, jak je znázorněno na obrázku níže.

Chcete-li dokončit tento úkol, použijte následující kód VBA:

1. Podržte stisknuté tlačítko ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula poté vložte následující kód do Modul Okno.

Kód VBA: Vymažte data řádků, pokud obsahuje prázdnou buňku

Sub ClearContents()
'Updateby ExtendOffice
Dim xcell As Range
Set xrng = Application.Range("A2:D12")
For Each xcell In xrng
If xcell.Value = "" Then
Intersect(xcell.EntireRow, xrng).ClearContents
End If
Next
End Sub
Poznámka: Ve výše uvedeném kódu, A2: D12 je rozsah dat obsahuje prázdné buňky, ze kterých chcete vymazat obsah buněk.

3. Poté stiskněte tlačítko F5 klíč ke spuštění tohoto kódu a data řádků s prázdnými buňkami se vymažou najednou v konkrétním rozsahu, jak potřebujete.


Vymažte obsah buňky na základě barvy pozadí pomocí kódu VBA

Chcete-li vymazat buňky, které jsou vyplněny určitou barvou pozadí, můžete použít následující kód VBA.

1. Podržte ALT + F11 klávesy pro otevření Microsoft Visual Basic pro aplikace okno.

2, klikněte Vložit > Modula poté vložte následující kód do Modul Okno.

Kód VBA: Vymažte obsah buňky na základě barvy pozadí

Sub Clearcontents()
'Updateby ExtendOffice
Dim xcell As Range
Dim xrng As Range
Set xrng = Application.Range("A2:D12")
    For Each xcell In xrng
        If xcell.Interior.Color = RGB(252, 228, 214) Then
            xcell.Clearcontents
        End If
    Next
End Sub
Poznámka: Ve výše uvedeném kódu, A2: D12 je rozsah dat, který chcete použít, RGB (252, 228, 214) je konkrétní barva, na základě které chcete vymazat buňky, můžete extrahovat režim RGB barvy pozadí pomocí Malovat program na vašem počítači.

3. A pak stiskněte F5 klíč ke spuštění tohoto kódu a obsah buňky se zadanou barvou pozadí se okamžitě vymaže. Viz snímek obrazovky:



  • 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 a uchovávání údajů; Rozdělit obsah buněk; Zkombinujte duplicitní řádky a součet / průměr... 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ší ...
  • Oblíbené a rychlé vkládání vzorců„Rozsahy, grafy a obrázky; Šifrovat buňky s heslem; Vytvořte seznam adresátů a posílat e-maily ...
  • 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...
  • Seskupování kontingenčních tabulek podle číslo týdne, den v týdnu a další ... Zobrazit odemčené, zamčené buňky různými barvami; Zvýrazněte buňky, které mají vzorec / název...
karta kte 201905
  • 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
Komentáře (0)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění