Macro de exemplo para inserir/excluir linhas ou colunas em várias planilhas no Excel

Resumo

Este artigo contém um exemplo de macro do Microsoft Visual Basic for Applications (procedimento Sub) que você pode usar para inserir ou excluir linhas ou colunas em várias planilhas no Microsoft Excel.

Mais informações

A Microsoft oferece exemplos de programação somente para ilustração, sem garantias expressas ou implícitas. Isso inclui, mas não está limitado a, as garantias implícitas de qualidade comercial ou conformidade para uma determinada finalidade. Este artigo supõe que você conhece a linguagem de programação que está sendo demonstrada e as ferramentas usadas nos processos de criação e depuração. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. Entretanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos que atendam aos seus requisitos específicos. Para inserir ou excluir linhas ou colunas em várias planilhas, use uma Instrução For Each...Next para percorrer todas as planilhas necessárias ou selecionar as linhas ou colunas antes de executar a inserção ou exclusão.

Observação

As macros de exemplo a seguir funcionam apenas em um intervalo contíguo de colunas ou linhas.

Macro de exemplo usando um loop para inserir linhas em várias planilhas

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 de exemplo para selecionar coluna e inserir nova coluna

A macro de exemplo a seguir seleciona a coluna inteira antes de inserir novas colunas:

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