Odstranit řádky podle podmínek

Anonim

Pokud jste vážně po kódu VBA, který vám pomůže s odstraněním všech řádků na základě konkrétního textu nalezeného v konkrétním sloupci, pak je tento článek pro vás. V tomto článku se naučíme, jak odstranit řádek, pokud se konkrétní text nachází ve sloupci.

Otázka): Mám soubor, kde potřebuji pouze ty řádky, které mají ve sloupci B. „Produkt B“. Chci odstranit vše ostatní. Může mi někdo prosím pomoci s napsáním makra? Následuje snímek dat, která máme:

Musíme postupovat podle následujících kroků:

  • Klikněte na kartu Vývojář
  • Ze skupiny kódů vyberte Visual Basic

Do standardního modulu zadejte následující kód:

Sub DeleteRow ()

S Sheet1.Cells (1) .CurrentRegion.Columns (2)

.AutoFilter 1, „Produkt B“

.EntireRow.Delete

Konec s

End Sub

Vysvětlení kódu:

Krok 1) Výše ​​uvedený kód vybere aktuální oblast ze sloupce 2, tj. Sloupce Produkt

Krok 2) Použijte filtr

Krok 3) Viditelné buňky budou odstraněny s celým řádkem. Smazat kód. Zbytek dat, tj. Tam, kde produkt B existuje ve sloupci B, bude naším výstupem.

Tímto způsobem můžeme pomocí kódu VBA odstranit řádky splňující konkrétní podmínky.

Stáhnout - Odstranit řádky na základě podmínek - xlsm