Üres sor beszúrása az Excel minden sora után (vagy minden n. Sorba)

Videó megtekintése - Üres sor beszúrása az Excel minden sora után

A nagy adathalmazokkal dolgozóknak gyakran egyszerű dolgokra van szükségük, például sorok vagy oszlopok beszúrására/törlésére.

Bár már sokféle (és egyszerű) módja van a sorok hozzáadásának az Excelben, amikor üres sort kell beilleszteni minden második sor (vagy minden harmadik vagy negyedik sor) után, a dolgok kissé bonyolulttá válnak.

Helyezzen be egy üres sort minden sor után

Ebben az oktatóanyagban néhány nagyon egyszerű módszert mutatok be, amelyek segítségével üres sort illeszthet be a meglévő adatkészlet minden sora után (vagy minden n. Sorba).

Mivel nincs közvetlen módszer a sorok sorok hozzáadására a sorok között, az ebben a cikkben ismertetett módszerek megoldást jelentenek ennek megvalósítására, és ha jól érzi magát a VBA -val, akkor ezt egyetlen kattintással megteheti.

Segítő oszlop és a rendezés funkció használata

Tegyük fel, hogy rendelkezik az alább látható adatkészlettel, és üres lapot szeretne beszúrni a meglévő sorok közé.

Az alábbi lépésekkel üres sorokat illeszthet be a meglévő sorok közé:

1. Helyezzen be egy üres oszlopot az adatkészlet bal oldalán. Ehhez kattintson a jobb gombbal a bal szélső oszlop fejlécére, majd kattintson a Beszúrás gombra.
2. Írja be a „HelperColumn” szöveget az A1 -be (bármilyen szöveget használhat)
3. Írjon be 1 -et az A2 cellába, és 2 -t az A3 cellába.
4. Válassza ki mindkét cellát, és vigye a kurzort a kijelölés jobb alsó sarkába. Amikor a kurzor plusz ikonra vált, kattintson rá duplán. Ez az egész oszlopot növekvő számokkal fogja kitölteni
5. Lépjen a segítő oszlop utolsó feltöltött cellájához, majd válassza ki az alatta lévő cellát.
6. Írjon be 1 -et ebbe a cellába, és 2 -t az alatta lévő cellába
7. Válassza ki mindkét cellát, és vigye a kurzort a kijelölés jobb alsó sarkába.
8. Amikor a kurzor plusz ikonra változik, kattintson rá és húzza lefelé. Ez kitölti a számok sorozatát (ahogy a 3. lépésben is). Győződjön meg arról, hogy több számot kap, mint amennyi az adatkészletben van. Például, ha 10 rekord van az adatkészletben, győződjön meg róla, hogy legalább 10 cellát töltött ki ebben a lépésben. Ha kész, az adathalmaz az alábbiak szerint fog kinézni.
9. Válassza ki a teljes adatkészletet (beleértve a segítő oszlop összes celláját).
10. Kattintson az Adatok fülre
11. Kattintson a Rendezés lehetőségre
12. A Rendezés párbeszédpanelen használja a következő beállításokat:
    • Rendezés: Segítő
    • Rendezés módja: Cellaérték
    • Sorrend: a legkisebbtől a legnagyobbig
13. Kattintson az OK gombra. Ez megadja az adathalmazt az alábbiak szerint.
14. Törölje a segítő oszlopot.

Észreveheti, hogy amint az OK gombra kattint a Rendezés párbeszédpanelen, azonnal átrendezi a sorokat, és most van egy üres sor az adatkészlet minden sora után.

A valóságban ez nem egy üres sor beszúrása. Ez a rendezési módszer egyszerűen átrendezi az adatokat úgy, hogy üres sorokat helyez el az adatkészlet alól az adatkészlet sorai közé.

Ugyanezt a logikát ki is terjesztheti helyezzen be egy üres sort minden két vagy három sor után.

Tegyük fel, hogy rendelkezik az alább látható adatkészlettel, és minden két sor után üres sort szeretne kapni.

Ennek lépései az alábbiakban találhatók:

