Cum să ștergeți orice alt rând din Excel (sau fiecare al doilea rând)

Vizionați videoclipuri - Ștergeți toate celelalte rânduri din Excel

Uneori este posibil să aveți nevoie să ștergeți toate celelalte rânduri (adică rânduri alternative) sau fiecare al treilea / al patrulea / al cincilea rând din Excel.

Un caz de utilizare ar putea fi atunci când aveți date săptămânale și doriți datele doar pentru săptămâni pare sau săptămâni impare. Un alt lucru ar putea fi atunci când obțineți o descărcare de date dintr-o bază de date și toate datele utile sunt doar în fiecare al doilea sau al treilea rând.

Deși aveți întotdeauna opțiunea de a selecta și șterge manual rânduri, aceasta este ineficientă în cazul în care aveți un set de date mare.

Există modalități mai bune de a face acest lucru.

În acest tutorial, vă voi arăta câteva moduri de a șterge toate celelalte rânduri din Excel folosind o tehnică simplă de filtrare. Și dacă vă simțiți bine să folosiți un cod macro VBA, am dat și un cod VBA scurt care o face cu un singur clic. Metodele sunt prezentate în acest tutorial pentru toate versiunile de Excel (2007, 2010, 2013 și 2016)

În timp ce ștergerea tuturor celorlalte rânduri din Excel poate fi destul de simplă, ar putea fi o provocare să ștergeți toate celelalte coloane. Acest lucru se datorează faptului că nu puteți filtra coloanele în Excel (modul în care puteți filtra rândurile). În ultima secțiune a acestui tutorial, vă voi arăta, de asemenea, câteva modalități de a șterge coloane alternative (sau fiecare coloană a N-a) în Excel.

Ștergeți toate celelalte rânduri prin filtrarea setului de date (folosind formula)

Dacă ați putea cumva să filtrați toate rândurile pare sau rândurile impare, ar fi foarte ușor să ștergeți aceste rânduri / înregistrări.

Deși nu există nicio caracteristică încorporată pentru a face acest lucru, puteți utiliza o coloană de ajutor pentru a împărți mai întâi rândurile în impar și par, apoi filtrați pe baza valorii coloanei de ajutor.

Să presupunem că aveți un set de date așa cum se arată mai jos, care conține date despre vânzări pentru fiecare reprezentant de vânzări pentru două regiuni (SUA și Canada) și doriți să ștergeți datele pentru Canada.

Mai jos sunt pașii pentru mai întâi filtrarea și apoi ștergerea fiecărui rând (care conține date pentru Canada):

1. În celula adiacentă ultimului antet de coloană, introduceți textul HelperColumn (sau orice text de antet pe care doriți să îl aibă coloana de ajutor)
2. În celula de sub antetul coloanei de ajutor, introduceți următoarea formulă: = ISEVEN (ROW ()). Copiați această formulă pentru toate celulele. Această formulă returnează TRUE pentru toate rândurile pare și FALSE pentru toate rândurile ODD
3. Selectați întregul set de date (inclusiv celulele în care am introdus formula în pasul de mai sus).
4. Faceți clic pe fila Date
5. Faceți clic pe pictograma Filtru. Aceasta va aplica un filtru tuturor anteturilor din setul de date
6. Faceți clic pe pictograma Filtru din celula HelperColumn.
7. Deselectați opțiunea TRUE (deci este selectată doar opțiunea FALSE)
8. Faceți clic pe OK. Aceasta va filtra datele și va afișa numai acele înregistrări în care valoarea HelperColumn este FALSĂ.
9. Selectați toate celulele filtrate din coloana de ajutor (cu excepția antetului)
10. Faceți clic dreapta pe oricare dintre celulele selectate și faceți clic pe „Șterge rând”
11. În caseta de dialog care se deschide, faceți clic pe OK. Aceasta va șterge toate înregistrările vizibile și veți vedea rândul de antet doar de acum.
12. Faceți clic pe fila Date, apoi faceți clic pe pictograma Filtru. Aceasta va elimina filtrul și veți putea vedea toate înregistrările rămase.

Pașii de mai sus filtrează fiecare al doilea rând din setul de date și apoi șterge aceste rânduri.

