Cuprins
Acest scurt tutorial explică cum să ștergeți fiecare al doilea rând în Excel prin filtrare sau cu cod VBA. Veți învăța, de asemenea, cum să eliminați fiecare al treilea, al patrulea sau orice alt rând Nth.
Există multe situații în care este necesar să ștergeți rânduri alternative în foile de lucru Excel. De exemplu, este posibil să doriți să păstrați datele pentru săptămânile pare (rândurile 2, 4, 6, 8 etc.) și să mutați toate săptămânile impare (rândurile 3, 5, 7 etc.) într-o altă foaie.
În general, ștergerea fiecărui rând în parte în Excel se reduce la selectarea rândurilor alternative. Odată ce rândurile sunt selectate, se execută o singură apăsare pe butonul Ștergeți Mai departe în acest articol, veți învăța câteva tehnici pentru a selecta și șterge rapid fiecare al doilea sau al N-lea rând în Excel.
Cum să ștergeți fiecare alt rând în Excel prin filtrare
În esență, o modalitate obișnuită de a șterge toate celelalte rânduri în Excel este următoarea: mai întâi, filtrați rândurile alternative, apoi le selectați și le ștergeți pe toate deodată. Pașii detaliați urmează mai jos:
- Într-o coloană goală de lângă datele inițiale, introduceți o secvență de zerouri și unu. Puteți face acest lucru rapid introducând 0 în prima celulă și 1 în a doua celulă, apoi copiind primele două celule și lipindu-le în josul coloanei până la ultima celulă cu date.
Alternativ, puteți folosi această formulă:
=MOD(ROW(),2)Logica formulei este foarte simplă: funcția ROW returnează numărul curent al rândului, funcția MOD îl împarte la 2 și returnează restul rotunjit la un număr întreg.
Rezultatul este 0 în toate rândurile pare (deoarece acestea sunt împărțite la 2 fără rest) și 1 în toate rândurile impare:
- În funcție de faptul că doriți să ștergeți rândurile pare sau impare, filtrați unu sau zero.
Pentru a face acest lucru, selectați orice celulă din coloana Helper, mergeți la butonul Date tab> Sortare și filtrare și faceți clic pe butonul Filtru Săgețile de filtrare derulante vor apărea în toate celulele de antet. Faceți clic pe butonul săgeată din coloana Helper și bifați una dintre căsuțe:
- 0 pentru a șterge rândurile pare
- 1 pentru a șterge rândurile impare
În acest exemplu, vom elimina rândurile cu valori "0", așa că le vom filtra:
- Acum că toate rândurile "1" sunt ascunse, selectați toate rândurile "0" vizibile, faceți clic dreapta pe selecție și faceți clic pe Ștergeți rândul :
- Pasul de mai sus v-a lăsat cu un tabel gol, dar nu vă faceți griji, rândurile "1" sunt încă acolo. Pentru a le face vizibile din nou, pur și simplu eliminați filtrul automat făcând clic pe butonul Filtru din nou:
- Formula din coloana C se recalculează pentru rândurile rămase, dar nu mai aveți nevoie de ea. Acum puteți șterge în siguranță coloana Helper:
Ca urmare, în foaia noastră de lucru au rămas doar săptămânile pare, cele impare au dispărut!
Sfat: Dacă doriți să mutați toate celelalte rânduri în altă parte, în loc să le ștergeți cu totul, mai întâi copiați rândurile filtrate și lipiți-le într-o locație nouă, apoi ștergeți rândurile filtrate.
Cum să ștergeți rândurile alternative în Excel cu VBA
Dacă nu sunteți dispus să vă pierdeți timpul cu o sarcină trivială, cum ar fi ștergerea fiecărui rând din foile de calcul Excel, următoarea macro VBA poate automatiza procesul:
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 1Step -2 Set FirstCell = SourceRange.Cells(RowIndex, 1) FirstCell.EntireRow.Delete Next Application.ScreenUpdating = True End If End If End SubCum să ștergeți fiecare alt rând în Excel folosind macroul
Introduceți macroul în foaia de calcul în mod obișnuit prin intermediul Visual Basic Editor:
- Apăsați Alt + F11 pentru a deschide fereastra Visual Basic pentru aplicații.
- În bara de meniu de sus, faceți clic pe Introduceți > Modul și inserați macroul de mai sus în fișierul Modul
- Apăsați tasta F5 pentru a rula macroul.
- Se va deschide o fereastră de dialog care vă va solicita să selectați un interval. Selectați tabelul și faceți clic pe OK:
Gata! Fiecare rând din intervalul selectat este șters:
Cum să ștergeți fiecare al N-lea rând în Excel
Pentru această sarcină, vom extinde tehnica de filtrare pe care am folosit-o pentru a elimina fiecare rând. Diferența constă în formula pe care se bazează filtrarea:
MOD(ROW()- m , n )Unde:
- m este numărul de rând al primei celule cu date minus 1
- n este al N-lea rând pe care doriți să îl ștergeți
Să presupunem că datele încep de la rândul 2 și doriți să ștergeți fiecare al treilea rând. Deci, în formula dvs. n este egal cu 3, iar m este egal cu 1 (rândul 2 minus 1):
=MOD(RÂND() - 1, 3)
Dacă datele noastre au început în rândul 3, atunci m ar fi egal cu 2 (rândul 3 minus 1) și așa mai departe. Această corecție este necesară pentru a numerota secvențial rândurile, începând cu numărul 1.
În cazul nostru, rezultă zero pentru fiecare al treilea rând, deoarece fiecare al treilea număr se împarte la 3 fără rest (3,6,9 etc.):
Și acum, efectuați pașii deja cunoscuți pentru a filtra rândurile "0":
- Selectați orice celulă din tabel și faceți clic pe butonul Filtru de pe butonul Date
- Filtrați coloana Helper pentru a afișa numai valorile "0".
- Selectați toate rândurile "0" vizibile, faceți clic dreapta și alegeți Ștergeți rândul din meniul contextual.
- Îndepărtați filtrul și ștergeți coloana Helper.
În mod similar, puteți șterge fiecare al patrulea, al cincilea sau orice alt al N-lea rând în Excel.
Sfat: În cazul în care aveți nevoie să eliminați rânduri cu date irelevante, următorul tutorial vă va fi de ajutor: Cum să ștergeți rânduri pe baza valorii celulei.
Vă mulțumesc pentru lectură și sper să ne revedem pe blog săptămâna viitoare.
