HOW TO: Eliminare ogni riga non necessaria di un foglio di lavoro di Excel

In questo articolo è contenuta una macro di esempio di Microsoft Visual Basic, Applications Edition che può essere utilizzata per eliminare ogni riga non necessaria in un intervallo selezionato di un foglio di lavoro di Microsoft Excel.

Microsoft fornisce esempi di programmazione a scopo puramente illustrativo, senza alcuna garanzia di qualsiasi tipo, sia espressa che implicita, ivi incluse, senza limitazioni, le garanzie implicite di commerciabilità o idoneità per uno scopo particolare. In questo articolo si presume che l'utente conosca il linguaggio di programmazione in questione e gli strumenti utilizzati per creare ed eseguire il debug delle procedure. Gli esperti Microsoft sono autorizzati a fornire spiegazioni in merito alla funzionalità di una particolare procedura, ma in nessun caso a modificare questi esempi per fornire funzionalità aggiuntive o a creare procedure atte a soddisfare specifiche esigenze. Per utilizzare la macro riportata di seguito, sarà necessario impostare un file di Microsoft Excel come indicato:

1. Creare una nuova cartella di lavoro di Microsoft Excel.
2. In un nuovo foglio di lavoro, nell'intervallo di celle A1:A9, digitare i numeri da 1 a 5, saltando le righe come nell'esempio riportato di seguito:

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

3. Scegliere Macro dal menu Strumenti, quindi Visual Basic Editor.
   
   Nota In Microsoft Office Excel 2007, fare clic su Visual Basic nel gruppo Codice della scheda Sviluppo.
4. Scegliere Modulo dal menu Inserisci.
5. Digitare la seguente macro nel nuovo modulo:

   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. Passare al foglio di lavoro che contiene i dati e selezionare l'intervallo di celle A1:A9.
7. Per eseguire la macro, scegliere Macro dal menu Strumenti, quindi Macro.
   
   Nota In Excel 2007, fare clic su Macro nel gruppo Codice della scheda Sviluppo.
   
8. Selezionare la macro Delete_Every_Other_Row quindi scegliere Esegui.

Questa macro eliminerà le righe non necessarie, a partire dalla seconda riga della selezione.

Nota: se è presente un elenco di dati contenenti più colonne, selezionare solo la prima colonna di dati ed eseguire la macro.