Como excluir linhas em branco em uma planilha

Este artigo contém uma macro de exemplo do Microsoft Visual Basic for Applications que pode ser usada para remover linhas em braco em um intervalo selecionado em uma planilha do Microsoft Excel.

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 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()
   
      ' Dimension variables.
      Y = False              ' Change this to True if you want to
                             ' delete rows 1, 3, 5, and so on.
      I = 1
      Set xRng = Selection
   
      ' Loop once for every row in the selection.
      For xCounter = 1 To xRng.Rows.Count
   
          ' If Y is True, then...
          If Y = True Then
   
              ' ...delete an entire row of cells.
              xRng.Cells(I).EntireRow.Delete
   
          ' Otherwise...
          Else
   
              ' ...increment I by one so we can cycle through range.
              I = I + 1
   
          End If
   
          ' If Y is True, make it False; if Y is False, make it True.
          Y = Not 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, 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.