Kā izdzēst katru citu Excel rindu (vai katru N rindu)

Skatieties video - izdzēsiet katru citu Excel rindu

Dažreiz programmā Excel var būt nepieciešams dzēst katru otro rindu (ti, alternatīvās rindas) vai katru trešo/ceturto/piekto rindu.

Viens no šādiem gadījumiem varētu būt, ja jums ir iknedēļas dati un vēlaties iegūt datus tikai par pāra nedēļām vai nepāra nedēļām. Vēl viens gadījums varētu būt, ja no datu bāzes saņemat datu izmeti un visi noderīgie dati ir tikai katrā otrajā vai trešajā rindā.

Lai gan jums vienmēr ir iespēja manuāli atlasīt un dzēst rindas, tas ir neefektīvi, ja jums ir liela datu kopa.

Ir labāki veidi, kā to izdarīt.

Šajā apmācībā es parādīšu dažus veidus, kā izdzēst katru otro Excel rindu, izmantojot vienkāršu filtrēšanas paņēmienu. Un, ja jums patīk izmantot VBA makro kodu, es esmu arī devis īsu VBA kodu, kas to dara ar vienu klikšķi. Metodes ir parādītas šajā apmācības darbā visām Excel versijām (2007, 2010, 2013 un 2016)

Lai gan visas citas Excel rindas dzēšana var būt pavisam vienkārša, tas var būt izaicinājums izdzēst katru citu kolonnu. Tas ir tāpēc, ka jūs nevarat filtrēt kolonnas programmā Excel (veids, kā filtrēt rindas). Šīs apmācības pēdējā sadaļā es parādīšu arī dažus veidus, kā programmā Excel izdzēst alternatīvās kolonnas (vai katru N kolonnu).

Izdzēsiet katru citu rindu, filtrējot datu kopu (izmantojot formulu)

Ja jūs varētu kaut kā filtrēt visas pāra vai nepāra rindas, būtu ļoti viegli izdzēst šīs rindas/ierakstus.

Lai gan nav iebūvēta līdzekļa, lai to izdarītu, varat izmantot palīgu kolonnu, lai vispirms sadalītu rindas nepāra un pāra, un pēc tam filtrētu, pamatojoties uz palīga kolonnas vērtību.

Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, kurā ir pārdošanas dati par katru pārdošanas pārstāvi divos reģionos (ASV un Kanādā), un vēlaties dzēst Kanādas datus.

Tālāk ir norādītas darbības, lai vispirms filtrētu un pēc tam izdzēstu katru otro rindu (kurā ir dati par Kanādu):

1. Šūnā, kas atrodas blakus pēdējās slejas galvenei, ievadiet tekstu HelperColumn (vai jebkurš galvenes teksts, kurā vēlaties iekļaut palīga kolonnu)
2. Šūnā zem palīga kolonnas galvenes ievadiet šādu formulu: = ISEVEN (ROW ()). Kopējiet šo formulu visām šūnām. Šī formula atgriež TRUE visām pāra rindām un FALSE visām ODD rindām
3. Atlasiet visu datu kopu (ieskaitot šūnas, kurās iepriekšējā solī ievadījām formulu).
4. Noklikšķiniet uz cilnes Dati
5. Noklikšķiniet uz filtra ikonas. Tādējādi filtrs tiks lietots visām datu kopas galvenēm
6. Šūnā HelperColumn noklikšķiniet uz filtra ikonas.
7. Noņemiet opciju TRUE (tāpēc tiek atlasīta tikai FALSE opcija)
8. Noklikšķiniet uz Labi. Tas filtrēs datus un parādīs tikai tos ierakstus, kuru HelperColumn vērtība ir FALSE.
9. Palīgkolonnā atlasiet visas filtrētās šūnas (izņemot galveni)
10. Ar peles labo pogu noklikšķiniet uz jebkuras atlasītās šūnas un noklikšķiniet uz “Dzēst rindu”
11. Atvērtajā dialoglodziņā noklikšķiniet uz Labi. Tādējādi tiks izdzēsti visi redzamie ieraksti, un jūs redzēsit tikai galvenes rindu.
12. Noklikšķiniet uz cilnes Dati un pēc tam noklikšķiniet uz ikonas Filtrs. Tādējādi filtrs tiks noņemts, un jūs varēsit redzēt visus atlikušos ierakstus.

Iepriekš minētās darbības filtrē katru otro datu kopas rindu un pēc tam izdzēš šīs rindas.

