Hur man tar bort varannan rad i Excel (eller var tionde rad)

Titta på video - Radera varannan rad i Excel

Ibland kan du behöva radera varannan rad (dvs alternativa rader) eller var tredje/fjärde/femte rad i Excel.

Ett exempel på detta kan vara när du har veckodata och du bara vill ha data i jämna veckor eller udda veckor. En annan kan vara när du får en datadump från en databas och all användbar data finns bara på varannan eller tredje rad.

Medan du alltid har möjlighet att manuellt välja och ta bort rader, är detta ineffektivt om du har en stor datamängd.

Det finns bättre sätt att göra detta.

I den här självstudien visar jag dig ett par sätt att ta bort varannan rad i Excel med en enkel filtreringsteknik. Och om du är cool med att använda en VBA -makrokod har jag också gett en kort VBA -kod som gör det med ett enda klick. Metoderna visas i det här handledningsarbetet för alla versioner av Excel (2007, 2010, 2013 och 2016)

Även om radering varannan rad i Excel kan vara ganska enkel, kan det vara en utmaning att ta bort varannan kolumn. Detta beror på att du inte kan filtrera kolumner i Excel (hur du kan filtrera rader). I det sista avsnittet i den här självstudien kommer jag också att visa dig några sätt att ta bort alternativa kolumner (eller varje n: e kolumn) i Excel.

Ta bort varannan rad genom att filtrera datauppsättningen (med hjälp av formel)

Om du på något sätt kunde filtrera alla jämna rader eller udda rader, skulle det vara superenkelt att ta bort dessa rader/poster.

Det finns ingen inbyggd funktion för att göra detta, men du kan använda en hjälparkolumn för att först dela in raderna i udda och jämna och sedan filtrera baserat på hjälpkolumnvärdet.

Anta att du har en datauppsättning som visas nedan, som har säljdata för varje säljare för två regioner (USA och Kanada) och att du vill ta bort data för Kanada.

Nedan följer stegen för att först filtrera och sedan radera varannan rad (som har data för Kanada):

1. Ange texten i cellen intill den sista kolumnrubriken HelperColumn (eller någon rubriktext som du vill att hjälpkolumnen ska ha)
2. I cellen under kolumnrubriken för hjälpen anger du följande formel: = ISEVEN (RAD ()). Kopiera denna formel för alla celler. Denna formel returnerar TRUE för alla jämna rader och FALSE för alla ODD -rader
3. Markera hela datamängden (inklusive cellerna där vi angav formeln i steget ovan).
4. Klicka på fliken Data
5. Klicka på ikonen Filter. Detta kommer att tillämpa ett filter på alla rubriker i datamängden
6. Klicka på ikonen Filter i HelperColumn -cellen.
7. Avmarkera alternativet TRUE (så endast FALSE -alternativet är valt)
8. Klicka på OK. Detta filtrerar data och visar bara de poster där HelperColumn -värdet är FALSE.
9. Markera alla filtrerade celler i hjälpkolumnen (exklusive rubriken)
10. Högerklicka på någon av de markerade cellerna och klicka på "Radera rad"
11. Klicka på OK i dialogrutan som öppnas. Detta kommer att ta bort alla synliga poster och du kommer bara att se rubrikraden från och med nu.
12. Klicka på fliken Data och klicka sedan på ikonen Filter. Detta kommer att ta bort filtret och du kommer att kunna se alla återstående poster.

Stegen ovan filtrerar varannan rad i datamängden och raderar sedan dessa rader.

Oroa dig inte för hjälpkolumnvärdena i detta skede. Den resulterande informationen har bara raderna för USA och alla rader i Kanada raderas. Du kan radera hjälpkolumnen nu.

Om du vill radera varannan rad från första raden och framåt, välj alternativet TRUE i steg 7 och avmarkera alternativet FALSE.

Obs! När du raderar raderna i Excel med ovanstående metod raderas också all data som du kan ha i hela (förutom den i datamängden). När du använder den här metoden, se till att du inte har något till vänster och höger om datauppsättningen som du tar bort.

Även om ovanstående metod är bra, har den två nackdelar:

1. Du måste lägga till en ny kolumn ( HelperColumn i vårt exempel ovan)
2. Det kan vara tidskrävande om du måste ta bort alternativa rader gör detta ofta

Relaterad handledning: Radera rader baserat på ett cellvärde (eller villkor) i Excel

Ta bort var tionde rad genom att filtrera datauppsättningen (med hjälp av formel)

I ovanstående metod visade jag dig hur du tar bort varannan rad (alternativ rad) i Excel.

Och du kan använda samma logik för att ta bort var tredje eller fjärde rad i Excel också.

