Przykładowe makro do wstawiania/usuwania wierszy lub kolumn w wielu arkuszach w programie Excel

Podsumowanie

Ten artykuł zawiera przykładowe makro programu Microsoft Visual Basic for Applications (procedura podrzędna), którego można użyć do wstawiania lub usuwania wierszy lub kolumn w wielu arkuszach w programie Microsoft Excel.

Więcej informacji

Microsoft dostarcza przykłady programowania wyłącznie w celu zilustrowania i nie oferuje żadnej gwarancji, wyraźnej ani dorozumianej. w tym także, ale nie tylko, dorozumianych gwarancji zbywalności lub przydatności do określonych celów. W tym artykule zakłada się, że czytelnik zna demonstrowany język programowania oraz narzędzia używane do tworzenia i debugowania procedur. Inżynierowie wsparcia technicznego Microsoft mogą pomóc w wyjaśnieniu funkcjonalności określonej procedury. Nie będą oni jednak modyfikować tych przykładów w celu dodania funkcji ani konstruować nowych procedur celem dostosowania ich do potrzeb użytkownika. Aby wstawić lub usunąć wiersze lub kolumny na wielu arkuszach, użyj instrukcji Dla każdego...Następny, aby przeiterować przez wszystkie wymagane arkusze, lub zaznacz odpowiednie wiersze lub kolumny przed wykonaniem operacji wstawiania lub usuwania.

Uwaga / Notatka

Poniższe przykładowe makra działają tylko w ciągłym zakresie kolumn lub wierszy.

Przykładowe makro używające pętli do wstawiania wierszy w wielu arkuszach

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

Przykładowe makro do wybierania kolumny i wstawiania nowej kolumny

Następujące przykładowe makro wybiera całą kolumnę przed wstawianie nowych kolumn:

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