Come eliminare le righe con valori negativi in Excel?
Supponiamo che tu abbia il seguente intervallo di dati e desideri eliminare le righe intere se il numero è negativo nella colonna B. Ci sono buoni metodi per risolvere questo problema in Excel?
 |  |  | Elimina righe con numeri negativi utilizzando il codice VBA Elimina righe con numeri negativi utilizzando Kutools per Excel |
Elimina righe con numeri negativi utilizzando il codice VBA
Il seguente codice VBA può aiutarti a eliminare le righe intere se ci sono numeri negativi in una colonna specifica, procedi come segue:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Clicca su Inserisci > Modulo, e incolla il seguente codice nella Finestra del Modulo.
Codice VBA: Elimina righe con numeri negativi
Sub Deleter()
'updatebyExtendoffice
Dim xRg As Range
Dim xCell As Range
Dim xTxt As String
Dim I As Long
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Sel:
Set xRg = Nothing
Set xRg = Application.InputBox("please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
If xRg.Columns.Count > 1 Then
MsgBox "does not support multiple columns, please select again", vbInformation, "Kutools for Excel"
GoTo Sel
End If
For I = xRg.Rows.Count To 1 Step -1
If xRg.Cells(I) < 0 Then xRg.Cells(I).EntireRow.Delete
Next
End Sub
3. Successivamente, premi il tasto F5 per eseguire questo codice; nella finestra di dialogo che appare, seleziona la colonna numerica da cui vuoi trovare i numeri negativi, vedi screenshot:
4. Quindi clicca sul pulsante OK, le righe con numeri negativi verranno eliminate immediatamente.
Elimina righe con numeri negativi utilizzando Kutools per Excel
Per gestire questa operazione, la funzione Seleziona celle specifiche di Kutools per Excel può esserti utile. Con questo strumento, puoi prima selezionare le righe intere contenenti valori negativi e poi eliminarle completamente secondo necessità.
| Kutools per Excel : con più di 300 utili add-in per Excel, prova gratuita senza limitazioni per 30 giorni. |
Dopo aver installato Kutools per Excel, procedi come segue:
1. Seleziona la colonna che contiene i numeri negativi che desideri eliminare.
2. Quindi clicca su Kutools > Seleziona > Seleziona celle specifiche, vedi screenshot:
3. Nella finestra di dialogo Seleziona celle specifiche, seleziona l'opzione Riga intera nel tipo di selezione, quindi scegli Minore di dal tipo specifico e inserisci 0 nella casella di testo accanto al criterio, vedi screenshot:
4. Quindi clicca su Ok, le righe che contengono numeri negativi verranno selezionate immediatamente, e poi clicca su Home > Elimina > Elimina righe del foglio per eliminare le righe selezionate come necessario, vedi screenshot:
 | |  |
Suggerimenti: Puoi anche fare clic con il tasto destro per selezionare Elimina dal menu contestuale per eliminare le righe selezionate.
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