Podívejte se na video - v Excelu vložte za každý řádek prázdný řádek
Lidé, kteří pracují s velkými datovými sadami, často potřebují jednoduché věci, jako je vkládání/mazání řádků nebo sloupců.
Zatímco v aplikaci Excel již existuje mnoho různých (a jednoduchých) způsobů přidávání řádků, pokud jde o vložení prázdného řádku za každý druhý řádek (nebo každý třetí nebo čtvrtý řádek), věci se trochu zkomplikují.
Vložte prázdný řádek za každý další řádek
V tomto tutoriálu vám ukážu několik opravdu jednoduchých způsobů, jak vložit prázdný řádek za každý řádek do existující datové sady (nebo každý n -tý řádek).
Protože neexistuje žádný přímý způsob, jak přidat řádky mezi řádky, způsob popsaný v tomto článku je řešení, jak toho dosáhnout. A pokud vám vyhovuje VBA, můžete to udělat jediným kliknutím.
Použití pomocného sloupce a funkce řazení
Předpokládejme, že máte datovou sadu, jak je uvedeno níže, a chcete mezi existující řádky vložit mezeru.
Níže jsou uvedeny kroky pro vložení prázdných řádků mezi existující řádky:
- Vlevo od datové sady vložte prázdný sloupec. Chcete-li to provést, klikněte pravým tlačítkem na záhlaví sloupce úplně vlevo a klikněte na Vložit.
- Do A1 zadejte text „HelperColumn“ (můžete použít libovolný text)
- Do buňky A2 zadejte 1 a do buňky A3 2.
- Vyberte obě buňky a umístěte kurzor do pravé dolní části výběru. Když se kurzor změní na ikonu plus, dvakrát na ni klikněte. Tím se celý sloupec vyplní přírůstkovými čísly
- Přejděte na poslední vyplněnou buňku ve sloupci pomocníka a poté vyberte buňku pod ní.
- Zadejte 1 do této buňky a 2 do buňky pod ní
- Vyberte obě buňky a umístěte kurzor do pravé dolní části výběru.
- Když se kurzor změní na ikonu plus, klikněte na něj a přetáhněte jej dolů. Tím vyplníme řadu čísel (stejně jako jsme dostali v kroku 3). Ujistěte se, že získáte více čísel, než kolik máte v datové sadě. Pokud je v datové sadě například 10 záznamů, ujistěte se, že v tomto kroku vyplníte alespoň 10 buněk. Jakmile bude hotovo, bude váš datový soubor vypadat, jak je uvedeno níže.
- Vyberte celou datovou sadu (včetně všech buněk ve sloupci pomocníka).
- Klikněte na kartu Data
- Klikněte na možnost Seřadit
- V dialogovém okně Seřadit použijte následující nastavení:
- Seřadit podle: Pomocník
- Třídit podle: Hodnota buňky
- Pořadí: Od nejmenší po největší
- Klikněte na OK. Tím získáte datovou sadu, jak je uvedeno níže.
- Odstranit pomocný sloupec.
Všimli byste si, že jakmile kliknete na OK v dialogovém okně Seřadit, okamžitě změní uspořádání řádků a nyní máte po každém řádku datové sady prázdný řádek.
Ve skutečnosti to ve skutečnosti není vložení prázdného řádku. Tato metoda řazení jednoduše přeskupuje data umístěním prázdných řádků pod datovou sadu mezi řádky v datové sadě.
Stejnou logiku můžete také rozšířit na vložte prázdný řádek za každé dva řádky nebo každé tři řádky.
Předpokládejme, že máte datovou sadu, jak je znázorněno níže, a chcete získat prázdný řádek po každých dvou řádcích.
Níže jsou uvedeny kroky, jak to provést:
- Vlevo od datové sady vložte prázdný sloupec. Chcete-li to provést, klikněte pravým tlačítkem na záhlaví sloupce úplně vlevo a klikněte na Vložit.
- Do textu A1 zadejte text „HelperColumn“ (můžete použít libovolný text)
- Do buňky A2 zadejte 1 a do buňky A3 2.
- Vyberte obě buňky a umístěte kurzor do pravé dolní části výběru. Když se kurzor změní na ikonu plus, dvakrát na ni klikněte. Tím se celý sloupec vyplní přírůstkovými čísly
- Přejděte na poslední vyplněnou buňku ve sloupci pomocníka a poté vyberte buňku pod ní.
- Zadejte 2 do této buňky a 4 do buňky pod ní. Používáme čísla v násobcích 2, protože po dvou řádcích chceme jeden prázdný řádek.
- Vyberte obě buňky a umístěte kurzor do pravé dolní části výběru.
- Když se kurzor změní na ikonu plus, klikněte na něj a přetáhněte jej dolů. Tím vyplníme řadu čísel (stejně jako jsme dostali v kroku 3). Ujistěte se, že získáte číslo větší, než jaké máte v datové sadě. Pokud je například v datové sadě 10 záznamů, ujistěte se, že získáte alespoň číslo 10.
- Vyberte celou datovou sadu (včetně všech buněk ve sloupci pomocníka).
- Klikněte na kartu Data
- Klikněte na možnost Seřadit
- V dialogovém okně Seřadit použijte následující nastavení:
- Seřadit podle: Pomocník
- Třídit podle: Hodnota buňky
- Pořadí: Od nejmenší po největší
- Klikněte na OK. Tím získáte konečnou sadu dat, jak je uvedeno níže (s prázdným řádkem za každým druhým řádkem datové sady)
- Odstranit pomocný sloupec.
Podobně v případě, že chcete za každý třetí řádek vložit prázdný řádek, použijte v kroku 5 číslo 3, 6, 9 atd.
Pomocí jednoduchého kódu VBA
Zatímco k vložení alternativních prázdných řádků do Excelu potřebujete spoustu řešení, s VBA je to všechno hračka.
S jednoduchým kódem VBA stačí vybrat datovou sadu, do které chcete za každý řádek vložit prázdný řádek, a jednoduše spustit kód (stačí jedno kliknutí).
Níže je kód VBA, který vloží prázdný řádek za každý řádek v datové sadě:
Sub InsertAlternateRows () 'Tento kód vloží řádek za každý řádek ve výběru' Tento kód vytvořil Sumit Bansal z trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng. EntireRow.Count for i = 1 To CountRow ActiveCell.Offset (1, 0) .EntireRow.Insert ActiveCell.Offset (2, 0). Select Next i End Sub
Výše uvedený kód počítá celkový počet řádků ve výběru a používá smyčku For Next k procházení každým řádkem a vložení prázdného řádku za každý existující řádek v datové sadě.
Zde jsou kroky k umístění tohoto kódu VBA do editoru VB v aplikaci Excel:
- Zkopírujte výše uvedený kód
- Přejděte na kartu Vývojář a klikněte na možnost Visual Basic. Tím se otevře editor VB. Můžete také použít klávesovou zkratku ALT + F11
- V editoru VB klikněte pravým tlačítkem na libovolný objekt v Průzkumníku projektů
- Najeďte kurzorem na možnost Vložit a poté klikněte na Modul. Tím se vloží nový modul
- V okně Kód modulu vložte výše uvedený kód.
Jakmile budete mít kód v editoru VB, můžete nyní tento kód použít k vložení prázdných řádků za každý další řádek v datové sadě.
Zde jsou kroky k použití kódu k vložení prázdných řádků za každý řádek:
- Vyberte celou datovou sadu (kromě řádku záhlaví)
- Klikněte na kartu Vývojář (pokud nemáte kartu Vývojář, kliknutím sem se dozvíte, jak ji získat)
- Klikněte na možnost „Makra“
- V dialogovém okně Makro vyberte makro - „InsertAlternateRows“
- Klikněte na Spustit
A je to!
Výše uvedené kroky by do datové sady okamžitě vložily střídající se prázdné řádky.
Existuje mnoho různých způsobů, jak spustit makro v aplikaci Excel. Pokud to například musíte dělat poměrně často, můžete toto makro přidat na panel nástrojů Rychlý přístup, abyste jej mohli spustit jediným kliknutím.
Zde si můžete přečíst více o různých způsobech spouštění maker.
V případě, že chcete vložit prázdný řádek za každý druhý řádek, můžete použít níže uvedený kód:
Sub InsertBlankRowAfterEvery2ndRow () 'Tento kód vloží řádek za každý druhý řádek ve výběru' Tento kód vytvořil Sumit Bansal z trumpexcel.com Dim rng As Range Dim CountRow As Integer Dim i As Integer Set rng = Selection CountRow = rng .EntireRow.Count For i = 1 To CountRow / 2 ActiveCell.Offset (2, 0) .EntireRow.Insert ActiveCell.Offset (3, 0). Vyberte Next i End Sub
Doufám, že jste našli tento návod užitečný.
