Jak szybko usunąć co drugi wiersz w Excelu?

Jak szybko usunąć każdy inny wiersz w Excelu?

Jeśli chcesz szybko usunąć każdy inny wiersz lub kolumnę w programie Excel, głównym punktem jest to, jak można szybko wybrać każdy inny wiersz lub kolumnę najpierw, a następnie zastosować operację usuwania do nich. A ten artykuł pokaże ci kilka podstępnych rzeczy na temat tego, jak najpierw wybrać każdy inny wiersz lub kolumnę, a następnie szybko je usunąć.

Usuwanie co drugiego wiersza w Excelu za pomocą polecenia Filtr

Usuwanie co drugiego wiersza w Excelu za pomocą kodu VBA

Usuwanie co drugiego wiersza lub kolumny w Excelu za pomocą Kutools for Excel

.

Usuń co drugi wiersz w Excelu za pomocą polecenia Filtr

Polecenie Filtr w programie Microsoft Excel może pomóc Ci szybko filtrować co drugi wiersz, a następnie usunąć je jednocześnie, proszę wykonać następujące czynności:

1. W pustej kolumnie obok oryginalnych danych wpisz 0,1,0,1…,0,1. W tym przypadku wprowadzamy liczby w pomocniczej kolumnie C. Zobacz następujący zrzut ekranu:

2. Wybierz kolumnę C i kliknij przycisk Filtr w zakładce Dane. Następnie kliknij przycisk strzałki obok C1 i zaznacz tylko 0 pod opcją Wybierz wszystko. Zobacz zrzut ekranu:

3. Następnie wszystkie wiersze z 1 są ukryte. Wybierz widoczne wiersze z 0, a następnie kliknij przycisk Strona główna > Usuń > Usuń wiersze arkusza, aby usunąć te wiersze. Następnie usuwa każdy inny wiersz i trzeba ponownie kliknąć przycisk Filtr, aby pokazać tylko wiersze z 1. Zobacz zrzuty ekranu:

4. W końcu możesz usunąć kolumnę pomocniczą C, jak potrzebujesz.

Usuń co drugi wiersz w Excelu z kodem VBA

Właściwie, makro VBA jest również dobrym wyborem do rozwiązania tego problemu.

1. Przytrzymaj klawisze Alt + F11 w programie Excel, a otworzy się okno Microsoft Visual Basic for Applications.

2. Kliknij przycisk Wstaw >Moduł i wklej następujące makro w oknie modułu.

Kod VBA: Usuń co drugi wiersz w zaznaczeniu:

Sub DeleteEveryOtherRow()'Updateby ExtendofficeDim rng As RangeDim InputRng As RangexTitleId = "KutoolsforExcel"Set InputRng = Application.SelectionSet InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)Application.ScreenUpdating = FalseFor i = InputRng.Rows.Count To 1 Step -2 Set rng = InputRng.Cells(i, 1) rng.EntireRow.DeleteNextApplication.ScreenUpdating = TrueEnd Sub

3. Naciśnij klawisz F5, aby uruchomić to makro. Następnie pojawi się okno dialogowe do wyboru zakresu. Zobacz zrzut ekranu:

4. Następnie kliknij przycisk OK, każdy inny wiersz w wybranym zakresie od drugiego wiersza jest usuwany jednocześnie, patrz zrzut ekranu:

Usuń co drugi wiersz lub kolumnę w Excelu za pomocą Kutools for Excel

Dla początkującego użytkownika programu Microsoft Excel, używanie makra VBA jest trochę skomplikowane. The Select Interval Rows & Columns utility of Kutools for Excel can help you delete every other row quickly.

Kutools for Excel : z ponad 300 poręcznymi dodatkami do Excela, bezpłatnie do wypróbowania bez ograniczeń w ciągu 30 dni.

Po zainstalowaniu Kutools for Excel, proszę wykonać następujące czynności:

1. Wybierz zakres, który chcesz usunąć co drugi wiersz, a następnie zastosuj to narzędzie, klikając przycisk Kutools > Select > Select Interval Rows & columns….

2. W oknie dialogowym Wybierz przedział wierszy & kolumn, określ ustawienia jak na poniższym zrzucie ekranu i kliknij przycisk OK, aby najpierw wybrać każdy inny wiersz.

3. Następnie każdy inny wiersz w zaznaczeniu zostanie wybrany i podświetlony. Zobacz zrzut ekranu:

4. Następnie można szybko usunąć wybrane co drugi wiersz, klikając przycisk Strona główna > Usuń > Usuń wiersze arkusza, aby usunąć wszystkie te wiersze. Zobacz zrzuty ekranu:

Kliknij, aby dowiedzieć się więcej o tej funkcji Select Interval Rows & Columns.

Z tą funkcją, można również usunąć co nth wierszy lub kolumn, jak trzeba.

Pobierz i bezpłatną wersję próbną Kutools dla programu Excel teraz!

Demo: Usuń co drugi wiersz lub kolumnę z Kutools dla programu Excel

.