Ten post poprowadzi Cię, jak usunąć co drugi wiersz za pomocą polecenia filtru w programie Excel. Jak usunąć każdy inny wiersz w wybranym zakresie na arkuszu kalkulacyjnym przez Excel VBA Macro.
Usuń każdy inny wiersz za pomocą polecenia filtru
Aby usunąć każdy inny wiersz w Excelu, musisz filtrować naprzemienne wiersze, a następnie wybrać te wiersze i usunąć je jednocześnie. Musisz więc utworzyć kolumnę pomocniczą, używając funkcji MOD z funkcją ROW, wystarczy wykonać następujące czynności:
#1 wpisz formułę =MOD(ROW(),2) w jednej komórce obok oryginalnych danych i naciśnij klawisz Enter, a następnie przeciągnij uchwyt automatycznego wypełniania nad inne komórki, aby wygenerować liczby 0,1 w każdej komórce.

#2 zaznacz kolumnę pomocnika, przejdź do zakładki DANE, kliknij polecenie Filtr w grupie Sortuj & Filtr. W komórkach nagłówkowych pojawią się rozwijane strzałki filtrów.

#3 kliknij strzałkę filtru w kolumnie pomocnika i z rozwijanej listy filtrów wybierz pole wyboru 0.

#4 zobaczysz, że wszystkie wiersze „1” są ukryte, zaznacz wszystkie widoczne wiersze „0”, a następnie kliknij prawym przyciskiem myszy na zakres wyboru i kliknij Usuń wiersz.


#5 wszystkie wiersze z wartościami „0” zostaną usunięte. Następnie kliknij ponownie przycisk Filtr na kolumnie pomocnika, aby usunąć autofiltr.

#6 możesz usunąć kolumnę pomocnika.

Usuń co drugi wiersz za pomocą VBA
Możesz również użyć makra VBA programu Excel, aby usunąć co drugi wiersz. Wykonaj następujące czynności:
#1 kliknij polecenie „Visual Basic” w zakładce DEVELOPER.
#2 następnie pojawi się okno „Edytor Visual Basic”.
#3 kliknij przycisk „Wstaw”->”Moduł” aby utworzyć nowy moduł.
#464>wklej poniższy kod VBA do okna kodu. Następnie kliknij przycisk „Zapisz”.

Sub DeleteEveryOtherRow() Dim r As Range Dim IR As Range Set IR = Application.Selection Set IR = Application.InputBox("Select one Range :", "Delete Every Other Row", IR.Address, Type:=8) Application.ScreenUpdating = False For i = IR.Rows.Count To 1 Step -2 Set r = IR.Cells(i, 1) r.EntireRow.Delete Next Application.ScreenUpdating = TrueEnd Sub
#5 wróć do bieżącego arkusza, a następnie uruchom powyższe makro Excela. Kliknij przycisk Uruchom.

#6 Wybierz jeden zakres, który chcesz usunąć co drugi wiersz.

#7 Zobaczmy wynik.

Funkcje powiązane
- Funkcja ROW programu Excel
Funkcja ROW programu Excel zwraca numer wiersza odwołania do komórki.Funkcja ROW jest wbudowaną funkcją w programie Microsoft Excel i jest skategoryzowana jako funkcja wyszukiwania i funkcja odniesienia.Składnia funkcji ROW jest następująca:= ROW ()…. - Funkcja MOD programu Excel
Funkcja MOD programu Excel zwraca resztę z dwóch liczb po podziale. Tak więc można użyć funkcji MOD, aby uzyskać resztę po podzieleniu liczby przez dzielnik w programie Excel. Składnia funkcji MOD jest następująca:=MOD (liczba, dzielnik)….
.