Nu vă faceți griji cu privire la valorile coloanei de ajutor în acest stadiu. Datele rezultate au doar rândurile pentru SUA și toate rândurile din Canada sunt șterse. Puteți șterge acum coloana de ajutor.

În cazul în care doriți să ștergeți toate celelalte rânduri începând cu primul rând, selectați opțiunea TRUE la pasul 7 și deselectați opțiunea FALSE.

Notă: Când ștergeți rândurile din Excel folosind metoda de mai sus, acesta șterge, de asemenea, orice date pe care le-ați putea avea în ansamblu (în afară de cel din setul de date). Când utilizați această metodă, asigurați-vă că nu aveți nimic în stânga și în dreapta setului de date pe care îl ștergeți.

În timp ce metoda de mai sus este excelentă, are două dezavantaje:

1. Trebuie să adăugați o nouă coloană ( HelperColumn în exemplul nostru de mai sus)
2. Poate consuma mult timp dacă trebuie să ștergeți rânduri alternative, faceți acest lucru des

Tutorial asociat: Ștergeți rândurile pe baza unei valori (sau a unei stări) a celulei în Excel

Ștergeți fiecare al doilea rând prin filtrarea setului de date (folosind formula)

În metoda de mai sus, v-am arătat cum să ștergeți orice alt rând (rând alternativ) din Excel.

Și puteți utiliza aceeași logică pentru a șterge fiecare al treilea sau al patrulea rând din Excel.

Să presupunem că aveți un set de date așa cum se arată mai jos și doriți să ștergeți fiecare din al treilea rând.

Pașii pentru ștergerea fiecărui al treilea rând sunt aproape aceiași cu cel acoperit în secțiunea de mai sus (pentru ștergerea rândurilor alternative). Singura diferență este în formula utilizată la pasul 2.

Mai jos sunt pașii pentru a face acest lucru:

1. În celula adiacentă ultimului antet de coloană, introduceți textul HelperColumn (sau orice text de antet pe care doriți să îl aibă coloana de ajutor)
2. În celula de sub antetul coloanei de ajutor, introduceți următoarea formulă: = MOD (ROW (), 3) = 1. Această formulă returnează ADEVĂRAT pentru fiecare al treilea rând și FALS pentru fiecare rând.
3. Selectați întregul set de date (inclusiv celulele în care am introdus formula în pasul de mai sus).
4. Faceți clic pe fila Date
5. Faceți clic pe pictograma Filtru. Aceasta va aplica un filtru tuturor anteturilor din setul de date
6. Faceți clic pe pictograma Filtru din celula HelperColumn.
7. Deselectați opțiunea TRUE (deci este selectată doar opțiunea FALSE)
8. Faceți clic pe OK. Aceasta va filtra datele și va afișa numai acele înregistrări în care valoarea HelperColumn este FALSĂ.
9. Selectați toate celulele din coloana de ajutor
10. Faceți clic dreapta pe oricare dintre celulele selectate și faceți clic pe Șterge rând
11. În caseta de dialog care se deschide, faceți clic pe OK. Aceasta va șterge toate înregistrările vizibile și veți vedea rândul de antet doar de acum.
12. Faceți clic pe fila Date, apoi faceți clic pe pictograma Filtru. Aceasta va elimina filtrul și veți putea vedea toate înregistrările rămase.

Pașii de mai sus vor șterge fiecare al treilea rând din setul de date și veți obține datele rezultate așa cum se arată mai jos.

Nu vă faceți griji cu privire la valorile coloanei de ajutor în acest stadiu. Puteți șterge acum coloana de ajutor.

Formula utilizată în Pasul 2 folosește funcția MOD - care dă restul atunci când un număr este împărțit la celălalt. Aici am folosit funcția ROW pentru a obține numărul rândului și este împărțit la 3 (pentru că vrem să ștergem fiecare al treilea rând).

Deoarece setul nostru de date începe de la al doilea rând în continuare (adică rândul 2 conține prima înregistrare), folosesc următoarea formulă:= MOD (ROW (), 3) = 1

Îl echivalez cu 1 și pentru fiecare al treilea rând, formula MOD va da restul ca 1.

