Hur raderar jag snabbt varannan rad i Excel?

Hur raderar du snabbt varannan rad i Excel?

Om du snabbt vill radera varannan rad eller kolumn i Excel är huvudfrågan hur du snabbt kan välja varannan rad eller kolumn först och sedan tillämpa raderingsfunktionen på dem. Och den här artikeln kommer att visa dig några knepiga saker om hur du markerar varannan rad eller kolumn först och sedan raderar dem snabbt.

Ta bort varannan rad i Excel med filterkommando

Ta bort varannan rad i Excel med VBA-kod

Ta bort varannan rad eller kolumn i Excel med Kutools for Excel

Ta bort varannan rad i Excel med kommandot Filter

Microsoft Excels kommandot Filter kan hjälpa dig att snabbt filtrera varannan rad och sedan ta bort dem på en gång, gör så här:

1. Ange 0,1,0,1…,0,1…,0,1 i en tom kolumn vid sidan av originaldata. I det här fallet anger vi siffrorna i hjälpkolumn C. Se följande skärmdump:

2. Markera kolumn C och klicka på knappen Filter under fliken Data. Klicka sedan på pilknappen bredvid C1 och kryssa endast för 0 under alternativet Välj alla. Se skärmdump:

3. Då döljs alla rader med 1. Markera de synliga raderna med 0 och klicka på Hem > Ta bort > Ta bort arkrader för att ta bort dessa rader. Då raderas alla andra rader, och du måste klicka på knappen Filter igen för att bara visa raderna med 1. Se skärmdumpar:

4. Slutligen kan du ta bort hjälpkolumnen C som du behöver.

Ta bort varannan rad i Excel med VBA-kod

Faktiskt sett är VBA-makro också ett bra val för att lösa detta problem.

1. Håll ned Alt + F11-tangenterna i Excel och det öppnar Microsoft Visual Basic for Applications-fönstret.

2. Klicka på Infoga > Modul och klistra in följande makro i modulfönstret.

VBA-kod: Ta bort varannan rad i urvalet:

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. Tryck på F5-tangenten för att köra makrot. Därefter visas en dialogruta för att välja ett intervall. Se skärmdump:

4. Klicka sedan på OK, varannan rad i det valda intervallet från den andra raden raderas på en gång, se skärmdump:

Ta bort varannan rad eller kolumn i Excel med Kutools for Excel

För en nybörjaranvändare av Microsoft Excel, är det lite komplicerat att använda VBA-makron. Verktyget Select Interval Rows & Columns i Kutools for Excel kan hjälpa dig att radera varannan rad snabbt.

Kutools for Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning i 30 dagar.

När du har installerat Kutools for Excel gör du så här:

1. Välj det område som du vill ta bort varannan rad och tillämpa sedan detta verktyg genom att klicka på Kutools > Välj > Välj Intervall Rader & kolumner….

2. I dialogrutan Select Interval Rows & Columns (Välj intervallrader & kolumner) anger du inställningarna enligt följande skärmdump och klickar på OK-knappen för att välja varannan rad först.

3. Därefter väljs och markeras varannan rad i urvalet. Se skärmdump:

4. Sedan kan du snabbt radera de valda varannan rad genom att klicka på Home > Delete > Delete sheet rows för att radera alla dessa rader. Se skärmdumpar:

Klicka för att få mer information om den här funktionen Select Interval Rows & Columns.

Med den här funktionen kan du också ta bort var n:e rad eller kolumn efter behov.

Ladda ner och testa Kutools for Excel gratis nu!

Demo: Ta bort varannan rad eller kolumn med Kutools for Excel