Come eliminare le righe sopra la cella attiva o un testo specifico in Excel?
Se hai un foglio di lavoro enorme con molte righe e vuoi eliminare tutte le righe sopra la cella attiva o un testo specifico, come puoi gestirlo? Puoi eliminare le righe selezionandole e facendo clic con il tasto destro per scegliere Elimina dal menu contestuale manualmente. Ma qui ho dei codici VBA per eliminare rapidamente le righe sopra; se sei interessato, leggi i dettagli qui sotto.
Elimina righe sopra con i codici VBA
Elimina righe sopra con i codici VBA
Qui ti presento due codici VBA: uno elimina le righe sopra la cella attiva (selezionata) e 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 Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo e incolla il codice sottostante nello script del Modulo.
VBA: Elimina righe sopra la cella attiva
Sub DeleteRowsAboveActive()
Range("A1:A" & ActiveCell.Row - 1).EntireRow.Delete
End Sub
3. Premi F5 tasto, quindi le righe sopra la cella attiva saranno state eliminate. Vedi screenshot:
Se vuoi eliminare le righe sopra un testo specifico, puoi utilizzare il seguente VBA.
VBA: Elimina righe sopra un testo specifico
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 vuoi trovare, puoi modificarlo secondo necessità.
2. Se il testo trovato si trova già nella prima riga, apparirà una finestra di dialogo per avvisarti.
3. Se il testo specificato non viene trovato nel foglio, apparirà una finestra di dialogo per notificartelo, come mostrato di seguito.
I 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 oltre300 funzionalità avanzate per aumentare la produttività e farti risparmiare tempo. Clicca qui per ottenere la funzione di cui hai più bisogno...
Office Tab porta le schede su Office e rende il tuo lavoro molto più semplice
- Abilita la modifica e lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra invece che in nuove finestre.
- Aumenta la produttività del50% e riduce centinaia di clic del mouse ogni giorno!
Tutti gli add-in Kutools. Un solo programma di installazione
La suite Kutools for Office include add-in per Excel, Word, Outlook & PowerPoint più Office Tab Pro, ideale per i team che lavorano su più app di Office.
- Suite tutto-in-uno — Add-in per Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Un solo programma di installazione, una sola licenza — configurazione in pochi minuti (pronto per MSI)
- Funzionano meglio insieme — produttività ottimizzata su tutte le app Office
- Prova completa30 giorni — nessuna registrazione, nessuna carta di credito
- Massimo risparmio — costa meno rispetto all’acquisto singolo degli add-in