Come eliminare rapidamente ogni altra riga in Excel?

Se si desidera eliminare rapidamente ogni altra riga o colonna in Excel, il punto principale è come è possibile selezionare rapidamente prima ogni altra riga o colonna e quindi applicare l'operazione di eliminazione ad esse. E questo articolo ti mostrerà alcune cose complicate 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

Microsoft Excel Filtro Il comando può aiutarti a filtrare rapidamente ogni altra riga e quindi eliminarle contemporaneamente, per favore fai come segue:

1. In una colonna vuota oltre ai dati originali, inserisci 0,1,0,1…, 0,1. In questo caso, inseriamo i numeri nella colonna dell'helper C.Vedere lo screenshot seguente:

2. Seleziona la colonna C e fai clic su Filtro pulsante sotto Dati tab. Quindi fare clic sul pulsante freccia accanto a C1 e selezionare solo il file 0 sotto il Seleziona tutto opzione. Vedi screenshot:

3. Quindi tutte le righe con 1 sono nascoste. Seleziona le righe visibili con 0 e fai clic su Casa > Elimina > Elimina le righe del foglio per eliminare queste righe. Quindi elimina ogni altra riga e devi fare clic Filtro di nuovo per mostrare solo le righe con 1. Vedi screenshot:

4. Alla fine, puoi eliminare la colonna helper C di cui hai bisogno.

Elimina ogni altra riga in Excel con il codice VBA

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

1. Tenere premuto il tasto altro + F11 chiavi in ​​Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.

2. Clic inserire > Modulie incolla la seguente macro nel file Moduli Finestra.

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. Premere il tasto F5 chiave per eseguire questa macro. Quindi viene visualizzata una finestra di dialogo per la selezione di un intervallo. Vedi screenshot:

4. Quindi fare clic su OK, ogni altra riga nell'intervallo selezionato dalla seconda riga viene eliminata contemporaneamente, vedi screenshot:

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

Per un utente principiante di Microsoft Excel, l'utilizzo della macro VBA è un po 'complicato. Il Seleziona Intervallo righe e colonne utilità di Kutools for Excel può aiutarti a eliminare rapidamente ogni altra riga.

Dopo l'installazione Kutools for Excel, si prega di fare come segue:

1. Seleziona l'intervallo che desideri eliminare ogni altra riga, quindi applica questa utilità facendo clic su Kutools > Seleziona > Seleziona Intervallo righe e colonne ....

2. Nel Seleziona Intervallo righe e colonne finestra di dialogo, specificare le impostazioni come mostrato nella seguente schermata e fare clic su OK per selezionare prima ogni altra riga.

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

4. Quindi puoi eliminare rapidamente le righe selezionate ogni due facendo clic su Casa > Elimina > Elimina le righe del foglio per eliminare tutte queste righe. Vedi screenshot:

Con questa funzione, puoi anche eliminare ogni ennesima riga o colonna di cui hai bisogno.

Scarica e prova gratuitamente Kutools per Excel adesso!