Exempelmakro för att infoga/ta bort rader eller kolumner i flera blad i Excel

Anteckning

Office 365 ProPlus byter namn till Microsoft 365-appar för företag. Mer information om den här ändringen finns i det här blogginlägget.

Sammanfattning

Den här artikeln innehåller ett exempel på ett Microsoft Visual Basic for Applications-makro (underprocedur) som du kan använda för att infoga eller ta bort rader eller kolumner i flera kalkylblad i Microsoft Excel.

Mer information

Microsoft tillhandahåller programmeringsexempel enbart i förklarande syfte och gör inga utfästelser, varken uttryckligen eller underförstått. Detta omfattar men begränsas inte till underförstådd garanti för säljbarhet eller lämplighet för ett visst syfte. I denna artikel förutsätts att du känner till det programmeringsspråk som demonstreras och de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa dig att förklara funktionaliteten i en viss procedur. De ändrar dock inte de här exemplen för att ge ytterligare funktioner eller skapa procedurer så att de uppfyller dina specifika krav. Om du vill infoga eller ta bort rader eller kolumner i flera blad använder du antingen en För varje ... Nästa sats för att stega igenom alla obligatoriska blad eller markera raderna eller kolumnerna innan du infogning eller borttagning.

Anteckning

Följande exempelmakro fungerar bara på angränsande kolumner eller rader.

Exempelmakro som använder en slinga för att infoga rader i flera blad

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

Exempelmakro för att markera kolumn och infoga ny kolumn

Följande exempelmakro markerar hela kolumnen innan den infogar nya kolumner:

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