Puteți ajusta formula în consecință. De exemplu, dacă prima înregistrare a setului de date începe de la al treilea rând, formula ar fi = MOD (ROW (), 3) = 2

Ștergeți automat orice alt rând (sau al N-lea rând) folosind macro VBA (metodă rapidă)

Dacă trebuie să ștergeți toate celelalte rânduri (sau fiecare al doilea rând) destul de des, puteți utiliza un cod VBA și îl puteți avea disponibil în Bara de instrumente de acces rapid. Acest lucru vă va permite să ștergeți rapid rânduri alternative cu un singur clic.

Mai jos este codul care vă solicită mai întâi să selectați intervalul în care doriți să ștergeți rânduri alternative, apoi să ștergeți fiecare al doilea rând din setul de date selectat.

Sub Delete_Every_Other_Row () Dim Rng As Range Set Rng = Application.InputBox ("Selectați gama (excluzând antetele)", "Range Selection", Type: = 8) For i = Rng.Rows.Count To 1 Step -2 If i Mod 2 = 0 Apoi Rng.Rows (i). Ștergeți End If Next i End Sub

Când rulați codul de mai sus, acesta vă va cere mai întâi să selectați gama de celule. După ce ați făcut selecția, aceasta va trece prin fiecare rând și va șterge fiecare al doilea rând.

Dacă doriți să ștergeți fiecare al treilea rând, puteți folosi codul de mai jos:

Sub Delete_Every_Third_Row () Dim Rng As Range Set Rng = Application.InputBox ("Selectați gama (cu excepția antetelor)", "Range Selection", Type: = 8) For i = Rng.Rows.Count To 1 Step -3 If i Mod 3 = 0 Apoi Rng.Rows (i). Ștergeți End If Next i End Sub

Unde să puneți acest cod macro VBA?

Trebuie să plasați acest cod într-un modul obișnuit în editorul VB în Excel.

Mai jos sunt pașii pentru deschiderea Editorului Vb, adăugarea unui modul și plasarea codului în acesta:

1. Copiați codul VBA de mai sus.
2. Accesați fila Dezvoltator.
3. Faceți clic pe Visual Basic.
4. În Editorul VB, faceți clic dreapta pe oricare dintre obiectele din registrul de lucru.
5. Accesați Insert și faceți clic pe Module.
6. În modul, lipiți codul VBA de mai sus.
7. Închideți Editorul VB.

După ce aveți codul în Editorul VB, puteți utiliza următoarele metode pentru a rula codul:

• Rulați o macro din Editorul VB (făcând clic pe butonul verde de redare din bara de instrumente VB Editor)
• Plasând cursorul pe orice linie din cod și folosind tasta F5
• Prin atribuirea macro-ului unui buton / formă
• Prin adăugarea macrocomenzii în bara de instrumente Acces rapid

Iată un tutorial detaliat despre cum să rulați o macro în Excel.

Dacă trebuie să faceți acest lucru des, puteți lua în considerare adăugarea codului VBA în registrul de lucru personal Macro. În acest fel, vă va fi întotdeauna disponibil pentru utilizare în toate registrele de lucru.

Când aveți un cod VBA într-un registru de lucru, trebuie să-l salvați ca fișier macro-activat (cu extensia .XLSM)

Notă: Deoarece orice modificări aduse codului VBA sunt ireversibile, este mai bine să faceți mai întâi o copie de rezervă a registrului de lucru / foaie de lucru și apoi să rulați acest cod.

Ștergeți toate celelalte coloane (sau fiecare coloana a N-a)

Ștergerea fiecărui rând alternativ sau a fiecărui al treilea / al patrulea rând este ușoară, deoarece puteți utiliza opțiunea de filtrare. Tot ce trebuie să faceți este să utilizați o formulă care identifică rânduri alternative (sau fiecare al treilea / al patrulea rând) și să filtreze aceste rânduri.

Din păcate, aceeași metodologie nu va funcționa cu coloane - deoarece nu puteți filtra coloanele așa cum filtrați rândurile.

Deci, dacă trebuie să ștergeți orice altă coloană (sau fiecare a treia / a patra / a N-a coloană), trebuie să fiți puțin mai creativi.