Anta att du har en dataset som visas nedan och du vill ta bort alla var tredje rad.

Stegen för att radera var tredje rad är nästan densamma som den som täcks i avsnittet ovan (för att radera alternativa rader). Den enda skillnaden är i formeln som används i steg 2.

Nedan följer stegen för att göra detta:

1. Ange texten i cellen intill den sista kolumnrubriken HelperColumn (eller någon rubriktext som du vill att hjälpkolumnen ska ha)
2. Ange följande formel i cellen nedanför kolumnrubriken för hjälpen: = MOD (RAD (), 3) = 1. Denna formel returnerar TRUE för var tredje rad och FALSE för varannan rad.
3. Markera hela datamängden (inklusive cellerna där vi angav formeln i steget ovan).
4. Klicka på fliken Data
5. Klicka på ikonen Filter. Detta kommer att tillämpa ett filter på alla rubriker i datamängden
6. Klicka på ikonen Filter i HelperColumn -cellen.
7. Avmarkera alternativet SANT (så att endast alternativet FALSKT är valt)
8. Klicka på OK. Detta filtrerar data och visar bara de poster där HelperColumn -värdet är FALSE.
9. Markera alla celler i hjälpkolumnen
10. Högerklicka på någon av de markerade cellerna och klicka på Radera rad
11. Klicka på OK i dialogrutan som öppnas. Detta kommer att ta bort alla synliga poster och du kommer bara att se rubrikraden från och med nu.
12. Klicka på fliken Data och klicka sedan på ikonen Filter. Detta kommer att ta bort filtret och du kommer att kunna se alla återstående poster.

Stegen ovan tar bort var tredje rad från datamängden och du får den resulterande informationen enligt nedan.

Oroa dig inte för hjälpkolumnvärdena i detta skede. Du kan radera hjälpkolumnen nu.

Formeln som används i steg 2 använder MOD -funktionen - som ger resten när ett tal divideras med det andra. Här har jag använt ROW -funktionen för att få radnumret och det är dividerat med 3 (eftersom vi vill ta bort var tredje rad).

Eftersom vår dataset börjar från den andra raden och framåt (dvs rad #2 innehåller den första posten) använder jag följande formel:= MOD (RAD (), 3) = 1

Jag jämställer det till 1 och för var tredje rad kommer MOD -formeln att ge resten som 1.

Du kan justera formeln därefter. Till exempel, om din dataset första post börjar från tredje raden och framåt, skulle formeln vara = MOD (RAD (), 3) = 2

Radera automatiskt varannan rad (eller n: e raden) med VBA -makro (snabbmetod)

Om du måste ta bort varannan rad (eller var tionde rad) ganska ofta kan du använda en VBA -kod och ha den tillgänglig i verktygsfältet Snabbåtkomst. Detta gör att du snabbt kan ta bort alternativa rader med ett enda klick.

Nedan finns koden som först uppmanar dig att välja intervallet där du vill radera alternativa rader och sedan radera varannan rad i den valda datamängden.

Sub Delete_Every_Other_Row () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excluding headers)", "Range Selection", Type: = 8) For i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Sedan Rng.Rows (i). Radera End If Next i End Sub

När du kör ovanstående kod kommer den först att be dig att välja cellintervall. När du har gjort valet går det igenom varje rad och raderar varannan rad.

Om du vill ta bort var tredje rad istället kan du använda koden nedan:

Sub Delete_Every_Third_Row () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excluding headers)", "Range Selection", Type: = 8) For i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Sedan Rng.Rows (i). Radera End If Next i End Sub

Var ska man lägga denna VBA -makrokod?

Du måste placera den här koden i en vanlig modul i VB -redigeraren i Excel.

Nedan följer stegen för att öppna Vb Editor, lägga till en modul och placera koden i den:

1. Kopiera ovanstående VBA -kod.
2. Gå till fliken Utvecklare.
3. Klicka på Visual Basic.
4. I VB Editor, högerklicka på något av arbetsbokobjekten.
5. Gå till Infoga och klicka på Modul.
6. Klistra in ovanstående VBA -kod i modulen.
7. Stäng VB -redigeraren.

När du har koden i VB Editor kan du använda följande metoder för att köra koden:

• Kör ett makro från VB Editor (genom att klicka på den gröna uppspelningsknappen i VB Editor -verktygsfältet)
• Genom att placera markören på valfri rad i koden och använda F5 -tangenten
• Genom att tilldela makrot till en knapp/form
• Genom att lägga till makrot i verktygsfältet Snabbåtkomst

Här är en detaljerad handledning om hur du kör ett makro i Excel.

