Come eliminare ogni altra riga di un foglio di calcolo di Excel

Microsoft Excel è una popolare applicazione foglio di calcolo che fornisce strumenti utili per l' inserimento dei dati , il calcolo , grafici, tabelle pivot e di più . Anche se Excel è un complesso, programma ricco di funzionalità , non dà agli utenti la possibilità di eliminare righe alternate di un foglio di calcolo di default. L'aggiunta di questa funzionalità richiede agli utenti di definire un'attività automatizzata chiamata di una macro , quindi eseguire tale macro sulle file di foglio di calcolo che desiderano cambiare . Istruzioni
1

Aprire l' Excel Visual Basic Editor . Con il foglio di calcolo aperto in Excel , fare clic su "Strumenti" dal menu nella parte superiore dello schermo , quindi selezionare " Macro " e " Visual Basic Editor. " Se si utilizza Excel 2003 o più vecchio , passare a quello successivo passo .

gli utenti di Excel 2007 si nota che il comando precedente non esiste nella versione corrente di Excel , e che non gli strumenti di modifica di macro vengono visualizzati per impostazione predefinita. Attivare l'accesso a questi strumenti , fare clic sul pulsante Office in alto a sinistra dello schermo , quindi fare clic sul pulsante " Opzioni di Excel " nella parte inferiore del menu . Individuare la voce etichetta " Opzioni principali per l'utilizzo di Excel " nella finestra di dialogo visualizzata , quindi selezionare la casella accanto a "Mostra scheda Sviluppo sulla barra multifunzione " etichetta . Fare clic su " OK ". Selezionare la scheda Sviluppo , quindi fare clic sul pulsante " Visual Basic " .
2

Aggiungere codice macro . Fare clic su "Inserisci " dal menu nella parte superiore della finestra di editor di Microsoft Visual Basic e scegliere " . Modulo " Copia tutto il codice elencato di seguito , poi incollarlo in questo modulo :

Sub Delete_Every_Other_Row ( ) ' Dimension variables.Y = False' Cambia questo a True se si desidera ' eliminare le righe 1, 3, 5 , e così on.I = 1Impostare XRNG = Selection ' loop una volta per ogni riga della selection.For xCounter = 1 per xRng.Rows.Count ' Se Y è vero, allora ... Se Y = True Then' ... cancellare una riga intera di cells.xRng.Cells ( I) . EntireRow.Delete ' Altrimenti ... Else' . incrementare .. io per uno in modo che possiamo passare da range.I = I + 1End Se ' Se Y è vero , ne fanno False; se Y è False , renderlo True.Y = Non ynext xCounterEnd Sub

3

eseguire la macro. Torna al tuo foglio di calcolo senza chiudere l'editor di Visual Basic . Evidenziare le righe per le quali alternata fila deve essere rimosso. In Excel 2003 e versioni precedenti , fare clic sul menu " Strumenti " , quindi selezionare " Macro " , seguito dalla opzione " Macro " . In Excel 2007, selezionare la scheda Sviluppo , quindi fare clic su " Macro ". Per eseguire la macro in entrambe le versioni , selezionare la macro denominata " Delete_Every_Other_Row " , quindi fare clic su "Esegui ". Ogni fila di numero del foglio di calcolo cancella .