Skatieties video - ievietojiet tukšu rindu pēc katras Excel rindas
Cilvēkiem, kuri strādā ar lielām datu kopām, bieži ir vajadzīgas vienkāršas lietas, piemēram, rindu vai kolonnu ievietošana/dzēšana.
Lai gan programmā Excel jau ir daudz dažādu (un vienkāršu) veidu, kā pievienot rindas, tukšas rindas ievietošana pēc katras citas rindas (vai katras trešās vai ceturtās rindas) ir nedaudz sarežģīta.
Pēc katras citas rindas ievietojiet tukšu rindu
Šajā apmācībā es parādīšu dažus patiešām vienkāršus veidus, kā ievietot tukšu rindu pēc katras esošās datu kopas rindas (vai katras n. Rindas).
Tā kā nav tieša veida, kā pievienot rindas starp rindām, šajā rakstā aprakstītā metode ir risinājums, lai tas notiktu. Un, ja jums patīk VBA, varat to izdarīt ar vienu klikšķi.
Palīgkolonnas un kārtošanas funkcijas izmantošana
Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, un vēlaties starp esošajām rindām ievietot tukšu lapu.
Tālāk ir norādītas darbības, kā ievietot tukšas rindas starp esošajām rindām.
- Pa kreisi no datu kopas ievietojiet tukšu kolonnu. Lai to izdarītu, ar peles labo pogu noklikšķiniet uz slejas galvenes kreisās puses slejā un noklikšķiniet uz Ievietot.
- A1 ievadiet tekstu “HelperColumn” (varat izmantot jebkuru vēlamo tekstu)
- Ievadiet 1 šūnā A2 un 2 šūnā A3.
- Atlasiet abas šūnas un novietojiet kursoru atlases apakšējā labajā stūrī. Kad kursors mainās uz pluszīmes ikonu, veiciet dubultklikšķi uz tās. Tas aizpildīs visu kolonnu ar pieaugošiem skaitļiem
- Dodieties uz pēdējo aizpildīto šūnu palīga kolonnā un pēc tam atlasiet šūnu zem tās.
- Ievadiet 1 šajā šūnā un 2 šūnā zem tā
- Atlasiet abas šūnas un novietojiet kursoru atlases apakšējā labajā stūrī.
- Kad kursors mainās uz pluszīmes ikonu, noklikšķiniet un velciet to uz leju. Tas aizpildīs virkni skaitļu (tāpat kā mēs saņēmām 3. solī). Pārliecinieties, ka iegūstat vairāk skaitļu, nekā ir datu kopā. Piemēram, ja datu kopā ir 10 ieraksti, pārliecinieties, ka šajā solī ir aizpildītas vismaz 10 šūnas. Kad tas būs izdarīts, jūsu datu kopa izskatīsies, kā parādīts zemāk.
- Atlasiet visu datu kopu (ieskaitot visas palīga kolonnas šūnas).
- Noklikšķiniet uz cilnes Dati
- Noklikšķiniet uz opcijas Kārtot
- Dialoglodziņā Kārtot izmantojiet šādus iestatījumus:
- Kārtot pēc: Palīgs
- Kārtot pēc: Šūnas vērtība
- Pasūtījums: no mazākā līdz lielākajam
- Noklikšķiniet uz Labi. Tādējādi jūs iegūsit datu kopu, kā parādīts zemāk.
- Izdzēsiet palīga kolonnu.
Jūs pamanīsit, ka, tiklīdz dialoglodziņā Kārtot noklikšķināt uz Labi, tas uzreiz pārkārto rindas, un tagad jums ir tukša rinda pēc katras datu kopas rindas.
Patiesībā tas īsti nav tukšas rindas ievietošana. Šī šķirošanas metode ir vienkārši datu pārkārtošana, ievietojot tukšas rindas zem datu kopas starp datu kopas rindām.
Jūs varat arī paplašināt to pašu loģiku ievietojiet tukšu rindu pēc katrām divām rindām vai ik pēc trim rindām.
Pieņemsim, ka jums ir datu kopa, kā parādīts zemāk, un pēc katrām divām rindām vēlaties iegūt tukšu rindu.
Tālāk ir norādītas darbības, kā to izdarīt:
- Pa kreisi no datu kopas ievietojiet tukšu kolonnu. Lai to izdarītu, ar peles labo pogu noklikšķiniet uz slejas galvenes kreisās puses slejā un noklikšķiniet uz Ievietot.
- A1 ievadiet tekstu “HelperColumn” (varat izmantot jebkuru vēlamo tekstu)
- Ievadiet 1 šūnā A2 un 2 šūnā A3.
- Atlasiet abas šūnas un novietojiet kursoru atlases apakšējā labajā stūrī. Kad kursors mainās uz pluszīmes ikonu, veiciet dubultklikšķi uz tās. Tas aizpildīs visu kolonnu ar pieaugošiem skaitļiem
- Dodieties uz pēdējo aizpildīto šūnu palīga kolonnā un pēc tam atlasiet šūnu zem tās.
- Ievadiet 2 šajā šūnā un 4 šūnā zem tā. Mēs izmantojam skaitļus 2 reizinājumos, jo mēs vēlamies vienu tukšu rindu pēc katrām divām rindām.
- Atlasiet abas šūnas un novietojiet kursoru atlases apakšējā labajā stūrī.
- Kad kursors mainās uz pluszīmes ikonu, noklikšķiniet un velciet to uz leju. Tas aizpildīs virkni skaitļu (tāpat kā mēs saņēmām 3. solī). Pārliecinieties, ka iegūstat skaitli, kas ir lielāks par to, kas ir datu kopā. Piemēram, ja datu kopā ir 10 ieraksti, pārliecinieties, ka esat saņēmis vismaz līdz skaitlim 10.
- Atlasiet visu datu kopu (ieskaitot visas palīga kolonnas šūnas).
- Noklikšķiniet uz cilnes Dati
- Noklikšķiniet uz opcijas Kārtot
- Dialoglodziņā Kārtot izmantojiet šādus iestatījumus:
- Kārtot pēc: Palīgs
- Kārtot pēc: Šūnas vērtība
- Pasūtījums: no mazākā līdz lielākajam
- Noklikšķiniet uz Labi. Tādējādi tiks iegūta galīgā datu kopa, kā parādīts zemāk (ar tukšu rindu pēc katras otrās datu kopas rindas)
- Izdzēsiet palīga kolonnu.
Līdzīgi, ja vēlaties ievietot tukšu rindu pēc katras trešās rindas, 5. darbībā izmantojiet skaitli 3, 6, 9 utt.
Izmantojot vienkāršu VBA kodu
Lai gan jums ir nepieciešams daudz risinājumu, lai Excel ievietotu alternatīvas tukšas rindas, ar VBA tas viss ir kūkas gabals.
Izmantojot vienkāršu VBA kodu, viss, kas jums jādara, ir atlasīt datu kopu, kurā pēc katras rindas vēlaties ievietot tukšu rindu, un vienkārši palaist kodu (aizņem vienu klikšķi).
Zemāk ir VBA kods, kas ievietos tukšu rindu pēc katras datu kopas rindas:
Sub InsertAlternateRows () 'Šis kods ievietos rindu pēc katras atlases rindas' Šo kodu ir izveidojis Sumit Bansal no trumpexcel.com Dim rng Kā diapazons Dim CountRow kā vesels skaitlis Dim i kā vesels skaitlis Set rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Izvēlieties Next i End Sub
Iepriekš minētais kods saskaita kopējo atlasīto rindu skaitu un izmanto cilni Nākamais, lai pārvietotos pa katru rindu un ievietotu tukšu rindu pēc katras esošās datu kopas rindas.
Lai ievietotu šo VBA kodu Excel VB redaktorā, veiciet tālāk norādītās darbības.
- Kopējiet iepriekš minēto kodu
- Dodieties uz cilni Izstrādātājs un noklikšķiniet uz opcijas Visual Basic. Tas atvērs VB redaktoru. Varat arī izmantot īsinājumtaustiņu ALT + F11
- VB redaktorā ar peles labo pogu noklikšķiniet uz jebkura objekta Project Explorer
- Virziet kursoru virs opcijas Ievietot un pēc tam noklikšķiniet uz Modulis. Tādējādi tiks ievietots jauns modulis
- Logā Moduļa kods ielīmējiet iepriekš minēto kodu.
Kad esat ievadījis kodu VB redaktorā, tagad varat izmantot šo kodu, lai ievietotu tukšas rindas pēc katras citas datu kopas rindas.
Tālāk ir norādītas darbības, lai izmantotu kodu, lai ievietotu tukšas rindas pēc katras rindas.
- Atlasiet visu datu kopu (izņemot galvenes rindu)
- Noklikšķiniet uz cilnes Izstrādātājs (ja jums nav cilnes Izstrādātājs, noklikšķiniet šeit, lai uzzinātu, kā to iegūt)
- Noklikšķiniet uz opcijas “Makro”
- Dialoglodziņā Makro atlasiet makro - “InsertAlternateRows”
- Noklikšķiniet uz Palaist
Tieši tā!
Iepriekš minētās darbības datu kopā uzreiz ievietos mainīgas tukšas rindas.
Makro palaišanai programmā Excel ir daudz dažādu veidu. Piemēram, ja jums tas jādara diezgan bieži, varat pievienot šo makro ātrās piekļuves rīkjoslai, lai to varētu palaist ar vienu klikšķi.
Vairāk par dažādiem makro palaišanas veidiem varat lasīt šeit.
Ja pēc katras otrās rindas vēlaties ievietot tukšu rindu, varat izmantot tālāk norādīto kodu.
Sub InsertBlankRowAfterEvery2ndRow () 'Šis kods ievietos rindu pēc katras otrās atlases rindas' Šo kodu ir izveidojis Sumit Bansal no trumpexcel.com Dim rng kā diapazons Dim CountRow kā vesels skaitlis Dim i kā vesels skaitlis Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Izvēlieties Next i End Sub
Ceru, ka šī apmācība jums šķita noderīga.
