Jak přidat prázdný řádek v Excelu po každém vyplněném řádku makro

Microsoft Excel – jedna z nejoblíbenějších tabulkových aplikací, která je široce používána v mnoha oblastech činnosti. Jedním z důležitých úkolů, kterým uživatelé aplikace Excel čelí, je nutnost přidat prázdný řádek po každém vyplněném řádku v tabulce. Ručně to může být časově náročné a neefektivní.

Makra - je to sada instrukcí nebo akcí, které lze zapsat do Excelu, aby se automatizovalo provádění určitých úkolů. Pomocí maker můžete výrazně zjednodušit práci s tabulkami a učinit je rychlejšími a efektivnějšími. V tomto článku se podíváme na to, jak přidat prázdný řádek v Excelu za každý vyplněný řádek pomocí makra.

Než začnete vytvářet makro, musíte vědět, že makra v Excelu lze zaznamenat dvěma způsoby: absolutní a relativní rekord. Absolutní záznam zachycuje všechny akce uživatele, zatímco relativní záznam zachycuje pouze akce uvnitř tabulky. V tomto článku použijeme absolutní záznam makra k přidání prázdných řádků za každý vyplněný řádek v Excelu.

Makro v Excelu pro přidání prázdného řádku za každý vyplněný řádek

Chcete-li přidat prázdný řádek za každý vyplněný řádek v Excelu, můžete použít následující makro:

Sub AddEmptyRows()Dim LastRow As LongDim i As LongLastRow = Cells(Rows.Count, 1).End(xlUp).RowFor i = LastRow To 1 Step -1If Not IsEmpty(Cells(i, 1)) ThenRows(i + 1).Insert Shift:=xlDownEnd IfNext iEnd Sub

Toto makro zkontroluje každý řádek ve sloupci A a pokud není prázdný, vloží pod něj nový prázdný řádek.

Chcete-li použít toto makro, postupujte podle pokynů:

1. Otevřete sešit aplikace Excel a klikněte ALT + F11 pro otevření editoru VBA.
2. V editoru VBA vyberte Vložení > Modul k vytvoření nového modulu.
3. Zkopírujte a vložte makro kód do nového modulu.
4. Zavřete Editor VBA a vraťte se do své knihy Excel.
5. Vyberte buňku, kde začne kontrola vyplněných řádků (například A2).
6. Stiskněte ALT + F8 Chcete-li otevřít dialogové okno "vyvolat makro".
7. Vyberte makro " AddEmptyRows "a klikněte na tlačítko"vyvolat".
8. Makro se provede a po každém vyplněném řádku přidá prázdný řádek.

Nyní můžete toto makro použít k rychlému přidání prázdných řádků do Excelu a zjednodušení práce s daty.

Krok 1: Otevření Visual Basic Pro aplikace

Než začnete používat makra v Excelu, musíte otevřít Visual Basic Pro aplikace (VBA). Je to integrované vývojové prostředí, které vám umožňuje vytvářet a upravovat makra.

Chcete-li otevřít VBA v Excelu, postupujte takto:

1. Otevřete soubor Excel, se kterým budete pracovat.
2. Stiskněte Alt + F11 nebo vyberte kartu Zpracovatel a stiskněte tlačítko Visual Basic.

Poté se otevře okno Visual Basic Pro aplikace, kde můžete vytvářet a upravovat makra. Na levé straně okna je prohlížeč projektů, který zobrazuje strukturu dokumentu aplikace Excel, a na pravé straně okna lze psát a upravovat kód Maker.

Nyní, když jste otevřeli Visual Basic Pro aplikace, jste připraveni začít vytvářet makro pro přidání prázdných řádků v Excelu za každý vyplněný řádek.

Krok 2: Vytvoření nového makra

Po otevření souboru v Excelu je nutné vytvořit nové makro pro přidání prázdného řádku za každý vyplněný řádek. Chcete-li to provést, postupujte takto:

Krok 1: Klikněte na kartu Vývojář v hlavní nabídce aplikace Excel.

Krok 2: V části Kód vyberte Editor Visual Basic.

Krok 3: V okně makra, které se otevře, klikněte na Vytvořit.

Krok 4: Do pole Název makra zadejte název makra a klikněte na Vytvořit.

Otevře se Makro okno a tam budete moci napsat kód, který se spustí při spuštění makra.

Ujistěte se, že celý kód popisující akce přidávání prázdného řádku je uvnitř funkce Sub:

Sub Ваше_имя_макроса()' вставьте код для добавления пустой строки после каждой заполненной строкиEnd Sub

Nyní jste připraveni začít psát kód pro přidání prázdného řádku do Excelu za každý vyplněný řádek.

Pokračujte ve čtení dalšího kroku a zjistěte, jak to implementovat pomocí VBA kódu.

Krok 3: Záznam makra pro přidání prázdného řádku

Chcete-li automaticky přidat prázdný řádek po každém vyplněném řádku v Excelu, musíme zapsat makro, které tento úkol provede.

Chcete-li začít, otevřete Excel a přejděte na kartu Vývojář. Pokud tuto kartu nemáte, musíte ji aktivovat v nastavení aplikace Excel.

Na kartě Vývojář vyhledejte skupinu kód a klikněte na tlačítko "Zapsat makro". V okně, které se zobrazí, zadejte název makra, jako je "Přidatpustný řádek", a klikněte na"OK".

Excel nyní zaznamenává všechny vaše akce. Postupujte podle následujících kroků:

1. Přejděte na první vyplněný řádek, po kterém chcete přidat prázdný řádek.

2. Stisknutím klávesy "Enter" se přesunete na další řádek.

3. Stiskněte klávesu " Ctrl + Shift + vývojář "a stiskněte tlačítko"Zavřít záznam makra".

Nyní je Makro pro přidání prázdného řádku po každém vyplněném řádku připraveno. Můžete jej použít v libovolném souboru aplikace Excel k automatickému přidávání prázdných řádků.

Krok 4: Aplikace makra na vybraný rozsah

Nyní, když je makro vytvořeno, zbývá jej použít pouze na požadovaný rozsah v Excelu. Chcete-li po každém vyplněném řádku přidat prázdný řádek, postupujte podle pokynů níže:

1. Vyberte rozsah: Zvýrazněte rozsah buněk, na které chcete makro použít. Pokud jsou například vaše data ve sloupci A, zvýrazněte je.
2. Otevřete dialogové okno makra: V nabídce vývoj vyberte makra nebo stisknutím ALT + F8 otevřete dialogové okno makra.
3. Vyberte makro: Pokud jste vytvořili pouze jedno makro, bude automaticky vybráno. Pokud máte více Maker, Vyberte ze seznamu požadované makro.
4. Vyberte"Spustit": Klepnutím na tlačítko Spustit použijete vybrané makro na vybraný rozsah.

Po provedení tohoto kroku bude makro aplikováno na vybraný rozsah a po každém vyplněném řádku v Excelu budou přidány prázdné řádky.

Poznámka: Pokud potřebujete použít makro na různá pásma, opakujte tyto kroky pro každý rozsah Samostatně.