Om du måste göra detta ofta kan du överväga att lägga till VBA -koden i Personal Macro Workbook. På så sätt kommer det alltid att vara tillgängligt för dig i alla arbetsböcker.

När du har en VBA-kod i en arbetsbok måste du spara den som en makroaktiverad arkiverad (med filtillägget .XLSM)

Obs! Eftersom alla ändringar som görs av VBA-koden är irreversibla är det bäst att först göra en säkerhetskopia av arbetsboken/kalkylbladet och sedan köra den här koden.

Ta bort varannan kolumn (eller varannan kolumn)

Att ta bort varje alternativ rad eller var tredje/fjärde rad är enkelt eftersom du kan använda filteralternativet. Allt du behöver göra är att använda en formel som identifierar alternativa rader (eller var tredje/fjärde rad) och filtrerar dessa rader.

Tyvärr fungerar samma metod inte med kolumner - eftersom du inte kan filtrera kolumner som du filtrerar rader.

Så om du måste radera varannan kolumn (eller var tredje/fjärde/n: e kolumn) måste du vara lite mer kreativ.

I det här avsnittet visar jag dig två metoder du kan använda för att radera varannan kolumn i Excel (och du kan använda samma metod för att ta bort var tredje/fjärde/n: e kolumn om du vill).

Ta bort alternativa kolumner med hjälp av formler och sorteringsmetod

Anta att du har en dataset som visas nedan och du vill ta bort varannan kolumn (exklusive rubrikkolumn A)

Tricket här skulle vara att identifiera alternativa kolumner med en formel och sedan sortera kolumnerna baserat på den formeln. När du väl har sorterat kolumnerna kan du välja och radera detta manuellt.

Nedan följer stegen för att radera varannan kolumn i Excel:

1. Infoga en rad ovanför rubrikraden (högerklicka på valfri cell i rubriken, klicka på Infoga och klicka sedan på hela radalternativet)
2. Ange följande formel i cellen ovanför kolumnen längst till vänster i datamängden och kopiera för alla celler: = MOD (COLUMN (), 2)
3. Konvertera formelvärdena till tal. För att göra detta, kopiera cellerna, högerklicka och gå till Klistra in special -> Klistra in värden.
4. Välj hela datamängden (exklusive eventuella rubriker i kolumnen). I det här exemplet har jag valt B1: G14 (och INTE kolumn A)
5. Klicka på fliken Data
6. Klicka på ikonen Sortera
7. Gör följande ändringar i dialogrutan Sortera:
   • Klicka på knappen "Alternativ" och i dialogrutan som öppnas, klicka på "Sortera från vänster till höger" och klicka sedan på Ok
   • Välj Rad 1. I rullgardinsmenyn Sortera efter. Detta är raden som har formelresultaten
   • I listrutan Beställning väljer du Minsta till största.
8. Klicka på OK

Stegen ovan sorterar alla kolumner och sammanför alla alternativa kolumner på ett ställe (i slutet).

Nu kan du välja alla dessa kolumner (för vilka formelvärdet är 1) och ta bort dessa.

Även om detta inte är den bästa lösningen, får det fortfarande arbetet gjort.

Om du vill ta bort var tredje kolumn eller var fjärde kolumn måste du justera formeln därefter.

Relaterad handledning: Hur man sorterar i Excel (efter rader, kolumner, färger, datum och siffror)

Ta bort alternativa kolumner med VBA

Ett annat snabbt sätt att ta bort alternativa kolumner är att använda nedanstående VBA -kod:

Sub Delete_Every_Other_Column () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excluding headers)", "Range Selection", Type: = 8) For i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Sedan Rng.Kolumner (i) .Radera Slut Om Nästa i Slut Sub

Koden ovan ber dig välja ett cellområde som har kolumnerna. Här måste du välja kolumnerna exklusive den som har rubriken.

När du har angett cellintervallet med data kommer den att använda en For Loop och ta bort varannan kolumn.

Om du vill ta bort var tredje kolumn kan du använda koden nedan (och justera därefter för att radera den n: e kolumnen)

Sub Delete_Every_Third_Column () Dim Rng As Range Set Rng = Application.InputBox ("Select the Range (Excluding headers)", "Range Selection", Type: = 8) For i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Sedan Rng.Kolumner (i) .Radera Slut Om Nästa i Avslut Sub

Stegen om var du ska placera denna VBA -kod och hur du använder den omfattas av avsnittet ovan med titeln - "Radera automatiskt varannan rad (eller n: e raden) med VBA -makro (snabbmetod)"

Hoppas du tyckte att denna Excel -handledning var användbar.