Come eliminare rapidamente ogni altra riga in Excel?

Se vuoi eliminare rapidamente ogni altra riga o colonna in Excel, il punto principale è come selezionare prima ogni altra riga o colonna e poi applicare l'operazione di eliminazione. Questo articolo ti mostrerà alcuni trucchi su come selezionare prima ogni altra riga o colonna e poi eliminarle rapidamente.

Elimina ogni altra riga in Excel con il comando Filtro

Elimina ogni altra riga in Excel con il codice VBA

Elimina ogni altra riga o colonna in Excel con Kutools per Excel

Elimina ogni altra riga in Excel con il comando Filtro

Il comando Filtro di Microsoft Excel può aiutarti a filtrare rapidamente ogni altra riga e poi eliminarle tutte insieme, procedi come segue:

1. In una colonna vuota accanto ai dati originali, inserisci 0,1,0,1…,0,1. In questo caso, inseriamo i numeri nella colonna ausiliaria C. Vedi la seguente schermata:

2. Seleziona la colonna C, e fai clic sul pulsante Filtro sotto la scheda Dati. Poi fai clic sul pulsante freccia accanto a C1, e controlla solo lo 0 sotto l'opzione Seleziona tutto. Vedi la schermata:

3. Quindi tutte le righe con 1 sono nascoste. Seleziona le righe visibili con 0, e fai clic su Home > Elimina > Elimina righe del foglio per eliminare queste righe. Poi elimina ogni altra riga, e devi fare nuovamente clic sul pulsante Filtro per mostrare solo le righe con 1. Vedi le schermate:

4. Infine, puoi eliminare la colonna ausiliaria C se necessario.

Elimina ogni altra riga in Excel con il codice VBA

In realtà, anche una macro VBA è una buona scelta per risolvere questo problema.

1. Tieni premuti i tasti Alt + F11 in Excel, e si aprirà la finestra Microsoft Visual Basic per Applications.

2.  Clicca su Inserisci > Modulo, e incolla la seguente macro nella finestra Modulo.

Codice VBA: Elimina ogni altra riga nella selezione:

Sub DeleteEveryOtherRow()
'Updateby Extendoffice
Dim rng As Range
Dim InputRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Application.ScreenUpdating = False
For i = InputRng.Rows.Count To 1 Step -2
    Set rng = InputRng.Cells(i, 1)
    rng.EntireRow.Delete
Next
Application.ScreenUpdating = True
End Sub

3. Premi il tasto F5 per eseguire questa macro. Poi apparirà una finestra di dialogo per selezionare un intervallo. Vedi la schermata:

4.  Poi clicca OK, ogni altra riga nell'intervallo selezionato dalla seconda riga viene eliminata immediatamente, vedi la schermata:

Elimina ogni altra riga o colonna in Excel con Kutools per Excel

Per un utente principiante di Microsoft Excel, usare la macro VBA è un po' complicato. L'utilità Seleziona intervalli di righe e colonne di Kutools per Excel può aiutarti a eliminare ogni altra riga rapidamente.

Dopo aver installato Kutools per Excel, procedi come segue:

1. Seleziona l'intervallo in cui desideri eliminare ogni altra riga, e poi applica questa utilità facendo clic su Kutools > Seleziona > Seleziona intervalli di righe e colonne….

2. Nella finestra di dialogo Seleziona intervalli di righe e colonne, specifica le impostazioni come mostrato nella seguente schermata, e fai clic sul pulsante OK per selezionare prima ogni altra riga.

3. Quindi ogni altra riga nella selezione viene selezionata ed evidenziata. Vedi la schermata:

4. Poi puoi eliminare rapidamente le righe selezionate facendo clic su Home > Elimina > Elimina righe del foglio per eliminare tutte queste righe. Vedi le schermate:

Con questa funzione, puoi anche eliminare ogni ennesima riga o colonna secondo necessità.

Scarica e prova gratuitamente Kutools per Excel Ora!