Vizionați videoclipul - Introduceți rândul gol după fiecare rând din Excel
Persoanele care lucrează cu seturi mari de date au deseori nevoie de lucruri simple, cum ar fi inserarea / ștergerea rândurilor sau coloanelor.
Deși există deja multe modalități diferite (și simple) de a adăuga rânduri în Excel, atunci când vine vorba de inserarea unui rând gol după fiecare alt rând (sau fiecare al treilea sau al patrulea rând), lucrurile se complică puțin.
Introduceți un rând gol după fiecare alt rând
În acest tutorial, vă voi arăta câteva modalități foarte simple de a insera un rând gol după fiecare rând din setul de date existent (sau fiecare al nouălea rând).
Deoarece nu există o modalitate directă de a adăuga rânduri între rânduri, metoda acoperită în acest articol este soluții alternative pentru a face acest lucru. Și dacă vă simțiți confortabil cu VBA, puteți face acest lucru cu un singur clic.
Utilizarea coloanei de ajutor și a funcției de sortare
Să presupunem că aveți un set de date așa cum se arată mai jos și doriți să inserați un gol între rândurile existente.
Mai jos sunt pașii pentru a insera rânduri goale între rândurile existente:
- Introduceți o coloană goală în stânga setului de date. Pentru a face acest lucru, faceți clic dreapta pe antetul coloanei din coloana din stânga și faceți clic pe Insert.
- Introduceți textul „HelperColumn” în A1 (puteți utiliza orice text doriți)
- Introduceți 1 în celula A2 și 2 în celula A3.
- Selectați ambele celule și plasați cursorul în partea dreaptă jos a selecției. Când cursorul se transformă într-o pictogramă plus, faceți dublu clic pe ea. Aceasta va umple întreaga coloană cu numere incrementale
- Mergeți la ultima celulă completată din coloana de asistență și apoi selectați celula de sub ea.
- Introduceți 1 în această celulă și 2 în celula de sub ea
- Selectați ambele celule și plasați cursorul în partea dreaptă jos a selecției.
- Când cursorul se transformă în pictogramă plus, faceți clic și trageți-l în jos. Aceasta va umple o serie de numere (la fel cum am ajuns la pasul 3). Asigurați-vă că obțineți mai multe numere decât ceea ce aveți în setul de date. De exemplu, dacă există 10 înregistrări în setul de date, asigurați-vă că ați completat cel puțin 10 celule în acest pas. Odată terminat, setul de date ar arăta așa cum se arată mai jos.
- Selectați întregul set de date (inclusiv toate celulele din coloana helper).
- Faceți clic pe fila Date
- Faceți clic pe opțiunea Sortare
- În caseta de dialog Sortare, utilizați următoarele setări:
- Sortează după: Ajutor
- Sortați pe: Valoarea celulei
- Comandă: De la cel mai mic la cel mai mare
- Faceți clic pe OK. Acest lucru vă va oferi setul de date așa cum se arată mai jos.
- Ștergeți coloana de ajutor.
Ați observa că imediat ce faceți clic pe OK în caseta de dialog Sortare, acesta rearanjează instantaneu rândurile și acum aveți un rând gol după fiecare rând al setului de date.
În realitate, aceasta nu înseamnă cu adevărat inserarea unui rând gol. Această metodă de sortare pur și simplu rearanjează datele plasând rânduri goale de sub setul de date între rândurile din setul de date.
De asemenea, puteți extinde aceeași logică la introduceți un rând gol după fiecare două rânduri sau la fiecare trei rânduri.
Să presupunem că aveți setul de date așa cum se arată mai jos și doriți să obțineți un rând gol după fiecare două rânduri.
Mai jos sunt pașii pentru a face acest lucru:
- Introduceți o coloană goală în stânga setului de date. Pentru a face acest lucru, faceți clic dreapta pe antetul coloanei din coloana din stânga și faceți clic pe Insert.
- Introduceți textul „HelperColumn” în A1 (puteți utiliza orice text doriți)
- Introduceți 1 în celula A2 și 2 în celula A3.
- Selectați ambele celule și plasați cursorul în partea dreaptă jos a selecției. Când cursorul se transformă într-o pictogramă plus, faceți dublu clic pe ea. Aceasta va umple întreaga coloană cu numere incrementale
- Mergeți la ultima celulă umplută din coloana de ajutor și apoi selectați celula de sub ea.
- Introduceți 2 în această celulă și 4 în celula de sub ea. Folosim numere în multipli de 2 deoarece vrem un rând gol după fiecare două rânduri.
- Selectați ambele celule și plasați cursorul în partea dreaptă jos a selecției.
- Când cursorul se transformă în pictogramă plus, faceți clic și trageți-l în jos. Aceasta va umple o serie de numere (la fel cum am ajuns la pasul 3). Asigurați-vă că obțineți un număr mai mare decât ceea ce aveți în setul de date. De exemplu, dacă există 10 înregistrări în setul de date, asigurați-vă că obțineți cel puțin până la numărul 10.
- Selectați întregul set de date (inclusiv toate celulele din coloana helper).
- Faceți clic pe fila Date
- Faceți clic pe opțiunea Sortare
- În caseta de dialog Sortare, utilizați următoarele setări:
- Sortează după: Ajutor
- Sortați pe: Valoarea celulei
- Comandă: de la cel mai mic la cel mai mare
- Faceți clic pe OK. Acest lucru vă va oferi setul de date finale așa cum se arată mai jos (cu un rând gol după fiecare al doilea rând al setului de date)
- Ștergeți coloana de ajutor.
În mod similar, în cazul în care doriți să inserați un rând gol după fiecare al treilea rând, utilizați numărul 3, 6, 9 și așa mai departe la pasul 5.
Folosind un cod VBA simplu
Deși aveți nevoie de o mulțime de soluții alternative pentru a insera rânduri goale alternative în Excel, cu VBA totul este o bucată de tort.
Cu un cod VBA simplu, tot ce trebuie să faceți este să selectați setul de date în care doriți să inserați un rând gol după fiecare rând și pur și simplu să rulați codul (face un singur clic).
Mai jos este codul VBA care va insera un rând gol după fiecare rând din setul de date:
Sub InsertAlternateRows () 'Acest cod va insera un rând după fiecare rând din selecție' Acest cod a fost creat de Sumit Bansal de la trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count Pentru i = 1 Pentru CountRow ActiveCell.Offset (1, 0). EntireRow.Insert ActiveCell.Offset (2, 0). Selectați Next i End Sub
Codul de mai sus numără numărul total de rânduri din selecție și folosește o buclă For Next pentru a parcurge fiecare rând și a insera un rând gol după fiecare rând existent în setul de date.
Iată pașii pentru a plasa acest cod VBA în Editorul VB în Excel:
- Copiați codul de mai sus
- Accesați fila Dezvoltator și faceți clic pe opțiunea Visual Basic. Aceasta va deschide Editorul VB. De asemenea, puteți utiliza comanda rapidă de la tastatură ALT + F11
- În Editorul VB, faceți clic dreapta pe orice obiect din Project Explorer
- Plasați cursorul peste opțiunea Insert și apoi faceți clic pe Module. Aceasta va insera un nou modul
- În fereastra Codului modulului, lipiți codul de mai sus.
După ce aveți codul în Editorul VB, puteți utiliza acum acest cod pentru a insera rânduri goale după fiecare rând în setul de date.
Iată pașii pentru a utiliza codul pentru a insera rânduri goale după fiecare rând:
- Selectați întregul set de date (cu excepția rândului antet)
- Faceți clic pe fila Dezvoltator (în cazul în care nu aveți fila Dezvoltator, faceți clic aici pentru a afla cum să o obțineți)
- Faceți clic pe opțiunea „Macro”
- În caseta de dialog Macro, selectați macro - „InsertAlternateRows”
- Faceți clic pe Run
Asta e!
Pașii de mai sus ar insera instantaneu rânduri goale alternative în setul de date.
Există multe modalități diferite de a rula o macro în Excel. De exemplu, dacă trebuie să faceți acest lucru destul de des, puteți adăuga această macro la Bara de instrumente cu acces rapid, astfel încât să o puteți rula cu un singur clic.
Puteți citi mai multe despre diferite moduri de a rula macrocomenzi aici.
În cazul în care doriți să inserați un rând gol după fiecare al doilea rând, puteți utiliza codul de mai jos:
Sub InsertBlankRowAfterEvery2ndRow () 'Acest cod va insera un rând după fiecare al doilea rând din selecție' Acest cod a fost creat de Sumit Bansal de la trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count Pentru i = 1 Pentru CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Selectați Next i End Sub
Sper că ați găsit util acest tutorial.
