Come eliminare tutte le righe sotto una determinata riga o cella attiva in Excel?
Per eliminare tutte le righe al di sotto di una determinata riga o cella attiva, questo articolo può aiutarti.
Elimina tutte le righe sotto una determinata riga in Excel con il codice VBA
Elimina tutte le righe sotto la cella attiva in Excel con codice VBA
Elimina tutte le righe sotto una determinata riga in Excel con il codice VBA
Il seguente codice VBA ti aiuterà a eliminare tutte le righe sotto una riga specifica in Excel.
1. Stampa altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il seguente codice VBA nella finestra del codice.
Codice VBA: elimina tutte le righe sotto determinate righe in Excel
Sub DeleteRowsBelow()
Worksheets("Sheet1").Rows(5 & ":" & Worksheets("Sheet1").Rows.Count).Delete
End Sub
Note:: Nel codice VBA, il numero 5 e Sheet1 indicano che tutte le righe sotto la riga 5 (includere la riga 5) in Sheet1 verranno eliminate dopo aver eseguito il codice. Puoi modificarli in base alle tue esigenze.
3. Stampa F5 chiave per eseguire il codice. Quindi tutte le righe sotto la riga 5 (includi la riga 5) vengono eliminate immediatamente come mostrato nell'immagine sottostante.
Elimina tutte le righe sotto la cella attiva in Excel con codice VBA
Per eliminare tutte le righe appena sotto la riga della cella attiva in Excel, puoi provare il seguente codice VBA.
1. Selezionare una cella in cui verranno eliminate tutte le righe sottostanti, quindi premere altro + F11 tasti contemporaneamente per aprire il file Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il seguente codice VBA nella finestra del codice.
Codice VBA: elimina tutte le righe sotto la riga della cella attiva in Excel
Sub DeleteAllBelow()
Rows(ActiveCell.Row & ":" & Rows.Count).Delete
End Sub
3. premi il F5 chiave per eseguire il codice. Quindi tutte le righe sotto la riga della cella attiva (includi la riga della cella attiva) vengono eliminate immediatamente.
Articoli correlati:
- Come eliminare tutte le righe tranne la prima riga di intestazione in Excel?
- Come eliminare le righe se la cella è maggiore / minore di un determinato valore in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!