Az Excelben egy üres sor beszúrása egyszerű feladat a legtöbb felhasználó számára. Vannak azonban olyan esetek, amikor szükség lehet egy üres sor beszúrására a táblázat minden sora közé, ahogy az alábbi képernyőképen látható. Ez javíthatja az olvashatóságot, és könnyebben navigálhat az adatok között. Ebben a cikkben néhány gyors és praktikus trükkről fogunk beszélni, amellyel az Excelben minden második vagy n-edik sor után üres sort szúrhat be.

Szúrjon be üres sort az Excel minden második vagy n-edik sorába

• A Beszúrás funkcióval
• Segítő oszloppal és a Rendezés funkcióval
• Csak néhány kattintással a Kutools for Excel segítségével
• VBA kóddal

Videó: Szúrjon be üres sort az Excel minden második sorába

Üres sor beszúrása minden második sorba a Beszúrás funkcióval

Ha kevés adattal rendelkezik, manuálisan kijelölheti az egyes sorokat a Ctrl billentyű lenyomásával, majd a Beszúrás funkcióval beszúrhat egy üres sort minden meglévő sor elé. A következőképpen teheti meg:

1. lépés: Válassza ki a sorokat manuálisan egyenként, miközben aranyozza le a Ctrl billentyűt

1. Válassza ki az első sort a sorszámára kattintva.
2. Ezután nyomja meg és tartsa lenyomva a Ctrl gombot a billentyűzeten, majd egyenként kattintson a kiválasztani kívánt sorszámokra.
   

2. lépés: Válassza ki a Beszúrás opciót a jobb gombbal kattintva

Miután kiválasztotta az összes sort, ahová egy üres sort szeretne beszúrni, kattintson a jobb gombbal a kiválasztott sorszámok egyikére, és válassza a betétlap a helyi menüből lásd a képernyőképet:

Eredmény:

Most egy üres sor kerül beszúrásra a kiválasztott sorok elé. Lásd a képernyőképet:

Szúrjon be üres sort minden második vagy n-edik sorba a segédoszloppal és a Rendezés funkcióval

A fenti módszer alkalmas a munkalap kis adataira. Ha azonban nagy mennyiségű adatról van szó, jobb, ha létrehoz egy segédoszlopot, majd a Rendezés funkciót alkalmazva üres sort szúr be az Excel minden második vagy n-edik sorába. Ennek eléréséhez kövesse az alábbi lépéseket:

1. lépés: Hozzon létre egy segédoszlopot

1. Hozzon létre egy segédoszlopot az adatok mellett. Például van egy A1:D10 adattartományom, beírom a „Segítő oszlop” az E1 cellában, lásd a képernyőképet:
   
2. Ezután írja be az 1-et és a 2-t külön az E2 és E3 cellába.
3. Jelölje ki az E2 és E3 cellát, majd húzza le a kitöltő fogantyút az utolsó adatcelláig, a növekvő számok listája az alábbi képernyőképen látható módon kitöltésre kerül:
   
4. Most másolja ki a sorszámokat, és illessze be őket közvetlenül az utolsó E10 cella alá. Lásd a képernyőképet:
   

2. lépés: Alkalmazza a Rendezés funkciót az adatok segítő oszlopok szerinti rendezéséhez

1. Most válassza ki az adatokat a Segítő oszlopban, majd kattintson a gombra dátum > Fajta, lásd a képernyőképet:
   
2. A kiugróban Rendezés figyelmeztetés párbeszédpanelt, válassza ki Bontsa ki a választékot lehetőségre, majd kattintson a gombra Fajta gomb, lásd a képernyőképet:
   
3. Az alábbi Fajta párbeszédpanelen válassza ki Segítő oszlop tól Sorrend legördülő listából kulcsoszlopként, a többi lehetőséget pedig hagyja változatlanul. Ezután kattintson OK a párbeszéd bezárásához. Lásd a képernyőképet:
   

Eredmény:

Most az adatok a segítő oszlopban lévő értékek alapján lesznek rendezve, és minden második sor után egy üres sor kerül beszúrásra.

Szúrjon be minden második vagy n-edik sort néhány kattintással

