Jeśli poważnie szukasz kodu VBA, który pomoże ci usunąć wszystkie wiersze na podstawie określonego tekstu znajdującego się w określonej kolumnie, ten artykuł jest dla Ciebie. W tym artykule dowiemy się, jak usunąć wiersz, jeśli określony tekst znajduje się w kolumnie.
Pytanie): Mam plik, w którym potrzebuję tylko tych wierszy, które mają „Produkt B” w kolumnie B. Chcę usunąć wszystko inne. Czy ktoś może mi pomóc napisać makro? Poniżej znajduje się migawka danych, które posiadamy: 
Musimy wykonać poniższe kroki:
- Kliknij kartę Deweloper
- Z grupy Kod wybierz Visual Basic
Wprowadź następujący kod w standardowym module:
Sub Usuń wiersz()
Z Sheet1.Cells(1).CurrentRegion.Columns(2)
.Autofiltr 1, „Produkt B”
.Usuń cały wiersz
Kończyć z
Napis końcowy
Wyjaśnienie kodu:
Krok 1) Powyższy kod wybierze bieżący region z kolumny 2, tj. Kolumna produktu
Krok 2) Zastosuj filtr
Krok 3) Widoczne komórki zostaną usunięte z całym wierszem. Usuń kod. Reszta danych, tj. gdzie produkt B istnieje w kolumnie B, będzie naszym wyjściem.
W ten sposób za pomocą kodu VBA możemy usuwać wiersze spełniające określone warunki.
Pobierz - Usuń wiersze na podstawie warunków - xlsm