1. Helyezzen be egy üres oszlopot az adatkészlet bal oldalán. Ehhez kattintson a jobb gombbal a bal szélső oszlop fejlécére, majd kattintson a Beszúrás gombra.
2. Írja be a „HelperColumn” szöveget az A1 -be (bármilyen szöveget használhat)
3. Írjon be 1 -et az A2 cellába, és 2 -t az A3 cellába.
4. Válassza ki mindkét cellát, és vigye a kurzort a kijelölés jobb alsó sarkába. Amikor a kurzor plusz ikonra vált, kattintson rá duplán. Ez az egész oszlopot növekvő számokkal fogja kitölteni
5. Lépjen a segítő oszlop utolsó feltöltött cellájához, majd válassza ki az alatta lévő cellát.
6. Írjon be 2 -et ebbe a cellába, és 4 -et az alatta lévő cellába. 2 -ben többszörös számokat használunk, mivel minden két sor után egy üres sort szeretnénk.
7. Válassza ki mindkét cellát, és vigye a kurzort a kijelölés jobb alsó sarkába.
8. Amikor a kurzor plusz ikonra változik, kattintson rá és húzza lefelé. Ez kitölti a számok sorozatát (ahogy a 3. lépésben is). Győződjön meg arról, hogy nagyobb számot kap, mint az adathalmaz. Például, ha 10 rekord van az adatkészletben, győződjön meg róla, hogy legalább a 10 -es számig tart.
9. Válassza ki a teljes adatkészletet (beleértve a segítő oszlop összes celláját).
10. Kattintson az Adatok fülre
11. Kattintson a Rendezés lehetőségre
12. A Rendezés párbeszédpanelen használja a következő beállításokat:
    • Rendezés: Segítő
    • Rendezés módja: Cellaérték
    • Sorrend: a legkisebbtől a legnagyobbig
13. Kattintson az OK gombra. Ez adja meg a végső adathalmazt az alábbiak szerint (az adatkészlet minden második sora után üres sorral)
14. Törölje a segítő oszlopot.

Hasonlóképpen, ha üres sort szeretne beszúrni minden harmadik sor után, használja a 3, 6, 9 számot és így tovább az 5. lépésben.

Egyszerű VBA kód használata

Míg sok alternatívát kell tennie az alternatív üres sorok Excelbe történő beillesztéséhez, a VBA -val mindez egy tortát jelent.

Egy egyszerű VBA kóddal mindössze annyit kell tennie, hogy kiválasztja azt az adatkészletet, amelybe minden sor után üres sort szeretne beszúrni, és egyszerűen futtassa a kódot (egyetlen kattintás).

Az alábbiakban látható a VBA -kód, amely üres sort illeszt be az adatkészlet minden sora után:

Sub InsertAlternateRows () 'Ez a kód egy sort szúr be a kiválasztás minden sora után' Ezt a kódot Sumit Bansal hozta létre a trumpexcel.com oldalról Dim rng mint tartomány Dim CountRow mint egész egész Dim i mint egész készlet rng = Selection CountRow = rng. EntireRow.Count For i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Válassza a Next i End Sub lehetőséget

A fenti kód megszámolja a kijelölt sorok teljes számát, és a Következő ciklus segítségével végiggörget minden sort, és üres sort szúr be az adatkészlet minden létező sora után.

A következő lépésekkel helyezze el ezt a VBA -kódot az Excel VB -szerkesztőben:

1. Másolja a fenti kódot
2. Lépjen a Fejlesztő fülre, és kattintson a Visual Basic lehetőségre. Ez megnyitja a VB szerkesztőt. Használhatja a billentyűparancsot is ALT + F11
3. A VB szerkesztőben kattintson a jobb gombbal a Project Explorer bármelyik objektumára
4. Vigye a kurzort a Beszúrás opció fölé, majd kattintson a Modul elemre. Ezzel új modult helyez be
5. A Modul kód ablakba illessze be a fenti kódot.

Miután megtalálta a kódot a VB szerkesztőben, most ezzel a kóddal üres sorokat szúrhat be az adatkészlet minden második sora után.

Íme a lépések a kód használatával üres sorok beszúrásához minden sor után:

1. Válassza ki a teljes adatkészletet (kivéve a fejléc sort)
2. Kattintson a Fejlesztő fülre (ha nincs fejlesztői lapja, kattintson ide, hogy megtudja, hogyan szerezheti meg)
3. Kattintson a „Makrók” lehetőségre
4. A Makró párbeszédpanelen válassza ki a makrót - „InsertAlternateRows”
5. Kattintson a Futtatás gombra

Ez az!

A fenti lépések azonnal beillesztenék az üres sorokat az adatkészletbe.

Sokféleképpen futtathat makrót az Excelben. Például, ha ezt elég gyakran kell tennie, hozzáadhatja ezt a makrót a gyorselérési eszköztárhoz, hogy egyetlen kattintással futtassa.

A makrók futtatásának különböző módjairól itt olvashat bővebben.

Ha minden második sor után üres sort szeretne beszúrni, akkor használja az alábbi kódot:

Sub InsertBlankRowAfterEvery2ndRow () 'Ez a kód egy sort szúr be a kiválasztás minden második sora után' Ezt a kódot Sumit Bansal hozta létre a trumpexcel.com oldalról Dim rng Mint tartomány Dim CountRow mint Integer Dim i mint Integer Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Válassza a Next i End Sub lehetőséget

Remélem, hasznosnak találta ezt az oktatóanyagot.