Wie lösche ich Zeilen basierend auf der Hintergrundfarbe in Excel?
Wie können Sie ganze Zeilen basierend auf der Hintergrundfarbe löschen? In diesem Beispiel muss ich alle Zeilen löschen, deren Zellen mit blauer Hintergrundfarbe gefüllt sind, wie im folgenden Screenshot gezeigt. Mit diesem Artikel erhalten Sie einige Codes, um diese Aufgabe in Excel auszuführen.
Löschen Sie Zeilen mit einer bestimmten Hintergrundfarbe basierend auf jeder Zelle
Löschen Sie Zeilen mit einer bestimmten Hintergrundfarbe basierend auf einer Spalte
Löschen Sie Zeilen mit einer bestimmten Hintergrundfarbe basierend auf jeder Zelle
Wenn Sie einen Datenbereich haben, der zufällig mit einigen Zellenfarben gefüllt wurde, und Sie die Zeilen löschen müssen, deren Zellenfarbe blau ist, wie im folgenden Screenshot gezeigt:
Um diese Art von Zeilen zu löschen, können Sie den folgenden VBA-Code verwenden. Gehen Sie dazu folgendermaßen vor:
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Löschen Sie Zeilen, deren Zellen eine bestimmte Füllfarbe enthalten:
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. Und dann drücken F5 Wenn Sie die Taste drücken, um diesen Code auszuführen, wird ein Eingabeaufforderungsfeld angezeigt, das Sie daran erinnert, eine Zelle mit der Füllfarbe auszuwählen, die Sie löschen möchten.
4. Dann klick OKund alle Zeilen wurden gelöscht, wenn die Zelle eine bestimmte Füllfarbe hat.
Löschen Sie Zeilen mit einer bestimmten Hintergrundfarbe basierend auf einer Spalte
Wenn Sie die Zeilen mit einer bestimmten Farbe löschen möchten, die nur auf einer Spalte basiert, löschen Sie beispielsweise die Zeilen mit der blauen Farbe in Spalte A und erhalten Sie den folgenden Screenshot. Hier ist auch ein VBA-Code, der Ihnen einen Gefallen tun kann.
1. Halten Sie die Taste gedrückt ALT + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. Klicken Sie Insert > Modulund fügen Sie den folgenden Code in das Feld ein Modul Fenster.
VBA-Code: Löschen Sie Zeilen basierend auf einer Spalte, deren Zellen eine bestimmte Füllfarbe haben:
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: Im obigen Code, A2: A21 ist die Spalte, die die spezifische Füllfarbe enthält, auf der Sie die Zeilen basierend auf der Nummer löschen möchten 20 in Farbindex = 20 Skript ist der Farbindex, auf dessen Grundlage Sie Zeilen löschen möchten. Sie können sie nach Ihren Wünschen ändern.
3. Dann drücken F5 Schlüssel zum Ausführen dieses Codes, und alle Zeilen, deren Zellen die blaue Farbe in Spalte A enthalten, wurden sofort gelöscht.
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!