Exemplo de macro para inserir/excluir linhas ou colunas em várias planilhas no Excel

Traduções deste artigo Traduções deste artigo
ID do artigo: 291305 - Exibir os produtos aos quais esse artigo se aplica.
Para uma versão deste artigo do Microsoft Excel 2000, consulte 213631.
Para obter um Microsoft Excel 98 e versões anteriores do Excel versão deste artigo, consulte 141690.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

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

Mais Informações

Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação para uma finalidade específica. Este artigo presume que você está familiarizados com a linguagem de programação que está sendo demonstrada e com as ferramentas que são usadas para criar e depurar procedimentos. Engenheiros de suporte podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades.
Para inserir ou excluir linhas ou colunas em várias planilhas, use um for each ... instrução Next para percorrer todas as folhas necessárias ou selecione as linhas ou colunas antes de executar a inserção ou exclusão.

Observação : os seguir exemplos de macros funcionam somente em um intervalo contíguo de colunas ou linhas.

Exemplo de macro utilizando 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
				

Exemplo de macro para selecionar a coluna e inserir nova coluna

A macro de exemplo a seguir seleciona a coluna inteira antes de ele insere 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
				

Referências

Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de dados de Conhecimento da Microsoft:
213823XL: Macro que dimensões de célula de alterações em várias planilhas não executar como esperado

Propriedades

ID do artigo: 291305 - Última revisão: quarta-feira, 31 de janeiro de 2007 - Revisão: 4.1
A informação contida neste artigo aplica-se a:
  • Microsoft Office Excel 2007
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002 Standard Edition
Palavras-chave: 
kbmt kbdtacode kbhowto kbprogramming KB291305 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 291305

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com