Macro di esempio per inserire/eliminare righe o colonne in più fogli in Excel

Riepilogo

Questo articolo contiene una macro di esempio di Microsoft Visual Basic, Applications Edition (routine Sub) che è possibile utilizzare per inserire o eliminare righe o colonne in più fogli di lavoro in Microsoft Excel.

Ulteriori informazioni

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presuppone che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. I tecnici di supporto tecnico Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare routine, ma in nessuno caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare routine atte a soddisfare specifiche esigenze. Per inserire o eliminare righe o colonne in più fogli, usare un'istruzione For Each...Next per scorrere tutti i fogli necessari o selezionare le righe o le colonne prima di effettuare l'inserimento o l'eliminazione.

Macro di esempio che usa un ciclo per inserire righe in più fogli

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

Macro di esempio per selezionare le colonne e inserire una nuova colonna

La macro di esempio seguente seleziona l'intera colonna prima di inserire nuove colonne:

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