Cum se șterg rânduri pe baza culorii de fundal în Excel?
Cum ați putea șterge rânduri întregi pe baza culorii de fundal? În acest exemplu, trebuie să șterg toate rândurile pe care celulele le-au umplut cu culoare de fundal albastră, după cum se arată în următoarea captură de ecran. Cu acest articol, veți primi câteva coduri pentru a realiza această sarcină în Excel.
Ștergeți rândurile cu o culoare de fundal specifică pe baza fiecărei celule
Ștergeți rândurile cu o anumită culoare de fundal pe baza unei coloane
Ștergeți rândurile cu o culoare de fundal specifică pe baza fiecărei celule
Dacă aveți o serie de date care s-au umplut în mod aleatoriu cu unele culori ale celulei și trebuie să ștergeți rândurile pe care culoarea celulei este albastră, după cum urmează:
Pentru a șterge acest tip de rânduri, puteți utiliza următorul cod VBA, vă rugăm să procedați astfel:
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: ștergeți rândurile care conțin celule de culoare de umplere specifice:
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. Și apoi apăsați F5 pentru a rula acest cod și se va afișa o casetă de prompt pentru a vă reaminti să selectați o celulă cu culoarea de umplere pe care doriți să o ștergeți, vedeți captura de ecran:
4. Apoi apasa OKși toate rândurile au fost șterse dacă celula cu o culoare de umplere specifică.
Ștergeți rândurile cu o anumită culoare de fundal pe baza unei coloane
Dacă doriți să ștergeți rândurile cu o anumită culoare pe baza unei singure coloane, de exemplu, ștergeți rândurile cu culoare albastră în coloana A și obțineți captura de ecran de mai jos, iată și un cod VBA care vă poate face o favoare.
1. Țineți apăsat butonul ALT + F11 tastele pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. Clic Insera > Moduleși lipiți următorul cod în Module Fereastră.
Cod VBA: ștergeți rândurile pe baza unei coloane ale căror celule au o culoare de umplere specifică:
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
notițe: În codul de mai sus, A2: A21 este coloana care conține culoarea de umplere specifică pe care doriți să ștergeți rândurile, numărul 20 in ColorIndex = 20 scriptul este indicele de culoare pe care doriți să ștergeți rândurile pe baza căruia. Le puteți schimba după nevoile dvs.
3. Apoi apăsați F5 tasta pentru a rula acest cod și toate rândurile care celulele conțin culoarea albastră din coloana A au fost șterse simultan.
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!