Jak szybko usunąć co drugi wiersz w programie Excel?

Jeśli chcesz szybko usunąć co drugi wiersz lub kolumnę w programie Excel, głównym celem jest szybkie wybranie najpierw co drugiego wiersza lub kolumny, a następnie zastosowanie do nich operacji usuwania. W tym artykule dowiesz się, jak najpierw wybrać co drugi wiersz lub kolumnę, a następnie szybko je usunąć.

Usuń co drugi wiersz w programie Excel za pomocą polecenia Filtruj

Usuń co drugi wiersz w programie Excel za pomocą kodu VBA

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

Usuń co drugi wiersz w programie Excel za pomocą polecenia Filtruj

Microsoft Excel's FILTRY polecenie może pomóc szybko przefiltrować co drugi wiersz, a następnie usunąć je od razu, wykonaj następujące czynności:

1. W pustej kolumnie obok oryginalnych danych wprowadź 0,1,0,1…, 0,1. W tym przypadku wpisujemy liczby w kolumnie pomocniczej C. Zobacz poniższy zrzut ekranu:

2. Wybierz kolumnę C i kliknij FILTRY przycisk pod Dane patka. Następnie kliknij przycisk strzałki obok C1 i zaznacz tylko 0 pod Zaznacz wszystko opcja. Zobacz zrzut ekranu:

3. Następnie wszystkie wiersze z 1 są ukryte. Wybierz widoczne wiersze z 0 i kliknij Strona główna > Usuń > Usuń wiersze arkusza aby usunąć te wiersze. Następnie usuwa co drugi wiersz i musisz kliknąć FILTRY ponownie, aby wyświetlić tylko wiersze z 1. Zobacz zrzuty ekranu:

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

Usuń co drugi wiersz w programie Excel za pomocą kodu VBA

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

1. Przytrzymaj przycisk inny + F11 klucze w programie Excel i otwiera plik Microsoft Visual Basic for Applications okno.

2. Kliknij wstawka > Modułi wklej następujące makro w Moduł Okno.

Kod VBA: Usuń co drugi wiersz w zaznaczeniu:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Naciśnij F5 klucz do uruchomienia tego makra. Następnie pojawia się okno dialogowe wyboru zakresu. Zobacz zrzut ekranu:

4. Następnie kliknij OK, co drugi wiersz w wybranym zakresie z drugiego wiersza jest usuwany od razu, patrz zrzut ekranu:

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

Dla początkującego użytkownika programu Microsoft Excel używanie makra VBA jest nieco skomplikowane. Plik Wybierz Wiersze i kolumny przedziałów użyteczność Kutools dla programu Excel może pomóc szybko usunąć co drugi wiersz.

Po zainstalowaniu Kutools dla programu Excelwykonaj następujące czynności:

1. Wybierz zakres, który chcesz usunąć co inne wiersze, a następnie zastosuj to narzędzie, klikając plik Kutools > Wybierz > Wybierz Wiersze i kolumny z przedziałami czasu….

2. W Wybierz Wiersze i kolumny przedziałów w oknie dialogowym określ ustawienia, jak pokazano na poniższym zrzucie ekranu, i kliknij OK , aby najpierw wybrać co pozostałe wiersze.

3. Następnie co drugi wiersz w zaznaczeniu jest zaznaczony i podświetlony. Zobacz zrzut ekranu:

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

Dzięki tej funkcji możesz również usunąć co n-ty wiersz lub kolumnę, zgodnie z potrzebami.

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