Neuztraucieties par palīga kolonnas vērtībām šajā posmā. Iegūtajos datos ir tikai ASV rindas, un visas Kanādas rindas tiek dzēstas. Tagad varat izdzēst palīga kolonnu.

Ja vēlaties dzēst katru otro rindu, sākot no pirmās rindas, 7. solī atlasiet opciju TRUE un noņemiet opciju FALSE.

Piezīme. Izdzēšot rindas programmā Excel, izmantojot iepriekš minēto metodi, tiek dzēsti arī visi dati, kas jums var būt kopumā (izņemot tos, kas ir datu kopā). Lietojot šo metodi, pārliecinieties, ka dzēšamās datu kopas kreisajā un labajā pusē nav nekā.

Lai gan iepriekš minētā metode ir lieliska, tai ir divi trūkumi:

1. Tam jāpievieno jauna sleja ( HelperColumn mūsu piemērā iepriekš)
2. Tas var aizņemt daudz laika, ja jums bieži jādzēš alternatīvas rindas

Saistītā apmācība: rindu dzēšana, pamatojoties uz šūnas vērtību (vai nosacījumu) programmā Excel

Dzēsiet katru N rindu, filtrējot datu kopu (izmantojot formulu)

Iepriekš minētajā metodē es parādīju, kā programmā Excel izdzēst katru otro rindu (alternatīvo rindu).

Un jūs varat izmantot to pašu loģiku, lai izdzēstu arī katru trešo vai ceturto rindu programmā Excel.

Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, un vēlaties dzēst visas trešās rindas.

Katras trešās rindas dzēšanas darbības ir gandrīz tādas pašas kā iepriekšējā sadaļā aprakstītās (alternatīvo rindu dzēšanai). Vienīgā atšķirība ir 2. solī izmantotajā formulā.

Tālāk ir norādītas darbības, kā to izdarīt:

1. Šūnā, kas atrodas blakus pēdējās slejas galvenei, ievadiet tekstu HelperColumn (vai jebkurš galvenes teksts, kurā vēlaties iekļaut palīga kolonnu)
2. Šūnā zem palīga kolonnas galvenes ievadiet šādu formulu: = MOD (ROW (), 3) = 1. Šī formula atgriež TRUE par katru trešo rindu un FALSE par katru otro rindu.
3. Atlasiet visu datu kopu (ieskaitot šūnas, kurās iepriekšējā solī ievadījām formulu).
4. Noklikšķiniet uz cilnes Dati
5. Noklikšķiniet uz filtra ikonas. Tādējādi filtrs tiks lietots visām datu kopas galvenēm
6. Šūnā HelperColumn noklikšķiniet uz filtra ikonas.
7. Noņemiet opciju TRUE (tāpēc tiek atlasīta tikai FALSE opcija)
8. Noklikšķiniet uz Labi. Tas filtrēs datus un parādīs tikai tos ierakstus, kuru HelperColumn vērtība ir FALSE.
9. Atlasiet visas palīga kolonnas šūnas
10. Ar peles labo pogu noklikšķiniet uz jebkuras atlasītās šūnas un noklikšķiniet uz Dzēst rindu
11. Atvērtajā dialoglodziņā noklikšķiniet uz Labi. Tādējādi tiks izdzēsti visi redzamie ieraksti, un jūs redzēsit tikai galvenes rindu.
12. Noklikšķiniet uz cilnes Dati un pēc tam noklikšķiniet uz ikonas Filtrs. Tādējādi filtrs tiks noņemts, un jūs varēsit redzēt visus atlikušos ierakstus.

Iepriekš minētās darbības izdzēsīs katru trešo rindu no datu kopas, un jūs iegūsit iegūtos datus, kā parādīts zemāk.

Neuztraucieties par palīga kolonnas vērtībām šajā posmā. Tagad varat izdzēst palīga kolonnu.

Formulā, kas izmantota 2. darbībā, tiek izmantota funkcija MOD - kas dod atlikumu, kad viens skaitlis tiek dalīts ar otru. Šeit es izmantoju ROW funkciju, lai iegūtu rindas numuru, un tas ir dalīts ar 3 (jo mēs vēlamies izdzēst katru trešo rindu).

Tā kā mūsu datu kopa sākas no otrās rindas (t.i., 2. rindā ir pirmais ieraksts), es izmantoju šādu formulu:= MOD (ROW (), 3) = 1

Es to pielīdzinu 1 un katrai trešajai rindai MOD formula atlikušo dos kā 1.

