Přejít na hlavní obsah

Excel VBA: vložení řádku s posunem dolů

Microsoft Excel je jedním z nejoblíbenějších tabulkových softwarových produktů. Ve většině případů se uživatelé aplikace Excel při vytváření složitých datových modelů setkávají s nutností Vložit řádek s posunem dolů. Tato operace vám umožňuje přidat nový datový řádek do tabulky a zachovat sekvenci a vazby mezi sousedními řádky.

Ruční přidání řádku s posunem dolů v Excelu může vyžadovat několik kroků, což nemusí být příliš pohodlné, zejména při práci s velkými tabulkami. S využitím programovacího jazyka VBA (Visual Basic for Applications) v Excelu je to však mnohem jednodušší a rychlejší.

VBA - je to integrovaný programovací jazyk vyvinutý společností Microsoft speciálně pro automatizaci úloh v aplikacích Microsoft Office. VBA vám umožňuje vytvářet makra, která provádějí různé operace s daty, včetně vložení řádku s posunem dolů v Excelu.

Pomocí VBA v Excelu můžete vytvářet makra, která definují sekvenci akcí k provedení operace vložení řádku posunutím dolů. Toto makro lze kdykoli spustit, což vám umožní přidat řádky posunuté dolů do tabulky jediným stisknutím tlačítka myši nebo pomocí klávesových zkratek.

Jak vložím posuvný řádek dolů do aplikace Excel VBA?

Excel VBA (Visual Basic for Applications) vám umožňuje automatizovat procesy v Excelu a obsahuje mnoho funkcí a příkazů pro práci s daty. Pokud potřebujete vložit řádek do tabulky aplikace Excel s posunem dolů, pak má VBA vhodnou metodu, kterou k tomu můžete použít.

Chcete-li vložit posuvný řádek dolů do Excelu VBA, postupujte podle těchto kroků:

  1. Vyberte řádek, po kterém chcete vložit nový řádek.
  2. Pomocí metody Insert pro objekt Range vložte nový řádek s posunem dolů. Například:
Range("A2").Insert Shift:=xlDown

Tento kód vloží nový řádek do buňky A2 s posunem všech následujících řádků dolů.

Případně můžete použít metodu EntireRow pro objekt Range k vložení celého řádku. Například:

Range("2:2").Insert Shift:=xlDown

Tento kód také vloží nový řádek s posunem všech následujících řádků dolů.

Nyní víte, jak vložit posuvný řádek dolů do Excelu VBA. Je to snadný a pohodlný způsob, jak přidat nové řádky do tabulky aplikace Excel pomocí kódu VBA.

Příklad použití aplikace Excel VBA k vložení posuvného řádku

Chcete-li začít, musíte otevřít Editor VBA v Excelu stisknutím kombinace kláves ALT + F11. Dále vyberte modul, do kterého bude postup vložen.

Níže je uveden příklad kódu VBA pro vložení řádku s posunem dolů. V tomto příkladu se předpokládá, že tabulka je v listu "Sheet1" a vložení bude provedeno v řádku 2.

Sub InsertRowWithShift () Dim ws As Worksheet Dim LastRow As Long 'oznamujeme pracovní list Set ws = ThisWorkbook.Sheets ("Sheet1") 'najdeme Poslední vyplněný řádek ve sloupci a LastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row ' vložíme prázdný řádek do požadované pozice ws.Rows(2).Insert Shift:=xlDown ' Zkopírujte obsah horního řádku a vložte jej do nového řádku ws.Rows(3).Value = ws.Rows(2).Value End Sub

Vysvětlení kódu:

  1. Vytváříme proměnné pro pracovní list a poslední vyplněný řádek.
  2. Nastavíme pracovní list.
  3. Poslední vyplněný řádek najdeme ve sloupci a.
  4. Vložíme prázdný řádek do pozice 2 pomocí vlastnosti Insert a parametr Shift:=xlDown, který označuje, že řádky by se měly posouvat dolů.
  5. Zkopírujte obsah horního řádku a vložte jej do nového řádku pomocí vlastnosti Value.

Po vložení řádku se všechny ostatní řádky automaticky posunou dolů.

Chcete-li spustit postup, můžete jej přiřadit k tlačítku nebo použít klávesovou zkratku. Nyní můžete tento příklad použít k vložení posunutého řádku do tabulky v Excelu, což zjednodušuje a zrychluje vaši práci.

Čtěte také