Como eliminar linhas alternadas numa folha de cálculo do Excel

Este artigo contém uma macro de exemplo do Microsoft Visual Basic for Applications que pode utilizar para eliminar linhas alternadas num intervalo seleccionado numa folha de cálculo do Microsoft Excel.

A Microsoft fornece exemplos de programação apenas a título informativo, sem garantia expressa ou implícita, incluindo, sem limitação, as garantias implícitas de comercialização e/ou adequação a um fim específico. Este artigo pressupõe que o utilizador conhece a linguagem de programação apresentada e as ferramentas utilizadas para criar e depurar procedimentos. Os técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador. Para utilizar a macro seguinte, configure um livro do Excel da seguinte forma:

1. Crie um novo livro do Microsoft Excel.
2. Numa nova folha de cálculo, no intervalo A1:A9, escreva os números 1 a 5, ignorando linhas, tal como no exemplo seguinte:

         A1: 1
         A2:
         A3: 2
         A4:
         A5: 3
         A6:
         A7: 4
         A8:
         A9: 5
   					

3. No menu Ferramentas, aponte para Macro e, em seguida, clique em Editor do Visual Basic.
   
   Nota No Microsoft Office Excel 2007, clique em Visual Basic no grupo Código no separador Programador.
4. No menu Insert, clique em Module.
5. No novo módulo, escreva 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. Mude para a folha de cálculo que contém os dados e seleccione o intervalo de células A1:A9.
7. Para executar a macro, aponte para Macro no menu Ferramentas e clique em Macros.
   
   Nota No Excel 2007, clique em Macros no grupo Código no separador Programador.
   
   Nota Para apresentar o separador Programador no Friso, clique no Botão do Office, clique em Opções do Excel, clique na categoria Popular, clique para seleccionar a caixa de verificação Mostrar separador Programador no Friso e clique em OK.
8. Seleccione a macro Delete_Every_Other_Row e clique em Executar.

Esta macro irá eliminar linhas alternadas, começando da segunda linha da selecção.

Nota Se tiver uma lista de dados contendo várias colunas, seleccione apenas a primeira coluna de dados e execute a macro.