Come eliminare le righe in base al colore di sfondo in Excel?
Come potresti eliminare intere righe in base al colore di sfondo? In questo esempio, devo eliminare tutte le righe le cui celle sono state riempite con il colore di sfondo blu come mostrato nella seguente schermata. Con questo articolo, otterrai alcuni codici per eseguire questa attività in Excel.
Elimina le righe con un colore di sfondo specifico in base a ciascuna cella
Elimina le righe con un colore di sfondo specifico in base a una colonna
Elimina le righe con un colore di sfondo specifico in base a ciascuna cella
Se hai un intervallo di dati che è stato riempito con alcuni colori delle celle in modo casuale, e devi eliminare le righe il cui colore della cella è blu come mostrato nella seguente schermata:
Per eliminare questo tipo di righe, puoi utilizzare il seguente codice VBA, per favore fai come segue:
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: elimina le righe le cui celle contengono un colore di riempimento specifico:
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. E poi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare una cella con il colore di riempimento che desideri eliminare, vedi screenshot:
4. Quindi fare clic OKe tutte le righe sono state eliminate se la cella con un colore di riempimento specifico.
Elimina le righe con un colore di sfondo specifico in base a una colonna
Se vuoi eliminare le righe con un colore specifico basato su una sola colonna, ad esempio, elimina le righe con il colore blu nella colonna A e ottieni lo screenshot qui sotto, ecco anche un codice VBA che può farti un favore.
1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: elimina le righe in base a una colonna le cui celle hanno un colore di riempimento specifico:
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
Note:: Nel codice sopra, A2: A21 è la colonna che contiene il colore di riempimento specifico su cui si desidera eliminare le righe in base al numero 20 in Indice Colore = 20 script è l'indice di colore su cui si desidera eliminare le righe. Puoi cambiarli secondo le tue necessità.
3. Quindi premere F5 chiave per eseguire questo codice e tutte le righe le cui celle contengono il colore blu nella colonna A sono state eliminate contemporaneamente.
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per 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 semplifica notevolmente il tuo lavoro
- 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!