Umetnite prazan redak nakon svakog retka u Excel (ili svaki N -ti red)

Gledajte video - Umetnite prazan redak nakon svakog retka u Excel

Ljudi koji rade s velikim skupovima podataka često trebaju jednostavne stvari poput umetanja/brisanja redaka ili stupaca.

Iako već postoji mnogo različitih (i jednostavnih) načina dodavanja redaka u Excel, kada je u pitanju umetanje praznog retka nakon svakog drugog retka (ili svakog trećeg ili četvrtog retka), stvari postaju malo komplicirane.

Umetnite prazan redak nakon svakog drugog reda

U ovom vodiču pokazat ću vam neke doista jednostavne načine za umetanje praznog retka nakon svakog retka u postojećem skupu podataka (ili svakog n -tog retka).

Budući da ne postoji izravan način za dodavanje redaka između redova, metoda opisana u ovom članku zaobilazna je rješenja kako bi se to dogodilo. A ako vam odgovara VBA, to možete učiniti jednim klikom.

Upotreba kolone pomoćnika i značajke razvrstavanja

Pretpostavimo da imate skup podataka kao što je prikazano u nastavku i želite umetnuti prazno mjesto među postojeće retke.

U nastavku su navedeni koraci za umetanje praznih redaka između postojećih redaka:

1. Umetnite prazan stupac lijevo od skupa podataka. Da biste to učinili, desnom tipkom miša kliknite zaglavlje stupca krajnje lijevog stupca i kliknite Umetni.
2. Unesite tekst "HelperColumn" u A1 (možete koristiti bilo koji tekst koji želite)
3. Unesite 1 u ćeliju A2 i 2 u ćeliju A3.
4. Odaberite obje ćelije i postavite kursor u donji desni dio odabira. Kad se kursor promijeni u ikonu plus, dvaput kliknite na nju. Ovo će cijeli stupac ispuniti rastućim brojevima
5. Idite na posljednju ispunjenu ćeliju u pomoćnom stupcu, a zatim odaberite ćeliju ispod nje.
6. Unesite 1 u ovu ćeliju i 2 u ćeliju ispod nje
7. Odaberite obje ćelije i postavite kursor u donji desni dio odabira.
8. Kad se kursor promijeni u ikonu plus, kliknite i povucite ga prema dolje. Ovo će ispuniti niz brojeva (baš kao što smo dobili u koraku 3). Pobrinite se da dobijete više brojeva od onog što imate u skupu podataka. Na primjer, ako u skupu podataka postoji 10 zapisa, pobrinite se da u ovom koraku ispunite najmanje 10 ćelija. Kada završite, vaš skup podataka izgledat će kao što je prikazano u nastavku.
9. Odaberite cijeli skup podataka (uključujući sve ćelije u pomoćnom stupcu).
10. Kliknite karticu Podaci
11. Pritisnite opciju Sortiraj
12. U dijaloškom okviru Sortiranje upotrijebite sljedeće postavke:
    • Poredaj po: pomagaču
    • Sortiraj prema: Vrijednost ćelije
    • Redoslijed: od najmanjeg do najvećeg
13. Pritisnite U redu. To će vam dati skup podataka kao što je prikazano u nastavku.
14. Izbrišite pomoćni stupac.

Primijetili biste da čim kliknete U redu u dijaloškom okviru Sortiranje, on odmah preslaguje redove i sada imate prazan red nakon svakog retka vašeg skupa podataka.

U stvarnosti ovo zapravo nije umetanje praznog retka. Ova metoda razvrstavanja jednostavno preuređuje podatke postavljanjem praznih redaka ispod skupa podataka između redova u skupu podataka.

Istu logiku možete proširiti i na umetnite prazan red nakon svaka dva reda ili svaka tri reda.

Pretpostavimo da imate skup podataka kao što je prikazano u nastavku i želite dobiti prazan red nakon svaka dva retka.

U nastavku su navedeni koraci za to:

1. Umetnite prazan stupac lijevo od skupa podataka. Da biste to učinili, desnom tipkom miša kliknite zaglavlje stupca krajnje lijevog stupca i kliknite Umetni.
2. Unesite tekst "HelperColumn" u A1 (možete koristiti bilo koji tekst koji želite)
3. Unesite 1 u ćeliju A2 i 2 u ćeliju A3.
4. Odaberite obje ćelije i postavite kursor u donji desni dio odabira. Kad se kursor promijeni u ikonu plus, dvaput kliknite na nju. Ovo će cijeli stupac ispuniti rastućim brojevima
5. Idite na posljednju ispunjenu ćeliju u pomoćnom stupcu, a zatim odaberite ćeliju ispod nje.
6. Unesite 2 u ovu ćeliju i 4 u ćeliju ispod nje. Koristimo brojeve višestruke od 2 jer želimo jedan prazan red nakon svaka dva retka.
7. Odaberite obje ćelije i postavite kursor u donji desni dio odabira.
8. Kad se kursor promijeni u ikonu plus, kliknite i povucite ga prema dolje. Ovo će ispuniti niz brojeva (baš kao što smo dobili u koraku 3). Pobrinite se da dobijete broj veći od onog što imate u skupu podataka. Na primjer, ako u skupu podataka postoji 10 zapisa, pobrinite se da dobijete barem do broja 10.
9. Odaberite cijeli skup podataka (uključujući sve ćelije u pomoćnom stupcu).
10. Kliknite karticu Podaci
11. Pritisnite opciju Sortiraj
12. U dijaloškom okviru Sortiranje upotrijebite sljedeće postavke:
    • Poredaj po: pomagaču
    • Sortiraj prema: Vrijednost ćelije
    • Redoslijed: od najmanjeg do najvećeg
13. Pritisnite U redu. To će vam dati konačni skup podataka kao što je prikazano u nastavku (s praznim redom nakon svakog drugog retka skupa podataka)
14. Izbrišite pomoćni stupac.

Slično, u slučaju da nakon svakog trećeg retka želite umetnuti prazan redak, upotrijebite broj 3, 6, 9 i tako dalje u 5. koraku.

Korištenje jednostavnog VBA koda

Iako vam je potrebno mnogo zaobilaznih rješenja za umetanje zamjenskih praznih redaka u Excel, s VBA -om sve je to samo dio kolača.

S jednostavnim VBA kodom, sve što trebate učiniti je odabrati skup podataka u koji želite umetnuti prazan redak nakon svakog retka i jednostavno pokrenuti kôd (potrebno je jedan klik).

Ispod je VBA kôd koji će umetnuti prazan redak nakon svakog retka u skupu podataka:

Sub InsertAlternateRows () 'Ovaj kôd umetnut će redak nakon svakog retka u odabiru' Ovaj kôd je stvorio Sumit Bansal iz trumpexcel.com Dim rng kao raspon Dim CountRow Kao cijeli broj Dim i Kao cijeli broj Set rng = Odabir CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Odaberite Next i End Sub

Gornji kôd broji ukupni broj redaka u odabiru i koristi petlju For Next za kretanje kroz svaki redak i umetanje praznog retka nakon svakog postojećeg retka u skupu podataka.

Evo koraka za postavljanje ovog VBA koda u VB Editor u Excelu:

1. Kopirajte gornji kôd
2. Idite na karticu Developer i kliknite opciju Visual Basic. Ovo će otvoriti VB Editor. Također možete koristiti tipkovnički prečac ALT + F11
3. U uređivaču VB desnom tipkom miša kliknite bilo koji objekt u Project Exploreru
4. Zadržite pokazivač miša iznad opcije Umetanje, a zatim kliknite Modul. Ovo će umetnuti novi modul
5. U prozor koda modula zalijepite gornji kôd.

Nakon što imate kôd u VB Editoru, sada ga možete koristiti za umetanje praznih redaka iza svakog drugog retka u skupu podataka.

Evo koraka za korištenje koda za umetanje praznih redaka nakon svakog retka:

1. Odaberite cijeli skup podataka (osim retka zaglavlja)
2. Kliknite karticu Developer (u slučaju da nemate karticu Developer, kliknite ovdje da biste saznali kako je dobiti)
3. Kliknite opciju ‘Makronaredbe’
4. U dijaloškom okviru Makronaredbe odaberite makro - "InsertAlternateRows"
5. Pritisnite Pokreni

To je to!

Gore navedeni koraci odmah bi umetnuli naizmjenične prazne retke u skup podataka.

Postoji mnogo različitih načina za pokretanje makronaredbi u Excelu. Na primjer, ako to morate činiti prilično često, možete dodati ovu makronaredbu na Alatnu traku za brzi pristup tako da je možete pokrenuti jednim klikom.

Ovdje možete pročitati više o različitim načinima izvođenja makronaredbi.

U slučaju da nakon svakog drugog reda želite umetnuti prazan redak, možete upotrijebiti donji kod:

Sub InsertBlankRowAfterEvery2ndRow () 'Ovaj kôd umetnut će redak nakon svakog drugog retka u odabiru' Ovaj kôd je stvorio Sumit Bansal iz trumpexcel.com Dim rng Kao raspon Dim CountRow Kao cijeli broj Dim i Kao cijeli broj Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Odaberite Next i End Sub

Nadam se da vam je ovaj vodič bio koristan.