Néha, amikor meghatározott számú üres sort szeretne beszúrni rendszeres időközönként az adattartományon belül, például minden két vagy több adatsor után egy vagy több üres sort szeretne beszúrni, az előző módszer bonyolult és nehezen megfogható lehet. Ennek a feladatnak a gyors és egyszerű megoldásához, Kutools az Excel számára'S Üres sorok és oszlopok beszúrása funkció segítségével néhány kattintással megbirkózhat ezzel a feladattal.

Letöltés és telepítés után Kutools az Excel számárakettyenés Kutools > betétlap > Üres sorok és oszlopok beszúrása megnyitni Üres sorok és oszlopok beszúrása párbeszédablak.

1. Válassza ki azt az adattartományt, ahová üres sorokat szeretne beszúrni.
2. A pop-art design, négy időzóna kijelzése egyszerre és méretének arányai azok az érvek, amelyek a NeXtime Time Zones-t kiváló választássá teszik. Válassza a Üres sorok tól Betét tipus szakasz.
3. Ezután adja meg a számokat a Intervalluma és a Sorok szövegdobozokat, amennyire szüksége van. (Itt egy üres sort fogok beszúrni két sor után, tehát beírom 2 és a 1 be a Intervalluma és a Sorok dobozok külön.)
4. Végül kattintson OK a párbeszéd bezárásához.
   

Eredmény:

Most minden két sor után egyetlen üres sor kerül az adatok közé, lásd a képernyőképet:

Szúrjon be üres sort minden második vagy n-edik sorba VBA kóddal

Ha érdekli a VBA kód, itt megadunk egy kódot, amellyel meghatározott időközönként beszúrhat bizonyos számú üres sort az adatai közé. Kérjük, kövesse a következő lépéseket:

1. lépés: Nyissa meg a VBA-modul szerkesztőjét, és másolja ki a kódot

1. Tartsa lenyomva a ALT + F11 kulcsokat az Excelben, és megnyitja a Microsoft Visual Basic for Applications ablak.
2. Kattints betétlap > Modulok, és illessze be a következő kódot a Modulok Ablak.
   VBA-kód: Adott számú üres sor beszúrása az adatokba rögzített időközönként

   Sub InsertRowsAtIntervals()
   'Updateby Extendoffice
   Dim Rng As Range
   Dim xInterval As Integer
   Dim xRows As Integer
   Dim xRowsCount As Integer
   Dim xNum1 As Integer
   Dim xNum2 As Integer
   Dim WorkRng As Range
   Dim xWs As Worksheet
   xTitleId = "KutoolsforExcel"
   Set WorkRng = Application.Selection
   Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
   xRowsCount = WorkRng.Rows.Count
   xInterval = Application.InputBox("Enter row interval. ", xTitleId, 1, Type:=1)
   xRows = Application.InputBox("How many rows to insert at each interval? ", xTitleId, 1, Type:=1)
   xNum1 = WorkRng.Row + xInterval
   xNum2 = xRows + xInterval
   Set xWs = WorkRng.Parent
   For i = 1 To Int(xRowsCount / xInterval)
       xWs.Range(xWs.Cells(xNum1, WorkRng.Column), xWs.Cells(xNum1 + xRows - 1, WorkRng.Column)).Select
       Application.Selection.EntireRow.Insert
       xNum1 = xNum1 + xNum2
   Next
   End Sub

2. lépés: Futtassa le a kódot az eredmény eléréséhez

1. A kód beillesztése után nyomja meg a gombot F5 kulcs a kód futtatásához. A prompt mezőben válassza ki azt az adattartományt, ahová üres sorokat szeretne beszúrni. Ezután kattintson OK, lásd a képernyőképet:
   
2. Egy másik prompt mező jelenik meg, kérjük, adja meg a sorköz számát. És akkor kattintson OK, lásd a képernyőképet:
   
3. A következő mezőbe írja be a beszúrni kívánt üres sorok számát. Ezután kattintson OK, lásd a képernyőképet:
   

Eredmény:

Most a megadott számú üres sor bekerül a meglévő adatokba az Ön által megadott szabályos időközönként, lásd a képernyőképet:

Így lehet beszúrni minden második vagy n-edik sort egy adattartományba. Ha további Excel tippeket és trükköket szeretne felfedezni, weboldalunk ezer oktatóanyagot kínál, kérjük kattintson itt hozzáférni hozzájuk. Köszönjük, hogy elolvasta, és a jövőben is további hasznos információkkal szolgálunk!

Kapcsolódó cikkek: