Acest post vă va îndruma cum să ștergeți fiecare alt rând prin comanda de filtrare în Excel. Cum pot șterge fiecare alt rând dintr-un interval selectat pe o foaie de lucru prin Excel VBA Macro.

Delete Every Other Row with Filter command

Pentru a șterge fiecare alt rând în Excel, trebuie să filtrați rândurile alternative, apoi să selectați acele rânduri și să le ștergeți deodată. Deci, trebuie să creați o coloană ajutătoare folosind funcția MOD cu funcția ROW, trebuie doar să efectuați următorii pași:

#1 tastați formula =MOD(ROW(),2) într-o celulă de lângă datele originale și apăsați tasta Enter, apoi trageți gestionarul de umplere automată peste alte celule pentru a genera numere 0,1 în fiecare celulă.

#2 selectați coloana ajutătoare, mergeți la fila DATA, faceți clic pe comanda Filter (Filtru) din grupul Sort & Filter (Sortare). Săgețile de filtrare derulante vor apărea în celulele de antet.

#3 faceți clic pe săgeata de filtrare din coloana helper și selectați caseta de control 0 din lista derulantă a filtrului.

#4 veți vedea că toate rândurile „1” sunt ascunse, selectați toate rândurile „0” vizibile, apoi faceți clic dreapta pe intervalul de selecție și faceți clic pe Delete Row.

#5 toate rândurile cu valori „0” sunt eliminate. Apoi faceți clic din nou pe butonul Filter (Filtru) pe coloana ajutătoare pentru a elimina filtrul automat.

#6 puteți șterge coloana ajutătoare.

Delete every other row with VBA

De asemenea, puteți utiliza o macro VBA Excel pentru a șterge fiecare alt rând. Efectuați următorii pași:

#1 faceți clic pe comanda „Visual Basic” din fila DEVELOPER.

#2 apoi va apărea fereastra „Visual Basic Editor”.

#3 faceți clic pe „Insert” ->”Module” pentru a crea un nou modul.

#4 lipiți codul VBA de mai jos în fereastra de cod. Apoi faceți clic pe butonul „Save”.

Sub DeleteEveryOtherRow() Dim r As Range Dim IR As Range Set IR = Application.Selection Set IR = Application.InputBox("Select one Range :", "Delete Every Other Row", IR.Address, Type:=8) Application.ScreenUpdating = False For i = IR.Rows.Count To 1 Step -2 Set r = IR.Cells(i, 1) r.EntireRow.Delete Next Application.ScreenUpdating = TrueEnd Sub

#5 reveniți la foaia de lucru curentă, apoi rulați macro Excel de mai sus. Faceți clic pe butonul Run.

#6 Selectați un interval pe care doriți să îl ștergeți la fiecare două rânduri.

#7 să vedem rezultatul.

Funcții conexe

• Funcția Excel ROW
  Funcția Excel ROW returnează numărul de rând al unei celule de referință.Funcția ROW este o funcție încorporată în Microsoft Excel și este clasificată ca o funcție de căutare și referință. sintaxa funcției ROW este următoarea:= ROW ()….
• Funcția Excel MOD
  Funcția Excel MOD returnează restul a două numere după împărțire. Așadar, puteți utiliza funcția MOD pentru a obține restul după ce un număr este împărțit cu un divizor în Excel. Sintaxa funcției MOD este cea de mai jos:=MOD (număr, divizor)….

.