Come eliminare ogni altra riga automaticamente in Excel 2003

April 2

Come eliminare ogni altra riga automaticamente in Excel 2003


Microsoft Office ha un sacco di funzioni programmate per aiutare ad automatizzare le funzioni complesse ed equazioni. Non vi è alcuna funzione programmata per eliminare ogni altra riga in Excel, ma è possibile creare il proprio facendo una macro nello strumento di Visual Basic. i comandi macro di registrazione, e si possono creare da soli. Una volta creato il macro a destra, è possibile utilizzare questa funzione in Excel per cancellare automaticamente ogni altra cella nel foglio elettronico, semplicemente eseguendo la macro sulle celle evidenziate.

istruzione

1 Aprire una nuova cartella di lavoro in Excel e digitare il numero "1" nella cella A1. Skip cella A2 e digitare "2" nella cella A3. Ripetere questa operazione fino ad avere i numeri da 1 a 5 iscritti in celle da A1 a A9. I seguenti cellule devono avere i seguenti numeri: "1" per A1, "2" per A3, "3" per A5, "4" per A7 e "5" per A9.

2 Fai clic su "Strumenti" e selezionare "Macro". Clicca su "Visual Basic Editor."

3 Selezionare la scheda "Inserisci" e fare clic su "Modulo".

4 Copiare la seguente macro e incollarlo nella scheda di Visual Basic:

Delete_Every_Other_Row Sub ()

'Dimension variables.

Y = False 'Modificare questa True se si desidera

'Eliminare righe 1, 3, 5, e così via.

I = 1

Set XRNG = Selezione

'Loop una volta per ogni riga della selezione.

Per xCounter = 1 Per xRng.Rows.Count

'Se Y è vero, allora ...

Se Y = True Then

'... Eliminare un'intera riga di celle.

xRng.Cells (I) .EntireRow.Delete

'In caso contrario ...

Altro

'... Incrementare Io per uno in modo che possiamo scorrere gamma.

I = I + 1

Finisci se

'Se Y è vero, lo rendono False; se Y è False, renderlo vero.

Y = Y Not

Successivo xCounter

End Sub

5 Fai clic su "Chiudi e torna a Microsoft Excel" per uscire, quindi verificare la macro, mettendo in evidenza le righe da A1 a A9 sul foglio di calcolo Excel che hai fatto in precedenza. Fai clic su "Strumenti", quindi "Macro" e poi cliccare su "Macro".

6 Selezionare "Delete_Every_Other_Row" dal menu Macro e fare clic su "Esegui". Le righe alternate saranno cancellati e numeri da 1 a 5 saranno ora visualizzati in celle da A1 a A5.


Articoli Correlati