Ukázkové makro pro vložení nebo odstranění řádků nebo sloupců na více listech v Excelu

Souhrn

Tento článek obsahuje ukázkové makro jazyka Microsoft Visual Basic for Applications (procedura Sub), které můžete použít k vložení nebo odstranění řádků nebo sloupců ve více listech v aplikaci Microsoft Excel.

Další informace

Společnost Microsoft poskytuje ukázky programování pouze pro ilustraci, bez žádné záruky výslovně uvedené nebo odvozené, včetně, bez omezení, odvozených záruk vztahujících se k obchodovatelnosti nebo vhodnosti pro určitý účel. Tento článek předpokládá, že uživatel je obeznámen s programovacím jazykem, který je předmětem ukázky, a s nástroji použitými pro vytvoření a ladění skriptu. Technici podpory společnosti Microsoft mohou pomoci vysvětlit funkce konkrétního postupu. Nebudou však upravovat tyto příklady tak, aby poskytovaly přidanou funkcionalitu nebo sestavovaly postupy, které splňují vaše specifické požadavky. Chcete-li vložit nebo odstranit řádky nebo sloupce na více listech, použijte příkaz For Each...Next k procházení všech požadovaných listů nebo před vložením nebo odstraněním vyberte řádky nebo sloupce.

Ukázkové makro s využitím smyčky pro vložení řádků do více listů

Sub Insert_Rows_Loop()
     Dim CurrentSheet As Object

     ' Loop through all selected sheets.
     For Each CurrentSheet In ActiveWindow.SelectedSheets
        ' Insert 5 rows at top of each sheet.
        CurrentSheet.Range("a1:a5").EntireRow.Insert
     Next CurrentSheet
End Sub

Ukázkové makro pro výběr sloupce a vložení nového sloupce

Následující ukázkové makro vybere celý sloupec před vložením nových sloupců:

Sub Select_Insert_Column()
    Dim MyRange as Object
    ' Store the selected range in a variable.
    Set MyRange = Selection
    ' Select the entire column.
    Selection.EntireColumn.Select
    ' Insert Columns in all selected sheets.
    Selection.Insert
    ' Reselect the previously selected cells.
    MyRange.Select
End Sub