În această secțiune, vă voi arăta două metode pe care le puteți utiliza pentru a șterge toate celelalte coloane din Excel (și puteți utiliza aceeași metodă pentru a șterge fiecare a treia / a patra / a N-a coloană, dacă doriți).

Ștergeți coloanele alternative folosind formulele și metoda de sortare

Să presupunem că aveți un set de date așa cum se arată mai jos și doriți să ștergeți toate celelalte coloane (cu excepția coloanei de antet A)

Trucul aici ar fi identificarea coloanelor alternative folosind o formulă și apoi sortarea coloanelor pe baza acelei formule. După ce aveți coloanele sortate împreună, puteți selecta și șterge manual acest lucru.

Mai jos sunt pașii pentru a șterge toate celelalte coloane din Excel:

1. Introduceți un rând deasupra rândului antet (faceți clic dreapta pe orice celulă din antet, faceți clic pe Inserați, apoi faceți clic pe opțiunea Întreg rând)
2. Introduceți următoarea formulă în celula de deasupra coloanei din stânga din setul de date și copiați pentru toate celulele: = MOD (COLUMN (), 2)
3. Convertiți valorile formulei în numere. Pentru aceasta, copiați celulele, faceți clic dreapta și accesați Lipire specială -> Lipire valori.
4. Selectați întregul set de date (cu excepția anteturilor din coloană). În acest exemplu, am selectat B1: G14 (și NU coloana A)
5. Faceți clic pe fila Date
6. Faceți clic pe pictograma Sortare
7. În caseta de dialog Sortare, efectuați următoarele modificări:
   • Faceți clic pe butonul „Opțiuni” și în caseta de dialog care se deschide, faceți clic pe „Sortare de la stânga la dreapta”, apoi faceți clic pe Ok
   • În meniul derulant Sortare după, selectați Rândul 1. Acesta este rândul care are rezultatele formulei
   • În meniul derulant Comandă, selectați De la cel mai mic la cel mai mare.
8. Faceți clic pe OK

Pașii de mai sus sortează toate coloanele și adună toate coloanele alternative la un loc (la sfârșit).

Acum puteți selecta toate aceste coloane (pentru care valoarea formulei este 1) și le puteți șterge.

Deși aceasta nu este cea mai bună soluție, totuși se lucrează.

În cazul în care doriți să ștergeți fiecare a treia coloană sau fiecare a patra coloană, trebuie să ajustați formula în consecință.

Tutorial asociat: Cum SORT în Excel (după rânduri, coloane, culori, date și numere)

Ștergeți coloanele alternative folosind VBA

O altă modalitate rapidă de a șterge coloane alternative este utilizarea codului VBA de mai jos:

Sub Delete_Every_Other_Column () Dim Rng As Range Set Rng = Application.InputBox („Selectați gama (cu excepția antetelor)”, „Range Selection”, Type: = 8) For i = Rng.Columns.Count To 1 Step -2 If i Mod 2 = 0 Apoi Rng.Columns (i). Ștergeți End If Next i End Sub

Codul de mai sus vă cere să selectați o gamă de celule care are coloanele. Aici trebuie să selectați coloanele, cu excepția celei care are antetul.

După ce ați specificat intervalul de celule cu datele, acesta va utiliza un For Loop și va șterge toate celelalte coloane.

În cazul în care doriți să ștergeți fiecare a treia coloană, puteți utiliza codul de mai jos (și ajustați corespunzător pentru a șterge cea de-a N-a coloană)

Sub Delete_Every_Third_Column () Dim Rng As Range Set Rng = Application.InputBox („Selectați gama (cu excepția antetelor)”, „Selecția intervalului”, Tipul: = 8) Pentru i = Rng.Columns.Count To 1 Step -3 If i Mod 3 = 0 Apoi Rng.Columns (i). Ștergeți End If Next i End Sub

Pașii de unde se plasează acest cod VBA și cum să-l utilizați sunt acoperiți în secțiunea de mai sus intitulată - „Ștergeți automat orice alt rând (sau al N-lea rând) utilizând macro VBA (metodă rapidă)”

Sper că ați găsit util acest tutorial Excel.