Come eliminare le righe sopra la cella attiva o un testo specifico in Excel?
Se c'è un enorme foglio di lavoro con più righe e vuoi solo eliminare tutte le righe sopra la cella attiva o un testo specifico, come puoi gestirlo? È possibile eliminare le righe selezionandole e quindi fare clic con il pulsante destro del mouse per scegliere Elimina manualmente dal menu di scelta rapida. Ma qui, ho il codice VBA per eliminare rapidamente le righe sopra, se ti interessa, leggi i dettagli di seguito.
Elimina le righe sopra con i codici VBA
Elimina le righe sopra con i codici VBA
Qui presento due codici VBA per te, uno è eliminare le righe sopra la cella attiva (selezionata), un altro è rimuovere le righe sopra il testo specificato.
1. Selezionare una cella da cui si desidera eliminare le righe sopra di essa e premere Alt + F11 chiavi per aprire Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice sottostante nel file Moduli script.
VBA: elimina le righe sopra la cella attiva
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Stampa F5 chiave, quindi le righe sopra la cella attiva sono state rimosse. Vedi screenshot:
Se desideri eliminare le righe sopra il testo specificato, puoi utilizzare sotto VBA.
VBA: elimina 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, Gruppo totale è il testo che vuoi trovare, puoi cambiarlo quando ti serve.
2. Se il testo che trovi è già nella prima riga, verrà visualizzata una finestra di dialogo per ricordartelo.
3. Se il testo che trovi non esiste nel foglio, apparirà una finestra di dialogo come mostrato nell'immagine sottostante per ricordartelo.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze in Excel con Kutools for Excele sperimenta l'efficienza come mai prima d'ora. Kutools for 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 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 della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!