Jūs varat attiecīgi pielāgot formulu. Piemēram, ja jūsu datu kopas pirmais ieraksts sākas no trešās rindas, formula būtu = MOD (ROW (), 3) = 2

Automātiski dzēst katru citu rindu (vai N rindu), izmantojot VBA makro (ātrā metode)

Ja jums ir diezgan bieži jādzēš katra otra rinda (vai katra n. Rinda), varat izmantot VBA kodu, lai tas būtu pieejams ātrās piekļuves rīkjoslā. Tas ļaus jums ātri izdzēst alternatīvās rindas ar vienu klikšķi.

Zemāk ir kods, kas vispirms lūdz atlasīt diapazonu, kurā vēlaties dzēst alternatīvās rindas, un pēc tam izdzēst katru otro atlasītās datu kopas rindu.

Sub Delete_Every_Other_Row () Dim Rng kā diapazona kopa Rng = Application.InputBox ("Atlasiet diapazonu (izņemot galvenes)", "Diapazona izvēle", ierakstiet: = 8) Attiecībā uz i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Tad Rng. Rindas (i). Dzēst beigas, ja nākamā i Beigu apakšdaļa

Palaižot iepriekš minēto kodu, tas vispirms lūgs jums izvēlēties šūnu diapazonu. Kad esat izdarījis atlasi, tas izies cauri katrai rindai un izdzēsīs katru otro rindu.

Ja vēlaties dzēst katru trešo rindu, varat izmantot tālāk norādīto kodu.

Sub Delete_Every_Third_Row () Dim Rng kā diapazona kopa Rng = Application.InputBox ("Atlasiet diapazonu (izņemot galvenes)", "Diapazona izvēle", ierakstiet: = 8) Attiecībā uz i = Rng.Rows.Count To 1 Step -3 If i 3. Mod

Kur ievietot šo VBA makro kodu?

Šis kods jāievieto parastajā modulī Excel VB redaktorā.

Tālāk ir norādītas darbības, lai atvērtu Vb redaktoru, pievienotu moduli un ievietotu tajā kodu:

1. Kopējiet iepriekš minēto VBA kodu.
2. Dodieties uz cilni Izstrādātājs.
3. Noklikšķiniet uz Visual Basic.
4. VB redaktorā ar peles labo pogu noklikšķiniet uz jebkura darbgrāmatas objekta.
5. Dodieties uz Ievietot un noklikšķiniet uz moduļa.
6. Modulī ielīmējiet iepriekš minēto VBA kodu.
7. Aizveriet VB redaktoru.

Kad esat ievadījis kodu VB redaktorā, varat izmantot šādas metodes, lai palaistu kodu:

• Palaidiet makro no VB redaktora (noklikšķinot uz zaļās atskaņošanas pogas VB redaktora rīkjoslā)
• Novietojot kursoru uz jebkuras koda rindas un izmantojot taustiņu F5
• Piešķirot makro pogai/formai
• Pievienojot makro ātrās piekļuves rīkjoslai

Šeit ir detalizēta apmācība par makro palaišanu programmā Excel.

Ja jums tas jādara bieži, varat apsvērt iespēju pievienot VBA kodu personīgajai makro darbgrāmatai. Tādā veidā tas vienmēr būs pieejams lietošanai visās darbgrāmatās.

Ja darbgrāmatā ir VBA kods, tas ir jāsaglabā kā makro iespējots (ar paplašinājumu .XLSM)

Piezīme. Tā kā visas VBA koda veiktās izmaiņas ir neatgriezeniskas, vislabāk vispirms ir izveidot darbgrāmatas/darblapas rezerves kopiju un pēc tam palaist šo kodu.

Dzēst katru citu kolonnu (vai katru n. Kolonnu)

Katras alternatīvās rindas vai trešās/ceturtās rindas dzēšana ir vienkārša, jo varat izmantot filtra opciju. Viss, kas jums jādara, ir izmantot formulu, kas identificē alternatīvas rindas (vai katru trešo/ceturto rindu) un filtrē šīs rindas.

Diemžēl šī pati metodika nedarbosies ar kolonnām, jo ​​jūs nevarat filtrēt kolonnas tā, kā filtrējat rindas.

Tātad, ja jums ir jāizdzēš katra otrā sleja (vai katra trešā/ceturtā/N -tā kolonna), jums jābūt nedaudz radošākam.

Šajā sadaļā es jums parādīšu divas metodes, kuras varat izmantot, lai izdzēstu katru citu Excel kolonnu (un, ja vēlaties, varat izmantot to pašu metodi, lai izdzēstu katru trešo/ceturto/n -to kolonnu).

