Excel: üres sorok beszúrása minden páros sorba

Szia Excel-rajongó! Volt már olyan helyzet, amikor egy Excel táblázatot szerettél volna átláthatóbbá tenni, és az jutott eszedbe, hogy minden páros sor után beszúrnál egy üres sort? Esetleg adatokat szeretnél rendezettebben megjeleníteni, vagy egyszerűen csak könnyebben áttekinthetővé tenni a táblázatot? Akkor jó helyen jársz! Ebben a cikkben lépésről lépésre bemutatjuk, hogyan tudod ezt megtenni, többféle módszerrel is, a kezdőtől a haladó szintig.

Miért jó az üres sorok beszúrása?

Az üres sorok beszúrása nem csupán esztétikai szempontból előnyös. Gyakran segít a táblázat strukturálásában, lehetővé teszi az adatok jobb vizuális elkülönítését, és megkönnyíti a navigációt a nagyobb adatmennyiségek között. Képzeld el, hogy egy hosszú számlalistát vagy egy termékkatalógust nézel. Az üres sorok segítenek „megtörni” a monotonitást, és könnyebbé teszik a fontos információk megtalálását.

Módszer 1: A legegyszerűbb – Segédoszlop használata

Ez a módszer talán a legkézenfekvőbb és a legkönnyebben elsajátítható. Használatával szinte bárki, akár Excel kezdőként is, könnyedén megoldhatja a feladatot.

1. Hozz létre egy segédoszlopot: A táblázatod mellett hozz létre egy új oszlopot (pl. „Segédoszlop” címmel).
2. Számozd be a sorokat: Írd be az első sorba az „1”-et, a másodikba pedig a „2”-t.
3. Húzd le a számsort: Jelöld ki az első két cellát, és húzd le a kitöltőnégyzetet (a cella jobb alsó sarkában lévő kis négyzet), amíg el nem éred a táblázatod utolsó sorát. Ezzel automatikusan növekvő számsort generálsz.
4. Másold le a számsort: Másold le a teljes számsort a segédoszlopban, és illeszd be közvetlenül alá. Fontos, hogy az utolsó szám duplán szerepeljen.
5. Rendezd a táblázatot a segédoszlop szerint: Jelöld ki a teljes táblázatot (fejlécet is beleértve!), majd a „Adatok” fülön kattints a „Rendezés” gombra. Válaszd ki a segédoszlopot, mint rendezési szempontot, és hagyd, hogy az Excel elvégezze a rendezést.
6. Töröld a segédoszlopot: Miután az üres sorok bekerültek a helyükre, nyugodtan törölheted a segédoszlopot.

Módszer 2: VBA makró – Haladóknak

Ha tapasztaltabb Excel felhasználó vagy, és nem riadsz meg a kódolástól, akkor a VBA (Visual Basic for Applications) makrók segítségével is megoldhatod a feladatot. Ez a módszer különösen akkor hasznos, ha gyakran kell ilyen jellegű műveleteket végezned.

1. Nyisd meg a VBA szerkesztőt: Nyomd meg az Alt + F11 billentyűkombinációt.
2. Szúrd be egy új modult: A VBA szerkesztőben kattints a „Beszúrás” menüre, majd válaszd a „Modul” opciót.
3. Írd be a következő kódot:

Sub InsertBlankRows()
  Dim LastRow As Long
  Dim i As Long

  LastRow = Cells(Rows.Count, "A").End(xlUp).Row ' Feltételezzük, hogy az adatok az "A" oszlopban kezdődnek

  Application.ScreenUpdating = False ' Képernyőfrissítés kikapcsolása a gyorsabb futás érdekében

  For i = LastRow To 2 Step -1
    If i Mod 2 = 0 Then ' Ellenőrzi, hogy az aktuális sor páros-e
      Rows(i).Insert Shift:=xlDown
    End If
  Next i

  Application.ScreenUpdating = True ' Képernyőfrissítés visszaállítása
End Sub

4. Módosítsd a kódot (ha szükséges): Ha az adatok nem az „A” oszlopban kezdődnek, akkor a „Cells(Rows.Count, „A”).End(xlUp).Row” sorban módosítsd az „A”-t a megfelelő oszlop betűjelére.
5. Futtasd a makrót: A VBA szerkesztőben kattints a „Futtatás” menüre, majd válaszd a „Futtatás” opciót, vagy egyszerűen nyomd meg az F5 billentyűt.

Ez a VBA kód végigmegy a táblázat soraion hátulról előre, és minden páros sorszámú sor elé beszúr egy üres sort. A „Application.ScreenUpdating = False” sor pedig azért van ott, hogy a makró gyorsabban fusson le, mert kikapcsolja a képernyő frissítését a futás ideje alatt.

Módszer 3: Power Query – Az elegáns megoldás

A Power Query egy rendkívül hasznos eszköz az Excelben adatok lekérdezésére, átalakítására és betöltésére. Bár elsőre bonyolultnak tűnhet, valójában nagyon hatékony megoldást kínál az üres sorok beszúrására is.

1. Töltsd be az adatokat a Power Query-be: Jelöld ki a táblázatodat, majd a „Adatok” fülön kattints a „Táblázatból/Tartományból” gombra.
2. Add hozzá egy index oszlopot: A Power Query szerkesztőben kattints az „Oszlop hozzáadása” fülre, majd válaszd az „Index oszlop” opciót. Az alapértelmezett beállításokkal hozd létre az index oszlopot.
3. Duplikáld a táblázatot: Kattints jobb gombbal a táblázat nevére a bal oldali panelen, és válaszd a „Duplikálás” opciót.
4. Szűrd az egyik táblázatot páros indexekre: Az első táblázatban (az eredeti adatokkal) szűrd az index oszlopot úgy, hogy csak a páratlan számok maradjanak meg. Ehhez kattints az index oszlop fejlécében lévő szűrőikonra, válaszd a „Számszűrők” menüt, majd a „Nem egyenlő”-t. Írd be a „2”-t, és kattints az „OK”-ra. Ezután kattints ismét a szűrőikonra, „Számszűrők”, majd „Az egyenlő”-t. Írd be a „2”, és kattints az „OK”-ra. Ezt ismételd meg a 4,6,8 számokkal ameddig szükséges, vagy használj egyedi M kódot.
5. Szűrd a másik táblázatot páratlan indexekre: A duplikált táblázatban (az üres sorok helyével) szűrd az index oszlopot úgy, hogy csak a páros számok maradjanak meg. Használd a 4. lépésben leírt módszert, csak most a páros számokat hagyd meg.
6. Fűzd össze a két táblázatot: Kattints a „Kezdőlap” fülre, majd válaszd az „Összefűzés” gombot, és azon belül az „Lekérdezések összefűzése” opciót. Válaszd ki a két táblázatot, és kattints az „OK”-ra.
7. Töltsd be az adatokat az Excelbe: Kattints a „Kezdőlap” fülre, majd a „Bezárás és betöltés” gombra.

A Power Query segítségével ez egy kicsit bonyolultabbnak tűnik, de a végeredmény egy dinamikus megoldás, ami automatikusan frissül, ha az eredeti adataid megváltoznak.

Összegzés

Ebben a cikkben három különböző módszert mutattunk be az üres sorok beszúrására Excelben. Válaszd azt, amelyik a legjobban megfelel a tudásodnak és a feladat komplexitásának. Akár a legegyszerűbb segédoszlopos megoldást választod, akár a VBA makrókat vagy a Power Queryt, a lényeg, hogy az Excel táblázatod átláthatóbb és könnyebben kezelhető legyen!