Satura rādītājs
Šajā īsajā pamācībā ir izskaidrots, kā izdzēst katru otro rindu programmā Excel, izmantojot filtrēšanu vai VBA kodu. Uzzināsiet arī, kā izdzēst katru 3., 4. vai jebkuru citu N rindu.
Ir daudzas situācijas, kad Excel darblapās var būt nepieciešams dzēst aizstājējrindas. Piemēram, iespējams, vēlaties saglabāt datus par pāra nedēļām (2., 4., 6., 6., 8. u. c. rinda) un pārvietot visas nepāra nedēļas (3., 5., 7. u. c. rinda) uz citu lapu.
Parasti katras otras rindas dzēšana programmā Excel ir saistīta ar alternatīvu rindu atlasi. Kad rindas ir atlasītas, ar vienu svītrojumu uz pogas Dzēst Tālāk šajā rakstā uzzināsiet dažus paņēmienus, kā ātri atlasīt un dzēst katru otro vai katru N-to rindu programmā Excel.
Kā izdzēst katru otro rindu programmā Excel, filtrējot
Būtībā parasts veids, kā programmā Excel izdzēst katru otro rindu, ir šāds: vispirms filtrējiet aizstājējrindas, pēc tam atlasiet tās un dzēsiet visas uzreiz. Tālāk ir aprakstīti detalizēti soļi:
- Tukšā slejā blakus sākotnējiem datiem ievadiet nullīšu un vieninieku virkni. To var ātri izdarīt, ievadot 0 pirmajā šūnā un 1 otrajā šūnā, pēc tam kopējot pirmās divas šūnas un ielīmējot tās slejā līdz pēdējai šūnai ar datiem.
Varat arī izmantot šo formulu:
=MOD(ROW(),2)Formulas loģika ir ļoti vienkārša: funkcija ROW atdod kārtējo rindas numuru, funkcija MOD to dala ar 2 un atdod atlikumu, kas noapaļots līdz veselam skaitlim.
Rezultātā visās pāra rindās ir 0 (jo tās tiek dalītas ar 2 vienmērīgi bez atlikuma) un 1 visās nepāra rindās:
- Atkarībā no tā, vai vēlaties dzēst pāra vai nepāra rindas, filtrējiet vienādības vai nulles.
Lai to izdarītu, atlasiet jebkuru šūnas palīdzības slejā, dodieties uz Dati cilne> Kārtot un filtrēt grupu un noklikšķiniet uz Filtrs pogu. Visās galvenes šūnās parādīsies nolaižamās filtra bultiņas. Noklikšķināt uz bultiņas pogas palīglodziņā un atzīmēt vienu no lodziņiem:
- 0, lai dzēstu pāra rindas
- 1, lai dzēstu nepāra rindas
Šajā piemērā mēs vēlamies noņemt rindas ar "0" vērtībām, tāpēc tās filtrējam:
- Tagad, kad visas "1" rindas ir paslēptas, atlasiet visas redzamās "0" rindas, noklikšķiniet uz atlases ar peles labo pogu un noklikšķiniet uz Dzēst rindu :
- Iepriekšminētais solis ir atstājis jums tukšu tabulu, bet neuztraucieties, "1" rindas joprojām tur ir. Lai tās atkal būtu redzamas, vienkārši noņemiet automātisko filtru, noklikšķinot uz pogas Filtrs vēlreiz nospiediet pogu:
- C slejā esošā formula pārrēķinās atlikušajām rindām, bet tā vairs nav vajadzīga. Tagad varat droši dzēst palīgsleju:
Rezultātā mūsu darblapā ir palikušas tikai pāra nedēļas, nepāra nedēļas ir pazudušas!
Padoms. Ja vēlaties pārvietot visas pārējās rindas uz citu vietu, nevis tās pilnībā dzēst, vispirms nokopējiet filtrētās rindas un ielīmējiet tās jaunā vietā, pēc tam dzēsiet filtrētās rindas.
Kā izdzēst aizstājējrindas programmā Excel, izmantojot VBA
Ja nevēlaties tērēt laiku triviālam uzdevumam, piemēram, dzēst katru otro rindu Excel darblapās, šo procesu var automatizēt, izmantojot šādu VBA makroprogrammu:
Sub Delete_Alternate_Rows_Excel() Dim SourceRange As Range Set SourceRange = Application.Selection Set SourceRange = Application.InputBox( "Range:" , "Select the range" , SourceRange.Address, Type :=8) If SourceRange.Rows.Count>= 2 Then Dim FirstCell As Range Dim RowIndex As Integer Application.ScreenUpdating = False For RowIndex = SourceRange.Rows.Count - (SourceRange.Rows.Count Mod 2) To 1Solis -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End If End SubKā izdzēst katru otro rindu programmā Excel, izmantojot makro
Ievietojiet makroreaktoru darblapā parastajā veidā, izmantojot Visual Basic redaktoru:
- Nospiediet Alt + F11, lai atvērtu Visual Basic for Applications logu.
- Augšējā izvēlnes joslā noklikšķiniet uz Ievietot > Modulis un ielīmējiet iepriekš minēto makro Modulis
- Nospiediet taustiņu F5, lai palaistu makro.
- Parādīsies dialoglodziņš, kurā būs jāizvēlas diapazons. Izvēlieties tabulu un noklikšķiniet uz Labi:
Gatavs! Tiek dzēsta katra cita rinda atlasītajā diapazonā:
Kā programmā Excel dzēst katru N rindu
Šajā uzdevumā mēs paplašināsim filtrēšanas paņēmienu, ko izmantojām, lai noņemtu katru otro rindu. Atšķirība ir formulā, uz kuras balstās filtrēšana:
MOD(ROW()- m , n )Kur:
- m ir pirmās šūnas ar datiem rindas numurs mīnus 1.
- n ir N-tā rinda, kuru vēlaties dzēst.
Pieņemsim, ka jūsu dati sākas 2. rindā, un jūs vēlaties dzēst katru 3. rindu. Tātad jūsu formulā n ir vienāds ar 3, un m ir vienāds ar 1 (2. rinda mīnus 1):
=MOD(RINDA() - 1, 3)
Ja mūsu dati sākas 3. rindā, tad m būtu 2 (3. rinda mīnus 1), un tā tālāk. Šī korekcija ir vajadzīga, lai secīgi numurētu rindas, sākot ar skaitli 1.
Formulas uzdevums ir dalīt relatīvo rindas skaitli ar 3 un atgriezt atlikumu pēc dalīšanas. Mūsu gadījumā tā dod nulli katrā trešajā rindā, jo katrs trešais skaitlis dalās ar 3 bez atlikuma (3,6,9 utt.):
Un tagad veiciet jau zināmos soļus, lai filtrētu "0" rindas:
- Izvēlieties jebkuru tabulas šūnu un noklikšķiniet uz Filtrs pogu uz Dati
- Filtrējiet palīglīdzekļu sleju, lai parādītu tikai vērtības "0".
- Atlasiet visas redzamās "0" rindas, noklikšķiniet ar peles labo pogu un izvēlieties Dzēst rindu no konteksta izvēlnes.
- Noņemiet filtru un dzēsiet palīgstabiņu.
Līdzīgā veidā programmā Excel varat dzēst katru 4., 5. vai jebkuru citu N-to rindu.
Padoms. Ja nepieciešams dzēst rindas ar nebūtiskiem datiem, noderēs šī pamācība: Kā dzēst rindas, pamatojoties uz šūnas vērtību.
Paldies, ka izlasījāt, un ceru, ka nākamnedēļ atkal tiksimies mūsu blogā.
