Come si eliminano le righe in base al colore di sfondo in Excel?
In che modo è possibile eliminare una riga intera in base al colore di sfondo? In questo esempio, occorre eliminare tutte le righe le cui celle presentano il colore di sfondo blu, come mostrato nello screenshot seguente. Grazie a questo articolo, otterrai alcuni codici utili per eseguire questa operazione in Excel.
Elimina righe con un determinato Colore di Sfondo in base a ciascuna cella
Elimina righe con un determinato Colore di Sfondo in base a una colonna
Elimina righe con un determinato Colore di Sfondo in base a ciascuna cella
Se si dispone di un intervallo di dati riempito casualmente con alcuni colori di cella e si desidera eliminare le righe con celle di colore blu, come illustrato nello screenshot seguente:
Per eliminare questo tipo di righe, puoi utilizzare il seguente codice VBA. Segui questi passaggi:
1. Premi contemporaneamente 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 nella finestra del Modulo.
Codice VBA: Elimina righe le cui celle contengono un determinato Colore di riempimento:
Sub DeleteRows()
'Updateby Extendoffice
Dim rngCl As Range
Dim xRows As Long
Dim xCol As Long
Dim colorLg As Long
On Error Resume Next
Set rngCl = Application.InputBox _
(Prompt:="Select a cell with the background color to be deleted", _
Title:="Kutools for Excel", Type:=8)
On Error GoTo 0
If rngCl Is Nothing Then
MsgBox "User cancelled operation." & vbCrLf & _
"Processing terminated", vbInformation, "Kutools for Excel"
Exit Sub
End If
colorLg = rngCl.Interior.Color
Application.ScreenUpdating = False
With ActiveSheet.UsedRange
For xRows = .Rows.Count To 1 Step -1
For xCol = 1 To .Columns.Count
If .Cells(xRows, xCol).Interior.Color = colorLg Then
.Rows(xRows).Delete
Exit For
End If
Next xCol
Next xRows
End With
Application.ScreenUpdating = True
End Sub
3. Premere quindi il tasto F5 per eseguire il codice. Verrà visualizzata una finestra di dialogo che chiede di selezionare una cella con il colore di riempimento da eliminare, come mostrato nello screenshot:
4. Fare quindi clic su OK: tutte le righe saranno eliminate se la cella presenta un determinato colore di riempimento.
Elimina righe con un determinato Colore di Sfondo in base a una colonna
Se si desidera eliminare le righe in base al colore di una singola colonna — ad esempio, rimuovere tutte le righe con sfondo blu nella colonna A per ottenere lo screenshot seguente — è disponibile anche in questo caso un codice VBA utile allo scopo.
1. Tenere premuti i tasti ALT + F11per aprire la finestra di Microsoft Visual Basic for Applications.
2. Fare clic su Inserisci>Modulo, quindi incollare il codice seguente nella finestra del Modulo.
Codice VBA: Elimina righe basato su una colonna le cui celle presentano un determinato Colore di riempimento:
Sub deleterow()
'UpdateBY Extendoffice
Dim xRg As Range, rgDel As Range
For Each xRg In ThisWorkbook.ActiveSheet.Range("A2:A21")
If xRg.Interior.ColorIndex = 20 Then
If rgDel Is Nothing Then
Set rgDel = xRg
Else
Set rgDel = Union(rgDel, xRg)
End If
End If
Next xRg
If Not rgDel Is Nothing Then rgDel.EntireRow.Delete
End Sub
Nota: nel codice precedente, A2:A21 è la colonna che contiene il colore di riempimento specifico in base al quale si desidera eliminare le righe; il numero 20 presente nello script ColorIndex = 20 rappresenta il codice colore in base al quale si vogliono eliminare le righe. È possibile modificarli in base alle proprie esigenze.
3. Premere quindi il tasto F5 per eseguire il codice: tutte le righe con celle di colore blu nella colonna A verranno eliminate immediatamente.
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