Come si eliminano le righe sopra la cella attiva o un testo specifico in Excel?
Se hai un foglio di lavoro molto grande con numerose righe e desideri eliminare tutte le righe sopra la cella attiva o un testo specifico, come puoi procedere? È possibile eliminarle selezionandole manualmente e facendo clic con il tasto destro per scegliere **Elimina** dal menu contestuale. Tuttavia, qui trovi codici VBA per eliminare rapidamente le righe sopra. Se ti interessa, leggi i dettagli riportati di seguito.
Elimina righe le righe sopra con codici VBA
Elimina righe le righe sopra con codici VBA
Di seguito sono riportati due codici VBA: uno elimina le righe sopra la cella attiva (selezionata), mentre l’altro rimuove le righe sopra un testo specificato.
1. Seleziona una cella sopra la quale desideri eliminare le righe e premi i tasti Alt + F11 per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fai clic su Inserisci > Modulo, quindi incolla il codice seguente nello script del Modulo.
VBA: Elimina righe le righe sopra la cella attiva
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Premi il tasto F5: le righe sopra la cella attiva verranno rimosse. Vedi screenshot:
Se desideri eliminare le righe sopra un testo specificato, puoi utilizzare il seguente codice VBA.
VBA: Elimina righe le righe sopra il testo specificato
Sub DeleteRowsABove()
'UpdatebyExtendoffice20161109
Dim fRg As Range
Set fRg = Cells.Find(What:="Total Group", LookAt:=xlWhole)
If Not fRg Is Nothing Then
If fRg.Row <> 1 Then
Range("A1", fRg.Offset(-1)).EntireRow.Delete
Else
MsgBox "Total Group is in the first row already", vbInformation, "Kutools for Excel"
End If
Else
MsgBox "Do not find Total Group", vbInformation, "Kutools for Excel"
End If
End Sub
Nota:
1. Nel codice, Total Group è il testo che si desidera trovare; è possibile modificarlo in base alle proprie esigenze.
2. Se il testo cercato è già presente nella prima riga, verrà visualizzata una finestra di dialogo di avviso.
3. Se il testo specificato non viene trovato nel foglio, verrà visualizzata una finestra di dialogo a conferma dell’esito, come illustrato di seguito.
Migliori Strumenti per la Produttività in Office
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice
- 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 all’interno della stessa finestra, invece che in finestre separate.
- Aumenta la tua produttività del 50 % e risparmia centinaia di clic del mouse ogni giorno!
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
- Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
- Funziona meglio insieme— produttività ottimizzata tra le app di Office
- Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
- Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi