Hogyan lehet gyorsan törölni minden második sort az Excelben?

Hogyan lehet gyorsan törölni minden más sort az Excelben?

Ha gyorsan szeretne törölni minden más sort vagy oszlopot az Excelben, a lényeg az, hogyan lehet először gyorsan kijelölni minden más sort vagy oszlopot, majd alkalmazni rájuk a törlési műveletet. És ez a cikk megmutat néhány trükkös dolgot arról, hogyan lehet először minden más sort vagy oszlopot kijelölni, majd gyorsan törölni őket.

Minden más sor törlése az Excelben a Szűrő paranccsal

Minden más sor törlése az Excelben VBA kóddal

Minden más sor vagy oszlop törlése az Excelben a Kutools for Excel segítségével

Minden más sor törlése az Excelben a Szűrő paranccsal

A Microsoft Excel Szűrő paranccsal gyorsan szűrhet minden más sort, majd egyszerre törölheti őket, Kérjük, járjon el az alábbiak szerint:

1. Az eredeti adatok mellett egy üres oszlopba írja be a 0,1,0,1…,0,1 értéket. Ebben az esetben a C segédoszlopba írjuk be a számokat. Lásd a következő képernyőképet:

2. Jelölje ki a C oszlopot, és kattintson az Adatok lapon a Szűrés gombra. Ezután kattintson a C1 melletti nyíl gombra, és csak a 0-t jelölje be az Összes kijelölése opció alatt. Lásd a képernyőképet:

3. Ezután az összes 1-es sor el lesz rejtve. Jelölje ki a látható 0-s sorokat, és kattintson a Kezdőlap > Törlés > Lapsorok törlése gombra, hogy törölje ezeket a sorokat. Ezután minden második sort töröl, és újra a Szűrés gombra kell kattintania, hogy csak az 1-es sorok jelenjenek meg. Lásd a képernyőképeket:

4. Végül a C segédoszlopot szükség szerint törölheti.

Minden második sor törlése az Excelben VBA kóddal

Ténylegesen a VBA makró is jó választás a probléma megoldására.

1. Tartsa lenyomva az Alt + F11 billentyűket az Excelben, és megnyílik a Microsoft Visual Basic for Applications ablak.

2. Kattintson a Beszúrás > Modul gombra, és illessze be a következő makrót a Modul ablakba.

VBA kód: A kiválasztás minden második sorának törlése:

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. A makró futtatásához nyomja meg az F5 billentyűt. Ezután egy párbeszédpanel jelenik meg a tartomány kiválasztásához. Lásd a képernyőképet:

4. Ezután kattintson az OK gombra, a kiválasztott tartományban a második sortól kezdve minden további sor egyszerre törlődik, lásd a képernyőképet:

Minden más sor vagy oszlop törlése az Excelben a Kutools for Excel segítségével

A Microsoft Excel kezdő felhasználójának, VBA makró használata egy kicsit bonyolult. A Kutools for Excel intervallum sorok & oszlopok kijelölése segédprogramja segíthet minden második sor gyors törlésében.

Kutools for Excel : több mint 300 praktikus Excel-bővítménnyel, 30 napig ingyenesen, korlátozás nélkül kipróbálható.

A Kutools for Excel telepítése után tegye a következőket:

1. Válassza ki azt a tartományt, amelyből minden második sort törölni szeretne, majd alkalmazza ezt a segédprogramot a Kutools > Select > Select Interval Rows & columns….

2. A Select Interval Rows & Columns párbeszédpanelen adja meg a beállításokat a következő képernyőképen látható módon, és kattintson az OK gombra, hogy először minden más sort válasszon ki.

3. Ezután minden más sor a kiválasztásban kijelölésre kerül és kiemelésre kerül. Lásd a képernyőképet:

4. Ezután gyorsan törölheti a kijelölt minden más sorokat a Kezdőlap > Törlés > Lapsorok törlése gombra kattintva, hogy törölje az összes ilyen sort. Lásd a képernyőképeket:

Kattintson, ha többet szeretne megtudni erről a Kiválasztott intervallum sorok & oszlopok funkcióról.

Ezzel a funkcióval szükség szerint minden n-edik sort vagy oszlopot is törölhet.

Töltse le és próbálja ki ingyenesen a Kutools for Excel-t most!

Demo: Minden második sor vagy oszlop törlése a Kutools for Excel segítségével