ID do artigo: 213610 - Exibir os produtos aos quais esse artigo se aplica.
Para obter uma versão deste artigo referente ao Microsoft Excel para Macintosh, consulte 142528.
Expandir tudo | Recolher tudo

Sumário

Este artigo contém um exemplo de macro do Microsoft Visual Basic for Applications que pode ser usado para excluir todas as outras linhas em um intervalo selecionado em uma planilha do Microsoft Excel.

Mais Informações

A Microsoft fornece exemplos de programação apenas por questões ilustrativas, sem garantias expressas ou implícitas. Isto inclui, mas não está limitado a garantias implícitas de comercialização ou adequação a um determinado propósito. Este artigo pressupõe que você conhece a linguagem de programação demonstrada e também as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudá-lo, fornecendo a explicação da funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos específicos para atender às suas necessidades específicas. Para usar a seguinte macro, configure uma pasta de trabalho do Excel conforme a seguir:
  1. Crie uma nova pasta de trabalho do Microsoft Excel.
  2. Na nova planilha, no intervalo A1:A9, digite os números de 1 a 5, deixando as linhas em branco, conforme o exemplo a seguir:
          A1: 1
          A2:
          A3: 2
          A4:
          A5: 3
          A6:
          A7: 4
          A8:
          A9: 5
    					
  3. No menu Ferramentas aponte para Macro e clique em Editor do Visual Basic.

    Observação No Microsoft Office Excel 2007 e versões posteriores, clique em Visual Basic no grupo Código na guia Desenvolvedor.
  4. No menu Inserir, clique em Módulo.
  5. No novo módulo, digite a seguinte macro:
    Sub Delete_Every_Other_Row()
    
       ' Variáveis de dimensão.
       Y = False              ' Alterar para True se desejar
                              ' excluir linhas 1, 3, 5 e assim por diante.
       I = 1
       Definir xRng = Seleção
    
       ' Efetuar um loop uma vez para cada linha na seleção.
       Para xCounter = 1 para xRng.Rows.Count
    
           ' Se Y for True, então...
           Se Y = True então,
    
               ' ...excluir uma linha inteira de células.
               xRng.Cells(I).EntireRow.Delete
    
           ' Caso contrário...
           Outro
    
               ' ...incrementar um por um para que possamos percorrer o intervalo.
               I = I + 1
    
           End If
    
           ' Se Y for True, torná-lo False; Se Y for False, torná-lo True.
           Y = Não Y
    
       Next xCounter
    
    End Sub
    						
  6. Alterne para a planilha que contém o dado e selecione o intervalo A1:A9.
  7. Para executar a macro, aponte para Macro no menu Ferramentas e clique em Macros.

    Observação No Excel 2007 e versões posteriores, clique em Macros no grupo Código na guia Desenvolvedor.

    Observação Para exibir a guia Desenvolvedor na Faixa de Opções, clique no Botão do Microsoft Office e em Opções do Excel, clique na categoria Mais usados, selecione a caixa de seleção Mostrar guia Desenvolvedor na Faixa de Opções e clique em OK.
  8. Selecione a macro Delete_Every_Other_Row e clique em Executar.
Essa macro excluirá todas as linhas em branco, iniciando pela segunda linha da seleção.

Observação Se você tiver uma lista de dados que contém colunas múltiplas, selecione apenas a primeira coluna de dados, e em seguida, execute a macro.

Propriedades

ID do artigo: 213610 - Última revisão: quarta-feira, 4 de setembro de 2013 - Revisão: 3.0
A informação contida neste artigo aplica-se a:
  • Microsoft Office Excel 2003
  • Microsoft Office Excel 2007
  • Microsoft Excel 2010
  • Microsoft Excel 2013
Palavras-chave: 
kbexpertisebeginner kbautomation kbmacro kbdtacode kbhowto kbprogramming KB213610

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