Izdzēsiet alternatīvās kolonnas, izmantojot formulas un kārtošanas metodi

Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, un vēlaties dzēst visas pārējās kolonnas (izņemot galvenes kolonnu A).

Šeit triks būtu identificēt alternatīvas kolonnas, izmantojot formulu, un pēc tam kārtot kolonnas, pamatojoties uz šo formulu. Kad kārtotās kolonnas ir apkopotas, varat manuāli atlasīt un dzēst to.

Tālāk ir norādītas darbības, lai izdzēstu visas pārējās kolonnas programmā Excel:

1. Ievietojiet rindu virs galvenes rindas (ar peles labo pogu noklikšķiniet uz jebkuras galvenes šūnas, noklikšķiniet uz Ievietot un pēc tam noklikšķiniet uz opcijas Visa rinda)
2. Ievadiet šādu formulu šūnā virs datu kopas kreisākās kolonnas un kopējiet visas šūnas: = MOD (SLEJA (), 2)
3. Pārvērtiet formulas vērtības par skaitļiem. Lai to izdarītu, nokopējiet šūnas, ar peles labo pogu noklikšķiniet un dodieties uz Ielīmēt speciāli -> Ielīmēt vērtības.
4. Atlasiet visu datu kopu (izņemot visas galvenes slejā). Šajā piemērā esmu izvēlējies B1: G14 (un NĒ A sleja)
5. Noklikšķiniet uz cilnes Dati
6. Noklikšķiniet uz ikonas Kārtot
7. Dialoglodziņā Kārtot veiciet šādas izmaiņas:
   • Noklikšķiniet uz pogas “Opcijas” un atvērtajā dialoglodziņā noklikšķiniet uz “Kārtot no kreisās uz labo” un pēc tam noklikšķiniet uz Labi
   • Nolaižamajā sarakstā Kārtot pēc atlasiet 1. rinda. Šī ir rinda, kurai ir formulas rezultāti
   • Nolaižamajā izvēlnē Pasūtījums atlasiet Mazākais līdz lielākais.
8. Noklikšķiniet uz Labi

Iepriekš minētās darbības kārto visas kolonnas un apvieno visas alternatīvās kolonnas vienā vietā (beigās).

Tagad varat atlasīt visas šīs kolonnas (kurām formulas vērtība ir 1) un tās izdzēst.

Lai gan tas nav labākais risinājums, tas tomēr paveic darbu.

Ja vēlaties dzēst katru trešo vai katru ceturto kolonnu, formula ir attiecīgi jāpielāgo.

Saistītā apmācība: Kā kārtot programmā Excel (pēc rindām, kolonnām, krāsām, datumiem un skaitļiem)

Alternatīvo kolonnu dzēšana, izmantojot VBA

Vēl viens ātrs veids, kā izdzēst alternatīvās kolonnas, ir izmantot zemāk redzamo VBA kodu:

Sub Delete_Every_Other_Column () Dim Rng kā diapazona kopa Rng = Application.InputBox ("Atlasīt diapazonu (izņemot galvenes)", "Diapazona izvēle", tips: = 8) Attiecībā uz i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Tad Rng. Kolonnas (i). Dzēst beigas Ja nākamā i Beigu apakš

Iepriekš minētais kods lūdz atlasīt šūnu diapazonu, kurā ir kolonnas. Šeit jums jāizvēlas slejas, izņemot tās, kurām ir galvene.

Kad esat norādījis šūnu diapazonu ar datiem, tas izmantos cilpu For un izdzēsīs visas pārējās kolonnas.

Ja vēlaties dzēst katru trešo kolonnu, varat izmantot tālāk norādīto kodu (un attiecīgi pielāgoties, lai dzēstu N kolonnu)

Sub Delete_Every_Third_Column () Dim Rng kā diapazona kopa Rng = Application.InputBox ("Atlasiet diapazonu (izņemot galvenes)", "Diapazona izvēle", tips: = 8) Attiecībā uz i = Rng.Columns.Count to 1 Step -3 If i Mod 3 = 0 Tad Rng. Kolonnas (i). Dzēst beigas Ja nākamā i Beigu apakš

Darbības, kur ievietot šo VBA kodu un kā to izmantot, ir aprakstītas iepriekšējā sadaļā ar nosaukumu - “Automātiski dzēst katru citu rindu (vai N rindu), izmantojot VBA makro (ātrā metode)”

Ceru, ka šī Excel apmācība jums šķita noderīga.